<% Response.Buffer = True Session.LCID = 1053 '===================================================================================================================== 'Öppnar databasen '===================================================================================================================== Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=gurkmeja;dbq=" & Server.MapPath("../../../data/poll.mdb") Set RSPollQ2 = Server.CreateObject("ADODB.Recordset") PollQ2 = "SELECT TOP 1 * FROM tblPoll WHERE Active = True AND Deleted = False ORDER BY ID DESC" RSPollQ2.Open PollQ2, Connect, adOpenStatic, adLockOptimistic If Not RSPollQ2.EOF Then strQID2 = RSPollQ2("ID") Set RSPollA2 = Server.CreateObject("ADODB.Recordset") PollA2 = "SELECT * FROM tblPollAlt WHERE QID = " & strQID2 & " AND Deleted = False ORDER BY ID" RSPollA2.Open PollA2, Connect, adOpenStatic, adLockOptimistic Set RSPollQ = Server.CreateObject("ADODB.Recordset") PollQ = "SELECT * FROM tblPoll WHERE Active = True AND Deleted = False AND NOT ID = " & strQID2 & " ORDER BY ID DESC" RSPollQ.Open PollQ, Connect, adOpenStatic, adLockOptimistic End If %> Fråga

Nuvarande Fråga



Tidigare Omröstningar

<% If RSPollQ2.EOF Then %> <% Else If RSPollQ.EOF Then %> <% Else strColor = 1 Do Until RSPollQ.EOF If strColor mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% strColor = strColor -- 1 RSPollQ.MoveNext Loop RSPollQ.Close End If End If Connect.Close %>

Inga Frågor hittade...


Inga Frågor hittade...

<% =RSPollQ("Quest") %>
( Totalt <% =RSPollQ("CountVote") %> <% If RSPollQ("CountVote") = 1 Then %>Röst<% Else %>Röster<% End If %> )

<% strQID = RSPollQ("ID") Set RSPollA = Server.CreateObject("ADODB.Recordset") PollA = "SELECT * FROM tblPollAlt WHERE QID = " & strQID & " AND Deleted = False ORDER BY ID" RSPollA.Open PollA, Connect, adOpenStatic, adLockOptimistic x = 1 Do Until RSPollA.EOF %> <% =x %>: <% =RSPollA("Alt") %> ( <% =RSPollA("CountVote") %> <% If RSPollA("CountVote") = 1 Then %>Röst<% Else %>Röster<% End If %> )
<% RSPollA.MoveNext x = x + 1 Loop RSPollA.Close strQID = 0 %>