<% Response.Buffer = "True" sidan = "rostning.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 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 svar From svar Where pollID=" & intPollID) totalt = Conn.Execute("SELECT sum(svar) From svar Where pollID=" & intPollID)(0) If Svar.EOF Then intSvarEtt = 0 intSvarTva = 0 intSvarTre = 0 intProc1 = 0 intProc2 = 0 intProc3 = 0 Else Do Until Svar.EOF stat = CInt(Svar("svar")) 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 intProc1 = Round(intSvarEtt / totalt * 100, 0) intProc2 = Round(intSvarTva / totalt * 100, 0) intProc3 = Round(intSvarTre / totalt * 100, 0) End If Set Svar = Conn.Execute("SELECT TOP 1 svar1, svar2, svar3 FROM rosta ORDER BY pollid DESC") 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) 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 & "

" & Svar(0) & " (" & intProc1 & " %)

" & Svar(1) & " (" & intProc2 & " %)

" & Svar(2) & " (" & intProc3 & " %)

" & Svar("svar1") & " (" & intProc1 & " %)

" & Svar("svar2") & " (" & intProc2 & " %)

" & Svar("svar3") & " (" & intProc3 & " %)

" & vbCrLf) %> <% 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 %> <% End If Conn.Close Set Conn = nothing %>