%
if Session("Username")<>"winthorpe" then
dtTemp=Date
dtYear=Year(dtTemp)
dtMonth=Month(dtTemp)
dtDay=Day(dtTemp)
RunHitSelect "SELECT * FROM Hits WHERE TodayDay=" & dtDay & " AND TodayMonth=" & dtMonth & " AND TodayYear=" & dtYear, HitCountRS
RecordFound=false
do while HitCountRS.eof=false
RecordFound=true
Hits=HitCountRS.Fields("Links").value
Hits=Hits+1
HitExecuteIt "UPDATE Hits SET Links=" & Hits & " WHERE TodayDay=" & dtDay & " AND TodayMonth=" & dtMonth & " AND TodayYear=" & dtYear
HitCountRS.MoveNext
loop
if RecordFound=false then
HitExecuteIt "INSERT INTO Hits (Links, TodayDay, TodayMonth, TodayYear) VALUES (1, " & dtDay & "," & dtMonth & "," & dtYear & ")"
end if
end if
sub RunHitSelect(sql, byref TableRS)
set Conn = Server.CreateObject("ADODB.Connection")
Dim DSNvar
DSNvar = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("DatabaseDB78/PDHits.mdb") & ";"
Conn.Open(DSNvar)
set TableRS = Conn.Execute(sql)
end sub
sub HitExecuteIt(sql)
set Conn = Server.CreateObject("ADODB.Connection")
Dim DSNvar
DSNvar = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("DatabaseDB78/PDHits.mdb") & ";"
Conn.Open(DSNvar)
Conn.Execute(sql)
Conn.Close
end sub
%>
Perfect Day: The Deluxe Wedding Planning Software Suite...Links
|
|
|
Our partners' websites are listed below. Please give them a quick visit.
|
|
Categories
Caterers
Barmops & Bar Towels Our Products stand up to heavy duty household use fluffy, used as in a hotel, motel, resort, cruise line, bar, vacation hideaways & restaurant. Visit our site for more products and its details. |
|
Find Online Wines.com Come here search for the finest wines, wine accessories, wine gifts and gourmet foods. Look here for your hard to find products in the world of wine. |
|
|
|
Thai Cooking - Thai Recipes Thai Cooking. Authentic Thai Recipes - Food Recipes. Information on Cooking using Authentic Traditional Thai Recipes. |
Back | Add Link
|
|
|
|