<% Dim count 'now make a connection to counter database and increment the counter by 1 'dim oConn 'connection string 'dim oRS 'recordset string 'dim PV 'provider string 'set oConn=Server.CreateObject("ADODB.connection") 'VP = "Provider=Microsoft.Jet.OLEDB.4.0;" 'VP = VP & "Data Source=D:\WEB\gallaman\_vti_log\counter.mdb" 'oConn.ConnectionString = VP 'oConn.Open 'set oRS=Server.CreateObject("ADODB.recordset") 'oRS.ActiveConnection = oConn 'oRS.CursorType = 1 'oRS.LockType = 3 'oRS.Open "countertable" 'Dim digit 'Dim loopvar 'if the user has already been to the page in this session 'if Session("true") Then ' count = Session("count") 'else, this is the first visit in the session so increment the counter 'else ' count = oRS.Fields("visitor") ' count = count + 1 ' oRS("visitor").Value = count ' oRS.Update ' Session("count") = count ' Session("true") = 1 'End If Sub displaydigit(DIGIT) select case DIGIT case "1" Response.Write "" case "2" Response.Write "" case "3" Response.Write "" case "4" Response.Write "" case "5" Response.Write "" case "6" Response.Write "" case "7" Response.Write "" case "8" Response.Write "" case "9" Response.Write "" case "0" Response.Write "" End select End Sub Sub displaycounter(divide_by) digit = count\divide_by call displaydigit(digit) count = count MOD divide_by End Sub 'Response.Write "You are visitor " 'find out how many digits are in count 'length = Len(count) 'length = CInt(length) 'go through each digit starting at the first digit and call the subroutines 'Do while length > 0 ' divide_by = 10^(length - 1) ' call displaycounter(divide_by) ' length = length - 1 'Loop %>