Kolonner

Prøv me dnne tilrettede kode..


<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("admin/db.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from cii Order By ID DESC"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

  response.write "<table>"

  if rs.eof then
    response.write "No companies yet!"
  else
' Gennemløb Recordset (rs) med en løkke

colPrRow = 2
noColPrRow = 0
  Do
    if noColPrRow = 0 then Response.write "<tr>"
   
    Response.write "<td>"
    strLink = "<input type='button' value='" & rs("virksomhed") & "' onclick='document.location='cii_details.asp?id=" & rs("ID") & "'>';'>"

  Response.Write "<p>" & strLink & "</p>"
  Response.write "</td>"

  noColPrRow = noColPrRow +1
  if noColPrRow = colPrRow then
    Response.write "</tr>"
    noColPrRow = 0
  end if

  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
if noColPrRow > 0 then response.write "</tr>"
end if
Response.write "</table>"

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

Tusind tak for hjælpen