celler

varför funkar det inte

                  </tr>
                  <tr>
<%FOR i = 1 TO 10
IF RS.EOF then 
Exit FOR
END IF%>

<%
   howmanyrecs = 0
   howmanyfields = rs.fields.count -1
   Do While Not RS.EOF AND howmanyrecs < rs.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = "#FFFFFF"
   Else
      color = "#F0F0F0"
   End If
%>
                    <td width="136" height="1" bgcolor="<%= color %>">

                    <font size="1" face="Arial">&nbsp;<img border="0" src="Bilder/relationonline.gif">&nbsp;<a href="krypin.asp?checkid=<%=rs("id")%>"><%Response.Write RS("username")%></a>&nbsp;<%=left(rs("kon"),1)%><%=RS("alder")& "<br>"%></font></td>                                            
                    <td width="112" height="1" bgcolor="<%= color %>">
                    <font size="1" face="Verdana">
    <%Response.Write RS("stad") & "<br>"%> </font>
                     </td>                                            
                    <td width="116" height="1" bgcolor="<%= color %>">
                    <font size="1" face="Arial"><%Response.Write RS("minonline") & "<br>"%></font></td>                                            
                    <td height="1" bgcolor="<%= color %>">
                    <%if rs("bild") = "Bilder/Medlemmar/ingen.gif" then%><font size="1">
                    </font>
                    <p align="left"><font size="1" face="Arial">Nej <%else%> </font>

<font face="Arial,Helvetica" size="-1">
                    <A HREF="javascript:void(0)" ONMOUSEOVER="showBlowup('jason','eg2')" ONCLICK="showBlowupInNewWindow('jason-large.html',525,425)">
<IMG NAME="eg2" BORDER="0" src="Bilder/ja.gif"></A><%End if%> </td>  
             </tr> 
             <%   
                                rs.movenext
   howmanyrecs = howmanyrecs + 1
   Loop
   rs.close
   Set rs = nothing
   %>                    
   <% 
Set Cn = Server.CreateObject("ADODB.Connection") 
Cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";"

Set RS = Server.CreateObject("ADODB.Recordset")

stm = "SELECT * FROM members where status = 'online'"
stm = stm & "ORDER BY datum "& orderby &" DESC"
SET RS = Cn.Execute(stm)

RS.Movenext
Next
RS.Close
Cn.Close

%>

  

                </table>

------------------
ASP är bäst fuck the rest!!!

Set Cn = Server.CreateObject("ADODB.Connection") 
Cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";"

Set RS = Server.CreateObject("ADODB.Recordset")

stm = "SELECT * FROM members where status = 'online'"
stm = stm & "ORDER BY datum "& orderby &" DESC"
SET RS = Cn.Execute(stm)

RS.Movenext
Next
RS.Close
Cn.Close

Varför loppar du igenom ett rs när du inte visar någon info i loopen

------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !

funkar inte vda gör loop

[Redigerat av jboy_87 den 18 dec 2001]

har fixat :-)

------------------
ASP är bäst fuck the rest!!!