<% 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 %>

Ge bort en ros

<%=users_namn %> har fått <%=ros %> ros(or) denna vecka.
<%if ros > 0 then rs.movefirst do while not rs.eof %> - <%=rs("ros_text") %>" alt="<%=datum(rs("ros_datum")) %> - <%=rs("ros_text") %>"><% rs.movenext loop end if%> <% rs.close %>

<% if error <> empty then %>
<%=error %>
<%else if users_tilldatum => date() and (users_norose = 0 or users_norose = 1) then %> Du har valt att ge en ros till <%=users_namn %>
Skriv en liten hälsning:

<% else %> Du kan inte ge en ros till <%=users_namn %> via webben.

Däremot kan du skicka en Ord-ros med sms som levereras till <%=users_namn %> med en gång. Dessutom får <%=users_namn %> fem (5) SP-dagar av dig.

Skicka "smexit [mellanslag] ros [mellanslag] <%=users_namn %> [mellanslag] [hälsning som ska stå på rosen]" till nummer 72550 för att ge <%=users_namn %> en ros och fem (5) SP-dagar.
Pris: 5 kr + ev sms-taxa
Pengarna dras på din telefonräkning.

» Mejla för mer info

<% end if end if %>
En ros ligger kvar en vecka och en vas kan bara innehålla tio rosor åt gången.
<%conn.close %>