14. december 2002 - 13:50Der er
11 kommentarer og 1 løsning
Kolonner VS Rækker
Hey Jeg plejer at udskrive mit ResultSet i rækker - altså nedad så at sige fx. ----------- 1 2 3 4 5 6 7 8 ... ------------- Men hvis jeg gerne vil udskrive det i kollonner a' fx 3 - altså henad og ned ad så at sige fx. ------------- 1 2 3 4 5 6 7 8 ... ------------- Hvordan dælen gør man det?
AI rykker fra teknologiagendaen til den strategiske dagsorden. Men for mange er vejen fra ambition til målbar værdi længere end forventet.
Slettet bruger
14. december 2002 - 13:53#1
et eksempel herpå:
Set RS = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT top 180 * FROM ama order by dato DESC, ID ASC" strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("*.mdb")
rs.Open strSQL, strDSN, 1
If Not (RS.BOF Or RS.EOF) Then
intCounter = 0 while not rs.eof if intCounter mod 3 = 0 then Response.Write("</tr><tr>") Response.Write("<td width=""25%"" align=""""><h1 style='display: inline;'><a class=""rod"" href='" & rs("link") & "' target='_blank'>Link</a> </h1><h3 style='display: inline;'>" & rs("dato") & "</h3></td>") intCounter = intCounter + 1 rs.movenext wend if intCounter mod 3 = 1 then Response.Write("<td> </td>")
Det giver en uendelig løkke... ------------ strSQL2 = "SELECT * FROM Varer WHERE Kategori = 46 ORDER BY Dansk_Vare_Navn;" set rs2 = conn.execute( strSQL2 )
If Not (RS2.BOF Or RS2.EOF) Then
intCounter = 0 while not rs2.eof
if intCounter mod 3 = 0 then Response.Write("</tr><tr>") Response.Write("KOLONNEN") intCounter = intCounter + 1 rs2.movenext end if wend if intCounter mod 3 = 1 then Response.Write("<td> </td>") end if
Ups, prøver lige igen. Det er det her der giver en uendelig løkke... ------------ strSQL2 = "SELECT * FROM Varer WHERE Kategori = 46 ORDER BY Dansk_Vare_Navn;" set rs2 = conn.execute( strSQL2 )
If Not (RS2.BOF Or RS2.EOF) Then
intCounter = 0 while not rs2.eof
if intCounter mod 3 = 0 then Response.Write("</tr><tr>") Response.Write("KOLONNEN") intCounter = intCounter + 1 rs2.movenext end if wend if intCounter mod 3 = 1 then Response.Write("<td> </td>") end if
rs2.Close Set rs2 = Nothing
Synes godt om
Slettet bruger
14. december 2002 - 15:29#4
da ikke når du har begrænset den til while not rs.eof
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.