<% Response.Buffer = "True" sidan = "index.asp" sessionnamn2 = "asdqewcasd" sessionnamn1 = "asdfghjkll" sessionnamn = "zxcvbnmnbvc" bredd = "400" breddF = "400" breddR = "0" db = Server.MapPath("db.mdb") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db Storlek = breddF/100 If Request.Querystring("page") = "" Then Set RecSet = Conn.Execute("SELECT Top 1 fraga, pollid From rosta WHERE fraga IS NOT NULL Order by PollId desc") Response.Write(" " & vbCrLf) If RecSet.EOF Then Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Else strFraga = RecSet("fraga") intPollID = RecSet("pollid") Set RecSet = Nothing Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Set Svar = Conn.Execute("SELECT klick From rosta Where pollID="& intPollID & " AND fraga IS NULL") totalt = Conn.Execute("SELECT sum(klick) From rosta Where pollID="& intPollID & " AND fraga IS NULL)(0) If Svar.EOF Then Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Else Do Until Svar.EOF stat = Svar("klick") If stat = 1 Then intSvarEtt = intSvarEtt + 1 ElseIf stat = 2 Then intSvarTva = intSvarTva + 1 ElseIf stat = 3 Then intSvarTre = intSvarTre + 1 End If Svar.MoveNext Loop Set Svar = Conn.Execute("SELECT TOP 1 svar1, svar2, svar3 FROM rosta WHERE fraga IS NOT NULL ORDER BY pollid DESC") intProc1 = Round(intSvarEtt / totalt * 100, 0) intProc2 = Round(intSvarTva / totalt * 100, 0) intProc3 = Round(intSvarTre / totalt * 100, 0) If Request.Cookies(sessionnamn1) = sessionnamn Then Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Else Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) End If Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Svar.Close Set Svar = nothing End If Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("

Här var det tomt..
" & strFraga & "
Inga frågor!
" & Svar(0) & "	" & Svar(1) & "	" & Svar(2) & "
" & Svar("svar1") & "	" & Svar("svar2") & "	" & Svar("svar3") & "

" & vbCrLf) End If ElseIf 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 ElseIf Request.Querystring("page") = "spara" Then 'Conn.Execute("Update svar Set klick=klick+1 Where id=" & Request.QueryString("id") & " And svarnr=" & Request.QueryString("option")) Conn.Execute("INSERT INTO rosta (klick, pollID) VALUES (" & Request.QueryString("option") & ", " & Request.QueryString("id") & ")") Response.Cookies(sessionnamn1) = sessionnamn Response.Cookies(sessionnamn1).Expires = date + 1 Response.Redirect sidan & "?avdelning=rosta_tack" End If Conn.Close Set Conn = nothing %>