<%@ 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=5"
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
%>
Photo Frame
Our
Photos
Check it out! It's yours truly with none other than
country music star CHELY WRIGHT!
Photo © 2000
Southern Reflections, Southside, AL
Ain't that just awesome?
(Thanks a ton Mrs. Nancy!)
Last Updated: