%
id = request("id")
Response.Expires = 0
Response.Buffer = true
err1 = request("err")
if id = empty then
response.redirect("default.asp")
end if
if id = session("filuserid") then
error = "Du kan inte ge en ros till dig själv!"
end if
sql = "select users.* from users where id = " & id
rs.open sql, conn, 1, 3
if not rs.eof then
users_namn = rs("namn")
users_epost = rs("epost")
users_bild = rs("bild")
users_tilldatum = rs("tilldatum")
users_norose = rs("norose")
end if
rs.close
ros = 0
tid = dateadd("d",date(),-7) & " " & time()
sros = "select * from ros where ros_datum > '"& tid &"' and id = " & id &" "
rs.open sros, conn, 1, 3
do while not rs.eof
if Session.SessionID = rs("ros_session") then
error = "Du har redan gett en ros till "& users_namn &" idag. Välkommen tillbaka imorgon."
end if
ros = ros + 1
rs.movenext
loop
if ros >= 10 then
error = users_namn & " har redan tio rosor i sin vas, det får inte plats fler.
Försök igen någon annan dag.
"
end if
if err1 = "ok" then
error = users_namn & " tackar för rosen."
elseif err1 = "allr" then
error = "Du har redan gett en ros till "& users_namn &" idag. Välkommen tillbaka imorgon."
end if
%>