<%@ Language=VBSCript%>
<%
dim strConn
dim strSQL
dim numTemp
'strConn="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
'strConn=strConn & server.mappath("../database/counter.mdb") & ";"
'strConn=strConn & "DSN=GadsHitCounter;Password=gadsplace;"
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=1"
'Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.open "GadsHitCounter","admin","gadsplace"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open strSQL, "GadsHitCounter", 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
%>
Welcome to
Gad's Place
Come on in and enjoy your stay
| This page has been accessed |
... |
times since 01/04/06 |
It was accessed 5896 times from 08/01/99-01/04/06
Diatribe of the Moment:
|
CompoUSA (and by extension Ready Hosting,
since Compo is just a Ready Hosting reseller) sucks as a hosting provider. That's why I've moved the site to
Go Daddy. |
Click Here
to view Gad's LiveJournal
Click Here to view Gad's Diatribe
Archive
Click
on
News to find out what has changed recently!
Sign
my Guestbook
View my Guestbook
Click HERE to hear the MSU fight song, "Hail
State" (192KB au file)
E-mail me at
gad@gadsplace.com.
This Page Last Updated:
