<%@ 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

new.gif (147 bytes)updated.gif (153 bytes) Click on News to find out what has changed recently! updated.gif (153 bytes)new.gif (147 bytes)



PLEASE! Sign my Guestbook PLEASE!         View my Guestbook


revsm.gif (2061 bytes)                                        

Click HERE to hear the MSU fight song, "Hail State" (192KB au file)                             

                                     

emailed.gif (14893 bytes) E-mail me at gad@gadsplace.com.                                               
                                                                                           

This Page Last Updated: