<%@ Language=VBSCript%> <% dim strConn dim strSQL dim numTemp strConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/counter.mdb") & ";UID=admin;PWD=gadsplace;" 'strConn = "DRIVER={Microsoft Access Driver (*.mdb)};DSN=GadsHitCounter;pwd=gadsplace;" strSQL = "SELECT * FROM Hits WHERE PageID=2" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConn Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.Open strSQL, strConn, 3, 3 if Rs.EOF = false then numTemp = Rs.Fields("Count") numTemp = numTemp + 1 Rs.Fields("Count") = CLng(numTemp) Rs.Update end if Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing %> About Gad

About Gad



Last Updated: