---
title: "celler"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13245-celler"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jboy_87"
published: "2001-12-18T13:33:00.000Z"
updated: "2001-12-18T14:25:00.000Z"
replies: 3
views: 145
page: 1
pages: 1
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/13245-celler"
---

# celler

## #1 — jboy_87, 2001-12-18T13:33Z

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>
```

Permalänk: https://www.webforum.nu/p/13245

## #2 — erka, 2001-12-18T13:48Z

```
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

Permalänk: https://www.webforum.nu/p/301048

## #3 — jboy_87, 2001-12-18T13:59Z

funkar inte vda gör loop

\[Redigerat av jboy_87 den 18 dec 2001\]

Permalänk: https://www.webforum.nu/p/301049

## #4 — jboy_87, 2001-12-18T14:25Z

har fixat :-)

Permalänk: https://www.webforum.nu/p/301050

---

Tråden på webben: https://www.webforum.nu/amne/asp/13245-celler