<% Response.Buffer = "True" 'Skapa ett connectionobjekt - öppna det inte förrän det ska till att användas Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0=Data Source=" & Server.MapPath("db.mdb") 'Skapa ett recordset Set objRSPoll = Server.CreateObject("ADODB.Recordset") 'Dina varibler... sessionnamn2 = "asdqewcasd" sessionnamn1 = "asdfghjkll" sessionnamn = "zxcvbnmnbvc" bredd = "400" breddF = "400" breddR = "0" sngStorlek = breddF / 100 sidan = "index.asp" 'Sidan i övrigt... If Request.Querystring("page") = "" Then %> <% 'Har du frågan i en egen variabel underlättas felsökningen strSQL = "SELECT TOP 1 Fraga, PollId FROM fraga ORDER BY PollId DESC" 'Försök alltid att öppna anslutningen så sent som möjligt objConn.Open '1 = adCmdText. Säger till providern hur frågan ska tolkas. Kan snabba upp saker. Set objRSPoll = objConn.Execute(strSQL, , 1) If objRSPoll.EOF Then 'Stäng saker när dom är färdiganvända objRSPoll.Close objConn.Close %> <% Else 'objRSPoll(1) = objRSPoll("PollId") intPollID = CInt(objRSPoll(1)) strFraga = CStr(objRSPoll(0)) %> <% strSQL = "SELECT Sum(klick) As tot FROM svar WHERE pollID = " & intPollID Set objRSPoll = objConn.Execute(strSQL, , 1) 'Tomma recordsets är inte bra If Not objRSPoll.EOF Then totalt = objRSPoll(0) Else totalt = 0 End If strSQL = "SELECT id, klick, svar, svarnr FROM svar WHERE pollID = " & intPollID & " ORDER BY svarnr" Set objRSPoll = objConn.Execute(strSQL, , 1) If objRSPoll.EOF Then %> <% Else Do Until objRSPoll.EOF stat = objRSPoll(1) 'Inga jäkla division-by-zero... If stat <> 0 And totalt > 0 Then res = (stat/totalt) * BreddF / Storlek Else res = 0 End If If Request.Cookies(sessionnamn1) = sessionnamn Then %> <% Else %> <% End If objRSPoll.MoveNext Loop End If %> <% objRSPoll.Close objConn.Close Set objRSPoll = Nothing Set objConn = Nothing End If %>

Här var det tomt..
<%=strFraga%>
Inga frågor!
<%=objRSPoll(2)%>
<%=objRSPoll(2)%>

<% End If %> 'Resten fanns det inget att ändra i... gamla polls är i stort sett samma som ovan, så det kan nog du få till :) ' ' /Engine^