List rækker, fremfor kolonner
Jeg har dette script hvor jeg angiver hvor mange kolonner jeg vil have udskrevet,jeg vil i stedet så jeg angiver hvor mange rækker i min tabel jeg ønsker - altå lige modsat, nogle der kan hjælpe med det?<table border="0" cellpadding="2" cellspacing="0">
<tr>
<%
Set rsGenre = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from Genre order by genre"
rsgenre.Open strsql, Conn, 1
'if rsListe.EOF then
'response.write "Der er ingen film at vise under denne forespørgsel."
'else
AntalKolonner = 4' Juster denne hvis der skal være et andet antal kolonner
counter = 0
Do While Not rsGenre.EOF
Set rsCount = Conn.Execute("SELECT COUNT(*) AS count FROM Film2Genre WHERE Genreid = " & rsGenre("genreID") & " ")
Antal = rsCount("count")
rsCount. close
set rsCount= Nothing
%>
<td class="menugenrecel"><a class="menulink" href="./?Page=List&cmd=Genre&ID=<%= RSGenre("GenreID")%>"><%= RSGenre("Genre")%></a></td><td>(<%=antal%>)</td> <%
RSgenre.MoveNext
'Wend
counter = counter + 1
if counter mod AntalKolonner = 0 then
response.Write " </tr>" & vbCrLf
if not rsgenre.eof then
response.Write " <tr>" & vbCrLf
end if
end if
loop
' udfyld resten af cellerne i den aktuelle række
do while counter mod AntalKolonner <> 0
response.Write "<td> </td>"
counter = counter + 1
loop
Set RSGenre=Nothing
%>
</table>
