Loop

fattar inte vad det e fel på koden??:
fattar inte riktigt va loop e :(

<% IF NOT (RecSet.EOF) THEN %>
                  <td width="120" height="1"><b><font face="Arial" size="2">Användarnamn:</font></b></td>
                  <td width="41" height="1" align="center">
                  <p align="left"><b><font face="Arial" size="2">IRL:</font></b></td>
                  <td width="198" height="1"><b><font face="Arial" size="2">Relation:</font></b></td>
                  <td width="32" height="1"><b><font face="Arial" size="2">Datum:</font></b></td>
                </tr>
                <tr>
                  <td width="410" height="1" colspan="5"><font face="Arial">
                  <img border="0" src="Bilder/Streck.gif" width="407" height="1"></font></td>
                </tr>
                <tr>
                  <font face="Arial">
<% Do Until RecSet.EOF %>
<%

recset.movefirst
   recset.pagesize = mypagesize
   maxcount = Cint(recset.pagecount)
   recset.absolutepage = mypage
   
   
   howmanyrecs = 0
   howmanyfields = recset.fields.count -1
   Do While Not RecSet.EOF AND howmanyrecs < recset.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = "#FFFFFF"
   Else
      color = "#F0F0F0"
   End If
%>

  
</font>
                  <td height="1" bgcolor="<%=color%>"><font face="Arial" size="1">&nbsp;<%If RecSet2("status") = "offline" Then%><img border="0" src="Bilder/offline.gif"><%Else%><img border="0" src="Bilder/online.gif"><%End If%>&nbsp;<a href="krypin.asp?checkid=<%=recset("id2")%>"><%=RecSet("namn")%>&nbsp;<%=left(recset2("kon"),1)%>
        <%newage=DateDiff ("d", recset2("alder"), Now)
		newage = newage - (newage Mod 365)
		newage = newage / 365
		response.write(newage)%>
		
		</a></td>
                  <td width="29" height="1" bgcolor="<%=color%>" align="center"><font face="Arial" size="1"><%=RecSet("IRL")%></td>
                  </font><font size="1" face="Arial"><font face="Arial">
                  <td width="165" height="1" bgcolor="<%=color%>"><font face="Arial" size="1"><%=RecSet("Relation")%></td>
                  </font><font size="2" face="Arial">
                  <td width="131" height="1" bgcolor="<%=color%>">
                  <font face="Arial" size="1"><%=RecSet("blevkompis")%></font></td>
                  </font><font size="2" face="Arial" color="#FF0000">
                  <td height="1" width="3"></td>
                </tr>
                <% 
RecSet.MoveNext
RecSet2.MoveNext
howmanyrecs = howmanyrecs + 1
Loop
Set RecSet = Nothing
Set RecSet2 = Nothing
RecSet.Close
connect.Close
%>

</font></font><font size="2" face="Arial" color="#FF0000"><% ELSE %>

              </table>
              </font></td>
            </tr>
            <tr>
              <td height="1" colspan="2" align="center">
              <font size="1" face="Arial">
              <img border="0" src="Bilder/1pxtrans2.gif"><br>
              <img border="0" src="Bilder/1pxtrans2.gif"><img border="0" src="Bilder/Streck.gif" width="407" height="1"><br>
              <img border="0" src="Bilder/1pxtrans2.gif" width="1" height="3"></font></td>
            </tr>
            <tr>
              <td height="1" colspan="2" align="center">
              <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="406">
                <tr>
                  <td width="404">
                  <p align="center"><font size="1" face="Arial">Tyvärr  <%=Request.querystring("vem")%> 
                  har inga kompisar i sin kompislista!<br>
                  <img border="0" src="Bilder/Smile/ledsen_genom.gif"><br>
                  <img border="0" src="Bilder/1pxtrans2.gif"></font></p>
                  </td>
                </tr>

                <%End if%>
              </table>
              </td>
            </tr>
          </table>
          <div align="center">
            <center>
            <table cellSpacing="0" cellPadding="0" width="415" border="0" height="4" style="border-collapse: collapse" bordercolor="#111111">
              <tr>
                <td height="1" width="24" align="left">
                <table cellSpacing="0" cellPadding="0" width="414" border="0" style="border-collapse: collapse" bordercolor="#111111" height="1">
                  <tr>
                    <td height="1" align="center"><font size="1" face="Arial">
                    <img border="0" src="Bilder/1pxtrans2.gif"><br>
                    <img border="0" src="Bilder/1pxtrans2.gif"><img border="0" src="Bilder/Streck.gif" width="407" height="1"></font></td>
                  </tr>
                </table>
                </td>
              </tr>
            </table>
            <table cellSpacing="0" cellPadding="0" width="415" border="0" height="1">
              <tr>
                <td height="1" width="24"><font face="Arial" size="1">
                <img border="0" src="Bilder/Meny/foregaende.GIF"><img height="1" src="default-filer/1x1.gif" width="5"></font></td>
                <td height="1" width="371">
<font size="1" face="Arial">                <%
   If maxcount <> 0 then
   pad = "0"
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter >= 10 then
      pad = ""
   End If
   ref = "<a href='" & scriptname & "?sida=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
   response.write ref & " "
   Next
   End If
%>

Vad får du för fel och på vilken rad?

------------------
//M@rtin || Peachy.nu\\

ni taLar Bra laTiN

Kompileringsfel i Microsoft VBScript (0x800A03FB)
'Loop' förväntas.
/kompisar.asp, line 234
ELSE

Koden ser lite underlig ut. Du har två stycken Do och en Loop...

------------------
/Erik
www.juhlin.nu /sk8files/ /mp3d/

<% IF NOT (RecSet.EOF) THEN %>
                  <td width="120" height="1"><b><font face="Arial" size="2">Användarnamn:</font></b></td>
                  <td width="41" height="1" align="center">
                  <p align="left"><b><font face="Arial" size="2">IRL:</font></b></td>
                  <td width="198" height="1"><b><font face="Arial" size="2">Relation:</font></b></td>
                  <td width="32" height="1"><b><font face="Arial" size="2">Datum:</font></b></td>
                </tr>
                <tr>
                  <td width="410" height="1" colspan="5"><font face="Arial">
                  <img border="0" src="Bilder/Streck.gif" width="407" height="1"></font></td>
                </tr>
                <tr>
                  <font face="Arial">
[b]<% Do Until RecSet.EOF %>[/b]
<%

recset.movefirst
   recset.pagesize = mypagesize
   maxcount = Cint(recset.pagecount)
   recset.absolutepage = mypage
   
   
   howmanyrecs = 0
   howmanyfields = recset.fields.count -1
   Do While Not RecSet.EOF AND howmanyrecs < recset.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = "#FFFFFF"
   Else
      color = "#F0F0F0"
   End If
%>

  
</font>
                  <td height="1" bgcolor="<%=color%>"><font face="Arial" size="1"> <%If RecSet2("status") = "offline" Then%><img border="0" src="Bilder/offline.gif"><%Else%><img border="0" src="Bilder/online.gif"><%End If%> <a href="krypin.asp?checkid=<%=recset("id2")%>"><%=RecSet("namn")%> <%=left(recset2("kon"),1)%>
        <%newage=DateDiff ("d", recset2("alder"), Now)
		newage = newage - (newage Mod 365)
		newage = newage / 365
		response.write(newage)%>
		
		</a></td>
                  <td width="29" height="1" bgcolor="<%=color%>" align="center"><font face="Arial" size="1"><%=RecSet("IRL")%></td>
                  </font><font size="1" face="Arial"><font face="Arial">
                  <td width="165" height="1" bgcolor="<%=color%>"><font face="Arial" size="1"><%=RecSet("Relation")%></td>
                  </font><font size="2" face="Arial">
                  <td width="131" height="1" bgcolor="<%=color%>">
                  <font face="Arial" size="1"><%=RecSet("blevkompis")%></font></td>
                  </font><font size="2" face="Arial" color="#FF0000">
                  <td height="1" width="3"></td>
                </tr>
                <% 
RecSet.MoveNext
RecSet2.MoveNext
howmanyrecs = howmanyrecs + 1
Loop
Set RecSet = Nothing
Set RecSet2 = Nothing
RecSet.Close
connect.Close
%>

</font></font><font size="2" face="Arial" color="#FF0000"><% ELSE %>

              </table>
              </font></td>
            </tr>
            <tr>
              <td height="1" colspan="2" align="center">
              <font size="1" face="Arial">
              <img border="0" src="Bilder/1pxtrans2.gif"><br>
              <img border="0" src="Bilder/1pxtrans2.gif"><img border="0" src="Bilder/Streck.gif" width="407" height="1"><br>
              <img border="0" src="Bilder/1pxtrans2.gif" width="1" height="3"></font></td>
            </tr>
            <tr>
              <td height="1" colspan="2" align="center">
              <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="406">
                <tr>
                  <td width="404">
                  <p align="center"><font size="1" face="Arial">Tyvärr  <%=Request.querystring("vem")%> 
                  har inga kompisar i sin kompislista!<br>
                  <img border="0" src="Bilder/Smile/ledsen_genom.gif"><br>
                  <img border="0" src="Bilder/1pxtrans2.gif"></font></p>
                  </td>
                </tr>

                <%End if%>
              </table>
              </td>
            </tr>
          </table>
          <div align="center">
            <center>
            <table cellSpacing="0" cellPadding="0" width="415" border="0" height="4" style="border-collapse: collapse" bordercolor="#111111">
              <tr>
                <td height="1" width="24" align="left">
                <table cellSpacing="0" cellPadding="0" width="414" border="0" style="border-collapse: collapse" bordercolor="#111111" height="1">
                  <tr>
                    <td height="1" align="center"><font size="1" face="Arial">
                    <img border="0" src="Bilder/1pxtrans2.gif"><br>
                    <img border="0" src="Bilder/1pxtrans2.gif"><img border="0" src="Bilder/Streck.gif" width="407" height="1"></font></td>
                  </tr>
                </table>
                </td>
              </tr>
            </table>
            <table cellSpacing="0" cellPadding="0" width="415" border="0" height="1">
              <tr>
                <td height="1" width="24"><font face="Arial" size="1">
                <img border="0" src="Bilder/Meny/foregaende.GIF"><img height="1" src="default-filer/1x1.gif" width="5"></font></td>
                <td height="1" width="371">
<font size="1" face="Arial">                <%
   If maxcount <> 0 then
   pad = "0"
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter >= 10 then
      pad = ""
   End If
   ref = "<a href='" & scriptname & "?sida=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
   response.write ref & " "
   Next
   End If
%>

ska verkligen den fetmarkerade raden vara där....??

det är därför du får det felet, för att du har två stycken Do While men bara en loop...

------------------
-::|ic@@q|::-

får endå samma felmess!!!

detta stycke ser konstigt ut:

<td height="1" bgcolor="<%=color%>"><font face="Arial" size="1"> <%If RecSet2("status") = "offline" Then%><img border="0" src="Bilder/offline.gif"><%Else%><img border="0" src="Bilder/online.gif"><%End If%>

Om du ska ha en If sats med flera argument så måste den stå på flera rader, ett exempel
Där du har ett argument

If LCase(strStatus) ="online" Then imgBild = "Bilder/online.gif"

flera argument....

If LCase(strStatus) ="online" Then
imgBild = "Bilder/online.gif"
Else
imgBild = "Bilder/offline.gif"
End If

kolla mer på webeye.nu :)

vet ej om detta hjälper just i din situation men du kan ju alltid försöka :)

------------------
-::|ic@@q|::-

[Redigerat av icaaq den 12 jan 2002]

[Redigerat av icaaq den 12 jan 2002]

[Redigerat av icaaq den 12 jan 2002]

Här har du en DO slinga

<% Do Until RecSet.EOF %>

Men du har två RecSet.MoveNext

RecSet.MoveNext
RecSet2.MoveNext
howmanyrecs = howmanyrecs + 1
Loop

Jag gissar att det är för din andra movenext som du får fel.

------------------
saw
__
saw@songer.com
www.mp3.com/saw_songer
__

Det har nog inte med att han har två Recordsets igång vilket kanske inte är så smidigt och rätt, men inte genererar något fel.
Felet kommer ju av att han försöker dra igång två loopar, men har bara en "Loop".

------------------
/Erik
www.juhlin.nu /sk8files/ /mp3d/