<%
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.
Discount Ireland Vacations TravelSolutionsIreland offer the best Ireland travel package, we also offer some of the most competitive prices on Ireland castle vacations, European travel package, Ireland Group tour Ireland.
Houston Limousine - Royal Carriages Limousine, Inc. Offering the best in luxury transportation in and around the city of Houston, providing the highest quality service for all occasions, including chauffeur-driven limos, sedans and more.
