Lista alla poster hur?

24 svar · 574 visningar · startad av tank82 19 mars 2004 · sida 2 av 2

Frågan, av tank82 19 mars 2004

Hej hej! :birp Jag skulle vilja ändra denna kod så att den "listar" alla poster istället för att bara visa den senaste, jag har börjat mixtra med koden med får den inte att fungera, kan någon snäll person hjälpa mig... :r <% Response.Buffer = "True" bredd = "110" breddF = "100" breddR = "10" db = Server.MapPath("db.mdb") Set Conn = Server.CreateObject("ADODB.Connection") Conn.O

Läs frågan i sin helhet →

tank82Medlem sedan feb. 2003210 inlägg

11 apr. 2004 16:11#21

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("    <table border=""0"" cellpadding=""0"" cellspacing=""1"" align=""center"" width=""" & Bredd & """>" & vbCrLf)

  If RecSet.EOF Then
    Response.Write("      <tr>" & vbCrLf)
    Response.Write("        <td colspan=""2""><b>Här var det tomt..</b></td>" & vbCrLf)
    Response.Write("      </tr>" & vbCrLf)
  Else
  while not RecSet.EOF
    strFraga = RecSet("fraga")
    intPollID = RecSet("pollid")

    Response.Write("  <tr>" & vbCrLf) 
    Response.Write("    <td colspan=""3""><b>" & strFraga & "</b></td>" & vbCrLf)
    Response.Write("  </tr>" & 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("       <tr>" & vbCrLf)
      Response.Write("          <td width=""" & bredd & """>" & Svar("svar1") & " l " & intProc1 & "%</td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & BreddF & """ bgcolor=""#838995"" height=""10""><img src=""rosta/bild.gif"" width=""" & intProc1 & "%"" height=""10"" border=""1""></td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & bredd & """>" & Svar("svar2") & " l " & intProc2 & "%</td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & BreddF & """ bgcolor=""#838995"" height=""10""><img src=""rosta/bild.gif"" width=""" & intProc2 & "%"" height=""10"" border=""1""></td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & bredd & """>" & Svar("svar3") & " l " & intProc3 & "%</td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & BreddF & """ bgcolor=""#838995"" height=""10""><img src=""rosta/bild.gif"" width=""" & intProc3 & "%"" height=""10"" border=""1""></td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & bredd & """>" & Svar("svar4") & " l " & intProc4 & "%</td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & BreddF & """ bgcolor=""#838995"" height=""10""><img src=""rosta/bild.gif"" width=""" & intProc4 & "%"" height=""10"" border=""1""></td></tr>" & vbCrLf)
      Response.Write("          <td rowspan=""2"" width=""" & breddR & """ valign=""bottom"" align=""right""></td>" & vbCrLf)
      Response.Write("        </tr>" & vbCrLf)
    End If

    Response.Write("        <tr>" & vbCrLf)
    Response.Write("          <td colspan=""2""></td>" & vbCrLf)
    Response.Write("        </tr>" & vbCrLf)

    Svar.Close
    Set Svar = nothing
    RecSet.MoveNext
   wend
  End If

  Response.Write("        <tr>" & vbCrLf)
  Response.Write("          <td colspan=""2""></td>" & vbCrLf)
  Response.Write("        </tr>" & vbCrLf)
  Response.Write("        <tr>" & vbCrLf)
  Response.Write("          <td colspan=""2""></td>" & vbCrLf)
  Response.Write("        </tr>" & vbCrLf)
  Response.Write(" </table>" & vbCrLf)
%>

<%
End If

Conn.Close
Set Conn = nothing
%>

@ndersMedlem sedan juni 200032 967 inlägg

11 apr. 2004 16:13#22

Hjälp oss att hjälpa, markera alltid vilken rad felmeddelandet pekar på.
Ta bort if-satsen precis ovanför nollställningen av variablerna.

tank82Medlem sedan feb. 2003210 inlägg

12 apr. 2004 22:47#23

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

@ndersMedlem sedan juni 200032 967 inlägg

13 apr. 2004 04:05#24

Ja.

Ta bort If Svar.EOF Then. Du har ju tagit bort End if som tillhör den if-satsen.

tank82Medlem sedan feb. 2003210 inlägg

13 apr. 2004 08:37#25

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("    <table border=""0"" cellpadding=""0"" cellspacing=""1"" align=""center"" width=""" & Bredd & """>" & vbCrLf)

  If RecSet.EOF Then
    Response.Write("      <tr>" & vbCrLf)
    Response.Write("        <td colspan=""2""><b>Här var det tomt..</b></td>" & vbCrLf)
    Response.Write("      </tr>" & vbCrLf)
  Else
  while not RecSet.EOF
    strFraga = RecSet("fraga")
    intPollID = RecSet("pollid")

    Response.Write("  <tr>" & vbCrLf) 
    Response.Write("    <td colspan=""3""><b>" & strFraga & "</b></td>" & vbCrLf)
    Response.Write("  </tr>" & 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("       <tr>" & vbCrLf)
      Response.Write("          <td width=""" & bredd & """>" & Svar("svar1") & " l " & intProc1 & "%</td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & BreddF & """ bgcolor=""#838995"" height=""10""><img src=""../rosta/bild.gif"" width=""" & intProc1 & "%"" height=""10"" border=""1""></td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & bredd & """>" & Svar("svar2") & " l " & intProc2 & "%</td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & BreddF & """ bgcolor=""#838995"" height=""10""><img src=""../rosta/bild.gif"" width=""" & intProc2 & "%"" height=""10"" border=""1""></td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & bredd & """>" & Svar("svar3") & " l " & intProc3 & "%</td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & BreddF & """ bgcolor=""#838995"" height=""10""><img src=""../rosta/bild.gif"" width=""" & intProc3 & "%"" height=""10"" border=""1""></td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & bredd & """>" & Svar("svar4") & " l " & intProc4 & "%</td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & BreddF & """ bgcolor=""#838995"" height=""10""><img src=""../rosta/bild.gif"" width=""" & intProc4 & "%"" height=""10"" border=""1""></td></tr>" & vbCrLf)
      Response.Write("          <td rowspan=""2"" width=""" & breddR & """ valign=""bottom"" align=""right""></td>" & vbCrLf)
      Response.Write("        </tr>" & vbCrLf)
    End If

    Response.Write("        <tr>" & vbCrLf)
    Response.Write("          <td colspan=""2""></td>" & vbCrLf)
    Response.Write("        </tr>" & vbCrLf)

    Svar.Close
    Set Svar = nothing
    RecSet.MoveNext
   wend
  End If

  Response.Write("        <tr>" & vbCrLf)
  Response.Write("          <td colspan=""2""></td>" & vbCrLf)
  Response.Write("        </tr>" & vbCrLf)
  Response.Write("        <tr>" & vbCrLf)
  Response.Write("          <td colspan=""2""></td>" & vbCrLf)
  Response.Write("        </tr>" & vbCrLf)
  Response.Write(" </table>" & vbCrLf)
%>

<%
End If

Conn.Close
Set Conn = nothing
%>