<%If RecSet.EOF Then%>
| Här var det tomt.. |
<%Else%>
| <%=RecSet("Fraga")%> |
<%Set Svar = Conn.Execute("SELECT * From svar Where pollID="& RecSet("PollId") & " Order By svarnr")
Set RS = Conn.Execute("SELECT sum(klick) As tot From svar Where pollID="& RecSet("PollId"))
totalt = RS("tot")
RS.Close
Set RS = nothing
If Svar.EOF Then%>
| Inga frågor! |
<%End If
Do Until Svar.EOF
stat = Svar("klick")
If stat <> 0 Then
res = (stat/totalt)* BreddF / Storlek
Else
res = "0"
End If
If Request.Cookies(sessionnamn1) = sessionnamn Then%>
| <%=Svar("svar")%> |
|
 |
<%Else%>
| &option=<%=Svar("svarnr")%>"><%=Svar("svar")%> |
|
|
<%End If
Svar.MoveNext
Loop%>
|
<%Svar.Close
Set Svar = nothing
End If%>
|
|
<%End If
If Request.Querystring("page") = "vote" Then
If Request.Cookies(sessionnamn1) = sessionnamn then
Response.Redirect sidan
Else
Response.Redirect sidan & "?page=spara&id=" & Request.Querystring("id") & "&option=" & Request.QueryString("option")
End If
End If
If Request.Querystring("page") = "spara" Then
Set RecSet = Conn.Execute("Select * From svar Where id=" & Request.QueryString("id") & " And svarnr=" & Request.QueryString("option"))
Conn.Execute("Update svar Set klick=klick+1 Where id=" & Request.QueryString("id") & " And svarnr=" & Request.QueryString("option"))
Response.Cookies(sessionnamn1) = sessionnamn
Response.Cookies(sessionnamn1).Expires = date + 1
Response.Redirect sidan & "?avdelning=rosta_tack"
End If
If Request.Querystring("page") = "old" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("db.mdb")
SQL = "Select PollId, Fraga From fraga Order By PollId desc"
Set RecSet = Conn.Execute(SQL)
Do Until RecSet.EOF
PollId = RecSet("PollID")
Fraga = RecSet("Fraga")%>