If-sætning

Else If

Denne her høre under ASP ikke VB

Heh, min kæmpe store fejl =0

Istedet for får jeg nu den her fejl:

"Microsoft VBScript compilation  error '800a040e'

'loop' without 'do'

/xxxx/xxxxx.asp, line 77

Loop"

i stedet. Slutningen af min kode ser sådan ud:


    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
    End If
    rs.Close
    Set rs = Nothing

Hvis du bruger tdafoobar's løsning, skal du bare huske at tilføje et End If mere i slutningen af din if-struktur.

Er det kode du viser hele koden, eller er det en "forkortet" version af koden?

øhm... hvordan flytter jeg spørgsmålet? (jeg synes ellers at spørgsmålet allerede er under ASP) :S

Det er ikke nok kode, men du har vel glemt

DO <expression> WHILE
<code>
LOOP

noget i den stil, længe side jeg har kodet VB.

hele koden:

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select  * From wall order by id desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("xxxxx.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
   

Response.Write ""
If Clng(intPage) > 1 Then
    Response.Write "<font class=lille><a href=skrevet.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "<font class=lille>&lt;&lt;"
End If

Response.Write " side " & intPage & " af " & intPageCount & " "

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=skrevet.asp?page=" & intPage + 1 & ">&gt;&gt;</a></font><br> "
Else
    Response.Write "&gt;&gt;</font>"
End If
%>
    </font></td></tr>
    <tr><td colspan="2"><br>
<%

    Do While Not rs.EOF And intRecCount > 0


    If rs("navn")="" then
          Response.Write "<font class=medium color=#076700>Annonym Penkus</font> <font class=lille>siger "

    Else If rs("navn")="Annonym Penkus" then
          Response.Write "<font class=medium color=#076700>53</font> <font class=lille>siger "

    Else
      Response.Write "<font class=medium color=#076700>" & rs("navn") & "</font> <font class=lille>siger "
    End If

    If rs("besked")="" then
          Response.Write "piv, piv.. jeg tør ikke skrive noget!"
    Else
      Response.Write "" & Replace(rs("besked"),chr(13),"<br>")  & "</font>"
    End If

      Response.Write "<br><i><font class=lille color=gray>" & rs("dato") & " "
      Response.Write rs("tid") & "</font></i><br><br>"     




    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
    End If
    rs.Close
    Set rs = Nothing

%>

miwu.tk bare ignorer webiis, du har posted i den rigtige kategory.

webiis >> Det skal da ikke flyttes til en anden kategori - dette er ASP-kategorien...?

Prøv lige at vise hele koden.

beklager min uvidenhed.. men jeg kender ikke forskellen mellem VB og ASP :s

Hmm... koden ser umiddelbart fin nok ud (bort set fra den manglende End If jeg nævnte tidligere. Er det mere koden før dette?

nej, resten er bare simpel html. Jeg prøver lige at tilføje det ekstra end if. Den skal ind efter
    Else If rs("navn")="Annonym Penkus" then
          Response.Write "<font class=medium color=#076700>53</font> <font class=lille>siger "
ikke?

jeg fandt selv ud af hvor den skulle være. Tusind tak for hjælpen. Jeg ved ikke helt hvem der skal modtage pointsne? Først til mølle princip eller 50/50?

Bare del 50/50 (eller hvilket forhold det nu skal være) - med mindre der er nogen som har indvendinger mod dette princip :)

begge skal have lavet et svar før jeg kan dele point'e, ikke sandt?

jo :)

Jeg springer over, kan godt klare at skrive 7 tegn gratis.

Tak for point :)