Udtræk

Du kan indsætte response.write \"<br>\" der er et linie skift.

lndsætTæller = 0

...

indsætRecord
indsætTæller=(indsætTæller+1 MOD 3)    \'Tælle 0-1-2-0-1-2
if lndsætTæller=0 then
  response.write \"<br>\"
end if

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"kort.mdb\")
strSQL = \"select* from kort where KortKat = \" & Request.Querystring(\"id\") & \"\"
set rs = Conn.execute(strSQL) %>
    <tr><td><center><font face=verdana size=2>
<%
count = 0
Do until rs.eof
%>
    <a href=create_card.asp?id=<%=rs(\"kortId\")%>><img widht=100 height=100 src=kort/<%=rs(\"KortUrl\")%>></a>
<%
count = (count+1 MOD 3)
if count=0 then
  response.write \"<br>\"
end if 

rs.MoveNext
  Loop
rs.Close
Set rs = Nothing%>

Sådan,

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"kort.mdb\")
strSQL = \"select* from kort where KortKat = \" & Request.Querystring(\"id\") & \"\"
set rs = Conn.execute(strSQL) %>
    <tr><td><center><font face=verdana size=2>
<%
count = 0
Do until rs.eof
%>
    <a href=create_card.asp?id=<%=rs(\"kortId\")%>><img widht=100 height=100 src=kort/<%=rs(\"KortUrl\")%>></a>
<%
count = count + 1
if count=3 then
  response.write \"<br>\"
  count = 0
end if 

rs.MoveNext
  Loop
rs.Close
Set rs = Nothing%>

Sådan, ordnede det selv

lidt for ulejligheden