% 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 %>
Nuvarande Fråga
Tidigare Omröstningar
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 %> |