lave ny tabel for hvert 5 recordset

ved siden af?  eller neden under?

tænker du på pagin? så kig her; http://activedeveloper.dk/aspdigital/kapitel2/paging.asp

nej ikke pageing, for jeg vil have alle resultater vist på en gang...bare i flere rækker ved SIDEN af hinanden

således

række 1 ! række 2 ! række 3
-----------------------------
post 1  post 5  post  9
post 2  post 6  post 10
post 3  post 7  post 11
post 4  post 8  post 12

du skal bruge colspan og rowspan...

/Bjarke - (KLEIFDESIGN)

min kode ser således ud foreløbig
---------------------------
do while NOT RS.EOF
response.write "<td><tr><INPUT TYPE=""radio"" NAME=""index"" VALUE="& rs("hovedgruppe") &" CHECKED><INPUT TYPE=""hidden"" NAME=""mode"" VALUE=""test"">"& rs("hovedgruppe") &"</tr><tr></td>"
rs.Movenext
loop
rs.Close
Set rs = Nothing
end if
------------------------
og her laver den en lang liste
den skal deles op i kolonner der skal være ved siden af hianden med 5 recordset i hver kolonne
dvs hvis der er 50 poster laver den 10 kolonner ved siden af hinanden

Jeg har en kode der deler den sådan op:

post1 post2 post3 post4
post5 post6 post7 post8
post9 post10 post11 post12

er du interesseret i den?
Så kan du se prinsippet...

/Bjarke - (KLEIFDESIGN)

musicchart.dk

ja tak  meget intrerseret

mvh
baltazar

her:

<%Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/mypage/real thing/dbase/dbase.mdb")
Conn.Open DSN

strSQL = "Select * From billeder Where kat = 'photo'"

Set rs = Conn.Execute(strSQL)

Do

if rs.EOF then
  Response.write "Ingen billeder i databasen."
else
  colPrRow = 4
  colInRow = 0
  response.write "<table width=""450"" border=""0"">"
  do while NOT RS.EOF
    if colInRow = 0 then response.write "<tr>"
    response.write rs("preview")
    colInRow = colInRow + 1
    if colInRow >= colPrRow then
      colInRow = 0
      response.write "</tr>"
    end if
    RS.MoveNext
  loop
  if colInRow > 0 then
    Response.Write "</tr>"
  end if
  response.write "</table>"
end if

Loop While Not rs.EOF

conn.Close
Set Conn = Nothing
%>

hmm rettede lidt for meget i den. Du får den lige igen med alle mine tabeller:

<%Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/mypage/real thing/dbase/dbase.mdb")
Conn.Open DSN

strSQL = "Select * From billeder Where kat = 'photo'"

Set rs = Conn.Execute(strSQL)

Do

if rs.EOF then
  Response.write "Ingen billeder i databasen."
else
  colPrRow = 4
  colInRow = 0
  response.write "<table width=""450"" border=""0"">"
  do while NOT RS.EOF
    if colInRow = 0 then response.write "<tr>"
    response.write "<td><table width=""100"" border=""0"" cellspacing=""1"" cellpadding=""0"" height=""127"" bgcolor=""#000000""><tr><td bgcolor=""#FF0000""><div align=""center""><font face=""Geneva, Arial, Helvetica, san-serif"" size=""2"" color=""#FFFFFF"">" & rs("overskrift") & "</font></div></td></tr><tr><td>" & "<img src=""../images/photoshop/" & rs("preview") & """>" & "</td></tr><tr><td bgcolor=""#FF0000""><div align=""center""><font face=""Geneva, Arial, Helvetica, san-serif"" size=""2"" color=""#FFFFFF""> <a href=preview.asp?billede=" & rs("800x600") & " " & "target=""_blank"">800x600</a> </font></div></td></tr><tr><td bgcolor=""#FF0000""><div align=""center""><font face=""Geneva, Arial, Helvetica, san-serif"" size=""2"" color=""#FFFFFF""><a href=preview.asp?billede=" & rs("1024x768") & " " & "target=""_blank"">1024x768</a></font></div></td></tr></table></td>"
    colInRow = colInRow + 1
    if colInRow >= colPrRow then
      colInRow = 0
      response.write "</tr>"
    end if
    RS.MoveNext
  loop
  if colInRow > 0 then
    Response.Write "</tr>"
  end if
  response.write "</table>"
end if

Loop While Not rs.EOF

conn.Close
Set Conn = Nothing
%>

virker den også til access 2000    for en intern server fejl på den

har du lavet den om så den passer til din database?

ókey nu virker det connection igen...server problem
Men
den giver mig kun en række stadigt
her er koden som jeg har på nuværende tidspunkt.....


Set myConn = Server.CreateObject("ADODB.Connection")

myConn.Open "DRIVER={Microsoft Access Driver

(*.mdb)};DBQ="&Server.MapPath("konfliktdatabase.mdb")

'myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath(" &

request.querystring(""index"")")& ".mdb"

sql = "SELECT * FROM hovedgruppe order by ID"


set rs = myconn.execute(sql)

If (rs.BOF AND rs.EOF) Then

    Response.write "There is no data matching"
Else


Do

if rs.EOF then
  Response.write "Ingen billeder i databasen."
else
  colPrRow = 4
  colInRow = 0
  response.write "<table width=""450"" border=""0"">"
  do while NOT RS.EOF
    if colInRow = 0 then response.write "<tr>"
    response.write "<td><tr><INPUT TYPE=""radio"" NAME=""index"" VALUE="& rs("hovedgruppe") &"

CHECKED><INPUT TYPE=""hidden"" NAME=""mode"" VALUE=""test"">"& rs("hovedgruppe")

&"</tr><tr></td>"
    colInRow = colInRow + 1
    if colInRow >= colPrRow then
      colInRow = 0
      response.write "</tr>"
    end if
    RS.MoveNext
  loop
  if colInRow > 0 then
    Response.Write "</tr>"
  end if
  response.write "</table>"
end if

Loop While Not rs.EOF



rs.Close

Set rs = Nothing

end if

jeg kan godt nik ikke ligfe genneskue hvordan din kode giver mig fire vandrette rækker med samme recordset

nååå sorry... troede at du ville lave enpost for hvert recordset... *sorry*

helt i orden