Utskriv til flere kolonner fra database
Jeg skal ha en utlisting fra database der den skal skrive til at antall gitte kolonner.<%
set adoRs = Server.CreateObject("ADODB.Recordset")
strSQL = "Select BKategori,BildeCategori,BildeCatInfo From tblFPFBilder,tblFPFBildeCategori WHERE BAktiv='JA' AND BKategori=BildeCatID order by BildeCatPriority DESC,BildeCategori DESC"
set adoRs = adoCn.Execute(strSQL)
Response.Write "<center>"
Response.Write "<table width='80%' border='1' cellspacing='2' cellpadding='2'>"
intAntallKolonner = 1
intAntallKolonnerPrRekke = 2
Do While Not adoRs.EOF
If Cat <> adoRs("BKategori") Then
set adoRSCountCat = Server.CreateObject("ADODB.Recordset")
strSQL = "Select count(BID) as AntallCat From tblFPFBilder WHERE BKategori=" & adoRs("BKategori") & "AND BLeverandor=" & Session("LID")
Set adoRSCountCat = adoCn.Execute(strSQL)
intCountBilderCat = adoRsCountCat("AntallCat")
adoRsCountCat.Close
set adoRsCountCat = nothing
Cat = adoRs("BKategori")
Response.Write "<tr valign='top'>"
Response.Write "<td width='5%' align='righ'>"
Response.Write "<a href='#'><img src='images/galleri/category.gif' border='0'></a>"
Response.Write "</td>"
Response.Write "<td width='43%'>"
Response.Write "<a href='#'>" & adoRs("BildeCategori") & "</a> (9)<br>" & adoRs("BildeCatInfo")
Response.Write "</td>"
If intAntallKolonner <> intAntallKolonnerPrRekke Then
Response.Write "<td width='4%'> </td>"
Response.Write "<td width='5%' align='right' valign='top'>"
Response.Write "<a href='#'><img src=images/galleri/category.gif border=0></a>"
Response.Write "</td>"
Response.Write "<td width='43%'>"
Response.Write "<a href='#'>Business</a> (5)<br>Business Related Images"
Response.Write "</td>"
Response.Write "</tr>"
End if
End if
adoRs.MoveNext
intAntallKolonner = intAntallKolonner + 1
Loop
adoRs.Close
set adoRs = nothing
Response.Write "</table>"
Response.Write "</center>"
