Udtag fra database

Du skal hente alt ud i eet udtræk, og så lave noget løkkeværk som eks:

<%
Do Until rs.EOF
  For iCnt = 1 To 3
%>
<img src="<%=rs("image")">
<%
    rs.MoveNext
    If(rs.EOF) Then Exit For
  Next
  Response.Write("<br>")
Loop

%>

Sikkert med en masse mere HTML, men du burde fange ideen.
Grunden til at der checkes på EOF efter MoveNext, er at den inderste løkke kan forsætte ud over EOF, og det vil give fejl.

- Rou

<table><tr>
<%
while !EOF
x=x+1
response.write "<td>" & rs("billede") & "<td>"
if x=10 then
  response.write "</tr><tr>"
  x=0
end if

rs.movenext

loop

%>

</table>



Dette er bare noget jeg lige har skrevet - Skal efter tjekkes for syntaks fejl

response.write "<td>" & rs("billede") & "<td>"

skal lige rettes til

response.write "<td>" & rs("billede") & "</td>"

<%Dim antalTmp
Dim antal

antal = 10
antalTmp = 0

.....
....
..
strSQL = "Select billede from......"
rs.Open strSQL, conn
do until rs.EOF
      antalTmp = antalTmp + 1
      Response.Write("<img src=""" & rs("billede").Value & """ width=40  height=40>")
      If antal=antalTmp then
      response.Write("<br>")
      antalTmp = 0
      end if
  rs.MoveNext

loop
rs.close
conn.close
%>

Ovenstående burde umiddelbart virke!!

Man kan altid lægge billederne lidt flottere med nogle <table>'s men det kan du jo selv rode med!!

Yo!
BabyDope