<%
website=51 'the id of the member
vote=request.queryString("vote")
'-------------------------
'--- Date manipulation ---
'-------------------------
currentdate = date()
currentday = Day(currentdate)
currentmonth = Month(currentdate)
currentyear = Right(Year(currentdate),2)
currenthour = FormatDateTime(Now,3)
if Right(currenthour,2) = "PM" then
currenthour = Left(currenthour,1) + 12
elseif Right(currenthour,2) = "AM" AND Left(currenthour,1) < 10 AND InStr(Left(currenthour,3),":") = 2 then
currenthour = "0" & Left(currenthour,1)
else
currenthour = Left(currenthour,2)
end if
if currentday<10 then
currentday = "0" & currentday
end if
if currentmonth<10 then
currentmonth = "0" & currentmonth
end if
currentdate = currentday & "/" & currentmonth & "/" & currentyear
'----------------------------------
'--- Connection to the database ---
'----------------------------------
Dim db
Set db = Server.CreateObject("ADODB.Connection")
db.ConnectionString = "DSN=zeus_db1;DRIVER={Microsoft Access Driver (*.mdb)};SERVER=hercules"
db.Open
'-------------------------
'--- Visits Counter ---
'-------------------------
set rs = Server.CreateObject("ADODB.Recordset")
queryvisits = "SELECT visits,votes,username from members WHERE id=" & website & ""
rs.Open queryvisits,db
visits = rs("visits")
votes = rs("votes")
username = rs("username")
'--- Resultset and query to update the table [member_HellenicWeb] (visits stats: nbclicks)
set rsnbclicks = Server.CreateObject("ADODB.Recordset")
querynbclicks = "SELECT clicks,[" & currenthour & "] as nbclicks from member_" & website & " where date='" & currentdate & "'"
rsnbclicks.Open querynbclicks,db
rsnbclicks.MoveFirst
nbclicks = rsnbclicks("nbclicks")
clicks = rsnbclicks("clicks")
queryClick = "UPDATE member_" & website & " set clicks='" & clicks+1 & "',[" & currenthour & "]='" & nbclicks+1 & "' where date='" & currentdate & "'"
db.Execute(queryClick)
set rs = Server.CreateObject("ADODB.Recordset")
queryvisits = "UPDATE members set visits=" & visits+1 & " WHERE id=" & website & ""
rs.Open queryvisits, db
db.Execute(queryvisits)
if vote="1" then
queryvisits = "UPDATE members set votes=" & votes+1 & " WHERE id=" & website & ""
rs.Open queryvisits, db
db.Execute(queryvisits)
result="Your vote has been recorded... Now, " & username & " has a total of " & votes+1 & " votes. Thank you for you participation!
