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
