<%
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("FeaturesCheckList").value
Hits=Hits+1
HitExecuteIt "UPDATE Hits SET FeaturesCheckList=" & Hits & " WHERE TodayDay=" & dtDay & " AND TodayMonth=" & dtMonth & " AND TodayYear=" & dtYear
HitCountRS.MoveNext
loop
if RecordFound=false then
HitExecuteIt "INSERT INTO Hits (FeaturesCheckList, 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...Easy Backup
