3 x loop wandret før den går til næste linie
Jeg sider og roder lidt, og forsøger at lave noget lignende ( http://images.google.com/images?svnum=10&hl=en&lr=&biw=1280&q=computer&btnG=Search ), men problemet er at jeg ikke aner hvordan man laver det sådan at der er 3 loop wandret før den går til næste linie nedad, er det en der ved hvordan man gør det?Eller har link til tutorial, eller lige kan hjælpe med det ?
Her er koden:
<%
' Connecter til Databasen
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
Sql = "Select * from b_undermenu order by id ASC"
Set RS = conn.execute(SQL)
%>
<html>
<head>
<title>Sønderjysk vinimport.dk</title>
<link rel="stylesheet" type="text/css" href="include/style.css">
</head>
<body>
<table border="0" cellpadding="4" cellspacing="4" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="100%">
<img border="0" src="images/overskrifter/overskrift-katalog.gif"></td>
</tr>
<tr>
<td width="100%">
<img border="0" src="images/blank.gif"></td>
</tr>
</table>
<p>
<center>
<%
Response.Write "<h3>" & Request.Querystring("navn") & "</h3>"
%>
</center>
<%
Sql = "select * from b_undermenu where undermenu = '" & Request.querystring("navn") & "'"
Set RS = conn.execute(SQL)
if RS.eof then
else
do while not RS.eof
undermenu=replace(undermenu, chr(13),"<br>")
%>
<table border="0">
<tr>
<td align="center">
<img border="0" src="images/vinflaskerthumbs/<%=RS("thumb")%>.jpg"><br>
</td>
</tr>
<tr>
<td style="background-color: #EDEDED" >
<img border="0" src="images/blank.gif" width="1" height="1"></td>
</tr>
<tr>
<td>Produceret:
<%=RS("Aar")%><br>
Type:
<%=RS("Type")%><br>
<%=RS("FlStr")%> l. flaske.</td>
</tr>
<tr>
<td style="background-color: #EDEDED" >
<img border="0" src="images/blank.gif" width="1" height="1"></td>
</tr>
<tr>
<td>
Se mere information her.</td>
</tr>
<tr>
<td>
<%=RS("Andet")%></td>
</tr>
</table>
</p>
<%
RS.movenext
loop
Set conn = Nothing
end if
%>
</body>
</html>
