Du kan ju lagra det i databas da......
sql = "insert into tabell (ipAddress, dtExpire) "&_
"Values ('"&Request.ServerVariables("HTTP_ADDR")&"', DateAdd("d", 7, Date))"
objConn.execute sql,,128
sen kan du ju jamfora med If-sats typ:
strGetInfo = "Select * from tabell Where ipAddress = '"&Request.ServerVariables("HTTP_ADDR")
set rs = objConn.execute(strGetInfo)
If rs.eof then
'rostning gar igenom
'samt inserten
sql = "insert into tabell (ipAddress, dtExpire) "&_
"Values ('"&Request.ServerVariables("HTTP_ADDR")&"', DateAdd("d", 7, Date))"
objConn.execute sql,,128
Else
strLeft = DateDiff("d", rs("dtExpire"), Date())
If rs("dtExpire") = Date() then
'rostningen gar igenom
Else
response.write "Du maste vanta "&strLeft&" tills du kan rosta igen!"
End IF
End IF
vet ej om detta funkar, ar inte saaaaaa haj pa datum, men testa kan du ju alltid gora... ;)
Sen finns det sakert mycket battre satt!
response.write
