Her nedenfor har jeg en velfungerende loop, men den har et problem. Den
viser 5 records pr. række i tabellen, men hvis nu der er f.eks. 23 records,
så betyder det at de 2 sidste felter i tabellens sidste række bliver tomme,
og det ødelægger tabellen design. Derfor vil jeg gerne have, at tabellen
vises sådan, at en række altid er afsluttet med en form for indhold. Hvis
der kun er 23 records, så skal de 2 sidste felter i tabellens sidste række
vises som streger "-" der indikerer at der ikke er noget indhold.
Men hvordan gøre det, rent kodemæssigt?
Her er den eksisterende velfungerende kode:
<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ="&Server.MapPath("db.mdb")
%>
<html><head></head><body>
<%
SQL = "SELECT * FROM favorit ORDER BY Id"
set RS = Conn.execute(SQL)
if RS.EOF or RS.BOF then
response.redirect("topdating.asp?mode=fejl")
End if
%>
<TABLE WIDTH=50% CELLPADDING=0 align=center CELLSPACING=0 BORDER=1
bordercolor="0000ff">
<TR ALIGN=CENTER valign=middle class=sort11>
<%
nummer = 1
Do While Not RS.Eof
nummer = nummer + 1
%>
<TD ALIGN="CENTER" VALIGN="middle" width="20%">
<%= rs("Id")%>
</TD>
<%
' 5 records pr. række:
If nummer Mod 5 = 1 Then
response.write " </TR><TR>"
end if
RS.MoveNext
Loop
response.write "</tr></table>"
RS.Close
Set RS = Nothing
Conn.Close
%>
</body>
</html>
Hvad skal ændres, så den viser "-" i de sidste tomme felter i tabellens
sidste række?
v.h.
Jakob Munck