%
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
Transport
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. |
|
|
Back | Add Link
|
|
|
|