<% Dim fsoObject 'File System Object Dim tsObject 'Text Stream Object Dim filObject 'File Object Dim lngVisitorNumber 'Holds the visitor number Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt")) Set tsObject = filObject.OpenAsTextStream lngVisitorNumber = CLng(tsObject.ReadAll) Set db=server.createobject("adodb.connection") db.open "Provider=Microsoft.jet.oledb.4.0;data source=" & server.mappath("data.mdb") Set rst=server.createobject("adodb.recordset") rst.open "select ip_address from tblip_address where ip_address='" & request.servervariables("remote_addr") & "'",db if rst.eof=true then lngVisitorNumber = lngVisitorNumber + 1 Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt")) tsObject.Write CStr(lngVisitorNumber) db.execute "insert into tblip_address(ip_address) values('" & request.servervariables("remote_addr") & "')" 'Display the hit count as text Response.Write("" & lngVisitorNumber & "") else lngVisitorNumber = lngVisitorNumber Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt")) tsObject.Write CStr(lngVisitorNumber) 'Display the hit count as text Response.Write("" & lngVisitorNumber & "") Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing end if %>