---
title: "Lista alla poster hur?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/99855-lista-alla-poster-hur/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "tank82"
published: "2004-03-19T18:53:22.000Z"
updated: "2004-04-13T08:37:45.000Z"
replies: 24
views: 601
page: 2
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/99855-lista-alla-poster-hur"
---
# Lista alla poster hur?
_Sida 2 av 2._
## #21 — tank82, 2004-04-11T16:11Z
Ok nu får jag detta fel
Microsoft VBScript compilation error '800a0400'
Expected statement
rosta.asp, line 94
wend
^
Med denna kod:
```
<%
Response.Buffer = "True"
bredd = "480"
breddF = "470"
breddR = "10"
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 fraga, pollid From poll_rosta Order by PollId desc")
Response.Write(" " & vbCrLf)
If RecSet.EOF Then
Response.Write(" " & vbCrLf)
Response.Write(" | Här var det tomt.. | " & vbCrLf)
Response.Write("
" & vbCrLf)
Else
while not RecSet.EOF
strFraga = RecSet("fraga")
intPollID = RecSet("pollid")
Response.Write(" " & vbCrLf)
Response.Write(" | " & strFraga & " | " & vbCrLf)
Response.Write("
" & vbCrLf)
Set Svar = Conn.Execute("SELECT svar From poll_svar Where pollID=" & intPollID)
totalt = Conn.Execute("SELECT COUNT(svar) From poll_svar Where pollID=" & intPollID)(0)
If Svar.EOF Then
intSvarEtt = 0
intSvarTva = 0
intSvarTre = 0
intSvarFyra = 0
intProc1 = 0
intProc2 = 0
intProc3 = 0
intProc4 = 0
If not Svar.EOF Then
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
ElseIf stat = 4 Then
intSvarFyra = intSvarFyra + 1
End If
Svar.MoveNext
Loop
intProc1 = Round(intSvarEtt / totalt * 100, 0)
intProc2 = Round(intSvarTva / totalt * 100, 0)
intProc3 = Round(intSvarTre / totalt * 100, 0)
intProc4 = Round(intSvarFyra / totalt * 100, 0)
End If
Set Svar = Conn.Execute("SELECT svar1, svar2, svar3, svar4 FROM poll_rosta WHERE pollID=" & intPollID)
If Request.Querystring("page") = "" Then
Response.Write(" " & vbCrLf)
Response.Write(" | " & Svar("svar1") & " l " & intProc1 & "% |
" & vbCrLf)
Response.Write(" ![]() | " & vbCrLf)
Response.Write(" " & Svar("svar2") & " l " & intProc2 & "% | " & vbCrLf)
Response.Write(" ![]() | " & vbCrLf)
Response.Write(" " & Svar("svar3") & " l " & intProc3 & "% | " & vbCrLf)
Response.Write(" ![]() | " & vbCrLf)
Response.Write(" " & Svar("svar4") & " l " & intProc4 & "% | " & 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
RecSet.MoveNext
wend
End If
Response.Write(" " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write("
" & vbCrLf)
Response.Write(" " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write("
" & vbCrLf)
Response.Write("
" & vbCrLf)
%>
<%
End If
Conn.Close
Set Conn = nothing
%>
```
Permalänk: https://www.webforum.nu/p/1319496
## #22 — @nders, 2004-04-11T16:13Z
Hjälp oss att hjälpa, markera alltid vilken rad felmeddelandet pekar på.
Ta bort if-satsen precis ovanför nollställningen av variablerna.
Permalänk: https://www.webforum.nu/p/1319497
## #23 — tank82, 2004-04-12T22:47Z
sorry...
if-satsen precis ovanför nollställningen? hmm jag är inte så bra på detta men är det denna kod du menar?
```
If Svar.EOF Then
intSvarEtt = 0
intSvarTva = 0
intSvarTre = 0
intSvarFyra = 0
intProc1 = 0
intProc2 = 0
intProc3 = 0
intProc4 = 0
If not Svar.EOF Then
```
Permalänk: https://www.webforum.nu/p/1320233
## #24 — @nders, 2004-04-13T04:05Z
Ja.
Ta bort **If Svar.EOF Then**. Du har ju tagit bort End if som tillhör den if-satsen.
Permalänk: https://www.webforum.nu/p/1320270
## #25 — tank82, 2004-04-13T08:37Z
Tack så mycket @nders nu fick jag det att fungera, fast det var inte bara **if svar.EOF then** som skulle bort, här följer den rätta koden. :birp
```
<%
Response.Buffer = "True"
bredd = "480"
breddF = "470"
breddR = "10"
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 fraga, pollid From poll_rosta Order by PollId desc")
Response.Write(" " & vbCrLf)
If RecSet.EOF Then
Response.Write(" " & vbCrLf)
Response.Write(" | Här var det tomt.. | " & vbCrLf)
Response.Write("
" & vbCrLf)
Else
while not RecSet.EOF
strFraga = RecSet("fraga")
intPollID = RecSet("pollid")
Response.Write(" " & vbCrLf)
Response.Write(" | " & strFraga & " | " & vbCrLf)
Response.Write("
" & vbCrLf)
Set Svar = Conn.Execute("SELECT svar From poll_svar Where pollID=" & intPollID)
totalt = Conn.Execute("SELECT COUNT(svar) From poll_svar Where pollID=" & intPollID)(0)
intSvarEtt = 0
intSvarTva = 0
intSvarTre = 0
intSvarFyra = 0
intProc1 = 0
intProc2 = 0
intProc3 = 0
intProc4 = 0
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
ElseIf stat = 4 Then
intSvarFyra = intSvarFyra + 1
End If
Svar.MoveNext
Loop
intProc1 = Round(intSvarEtt / totalt * 100, 0)
intProc2 = Round(intSvarTva / totalt * 100, 0)
intProc3 = Round(intSvarTre / totalt * 100, 0)
intProc4 = Round(intSvarFyra / totalt * 100, 0)
Set Svar = Conn.Execute("SELECT svar1, svar2, svar3, svar4 FROM poll_rosta WHERE pollID=" & intPollID)
If Request.Querystring("page") = "" Then
Response.Write(" " & vbCrLf)
Response.Write(" | " & Svar("svar1") & " l " & intProc1 & "% |
" & vbCrLf)
Response.Write(" ![]() | " & vbCrLf)
Response.Write(" " & Svar("svar2") & " l " & intProc2 & "% | " & vbCrLf)
Response.Write(" ![]() | " & vbCrLf)
Response.Write(" " & Svar("svar3") & " l " & intProc3 & "% | " & vbCrLf)
Response.Write(" ![]() | " & vbCrLf)
Response.Write(" " & Svar("svar4") & " l " & intProc4 & "% | " & 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
RecSet.MoveNext
wend
End If
Response.Write(" " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write("
" & vbCrLf)
Response.Write(" " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write("
" & vbCrLf)
Response.Write("
" & vbCrLf)
%>
<%
End If
Conn.Close
Set Conn = nothing
%>
```
Permalänk: https://www.webforum.nu/p/1320306
---
Tråden på webben: https://www.webforum.nu/amne/asp/99855-lista-alla-poster-hur/page2
Föregående sida: https://www.webforum.nu/amne/asp/99855-lista-alla-poster-hur.md