<%Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "driver=MySQL ODBC 3.51 Driver;server=mysql.exice.se;uid=gruvsjo_com;pwd=alibaba;database=gruvsjo_com;option=16384" Set User= Conn.Execute("Select * From gruvsjo_tbl_poll_anvandare Where id=" & Request.Querystring("id")) If User("linje") <> "" Then Linje = "" Else Linje = "

---

" End If If User("stilval") = 2 Then Response.Write ""&_ "document.write('');"& vbcrlf Else Response.Write ""&_ "document.write('');"& vbcrlf End If Set RecSet = Conn.Execute("SELECT * From gruvsjo_tbl_poll_fraga Where user=" & Request.Querystring("id") & " Order by PollId desc limit 1") Response.Write ""&_ "document.write('');"& vbcrlf If RecSet.EOF Then Response.Write ""&_ "document.write('');"& vbcrlf &_ "document.write(' ');"& vbcrlf &_ "document.write('');"& vbcrlf Else Response.Write ""&_ "document.write(' ');"& vbcrlf &_ "document.write(' ');"& vbcrlf &_ "document.write('');"& vbcrlf Set RS = Conn.Execute("SELECT sum(klick) As tot From gruvsjo_tbl_poll_svar Where pollID="& RecSet("PollId")) totalt = RS("tot") RS.Close:Set RS = nothing Set Svar = Conn.Execute("SELECT * From gruvsjo_tbl_poll_svar Where pollID="& RecSet("PollId") & " Order By svarnr") If Svar.EOF Then Response.Write ""&_ "document.write('');"& vbcrlf &_ "document.write(' ');"& vbcrlf &_ "document.write('');"& vbcrlf Else Do Until Svar.EOF stat = Svar("klick") If stat <> 0 Then res = (stat/cint(totalt))* 100 Else res = "0" End If If Request.Cookies(User("cookiename") & RecSet("pollId")) = "true" Then Response.Write ""&_ "document.write('');"& vbcrlf &_ "document.write(' ');"& vbcrlf &_ "document.write(' ');"& vbcrlf &_ "document.write('');"& vbcrlf &_ "document.write('');"& vbcrlf &_ "document.write(' ');"& vbcrlf &_ "document.write('');"& vbcrlf Else Response.Write ""&_ "document.write('');"& vbcrlf &_ "document.write(' ');"& vbcrlf &_ "document.write(' ');"& vbcrlf &_ "document.write('');"& vbcrlf &_ "document.write('');"& vbcrlf &_ "document.write(' ');"& vbcrlf &_ "document.write('');"& vbcrlf End If Svar.MoveNext Loop Response.Write ""&_ "document.write('');"& vbcrlf &_ "document.write(' ');"& vbcrlf &_ "document.write('');"& vbcrlf &_ "document.write('');"& vbcrlf &_ "document.write(' ');"& vbcrlf &_ "document.write('');"& vbcrlf &_ "document.write('');"& vbcrlf &_ "document.write(' ');"& vbcrlf &_ "document.write('');"& vbcrlf Svar.Close:Set Svar = nothing End If Response.Write ""&_ "document.write('

Ingen fråga inlagd
" & RecSet("fraga") & "
Inga svar!
" & Svar("svar") & "	("%><%For i=1 to Len(stat)%><%=Mid(stat,i,1)%><%Next%><%Response.Write ")
" & Svar("svar") & "	("%><%For i=1 to Len(stat)%><%=Mid(stat,i,1)%><%Next%><%Response.Write ")
" & User("votes")%> <%For i=1 to Len(totalt)%><%=Mid(totalt,i,1)%><%Next%><%Response.Write "
" & Linje & "
" & User("showall") & " | " & User("skaffapoll") & " | " & User("andrapoll") & "

');"& vbcrlf End If RecSet.Close:Set RecSet = nothing Conn.Close:Set Conn = nothing%>