Pæn udskrift i tabel fra Access database

eks:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset") 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")

SQL = "SELECT * FROM tabelnavn"
Set rs = Conn.Execute(SQL)

Response.Write "<table align="center">"
'Udskriv kolonnenavne
Response.Write "<tr>"
Response.Write "<td>Første Kolonne</td>"
Response.Write "<td>Dato Tid 1</td>"
Response.Write "<td>Dato Tid 2</td>"
Response.Write "</tr>"

'Udskriv indhold af kolonnerne
do while not rs.EOF
  Response.Write "<tr>"
  Response.Write "<td>" & rs("kolonnenavn") & "</td>"
  Response.Write "<td>" & rs("datokol1") & "</td>"
  Response.Write "<td>" & rs("datokol2") & "</td>"
  Response.Write "</tr>"
  rs.MoveNext
loop

Response.Write "</table>"
Conn.Close
%>

Jeg har lavet et alternativ som udskriver alle kolonnerne som er valgt i SQL sætningen:

<%
SQL = "SELECT * FROM tabelnavn"
Set rs = Conn.Execute(SQL)

Response.Write "<table align=""center"">"
'Udskriv kolonnenavne
if not rs.EOF then
  Response.Write "<tr>"
  for each f in rs.Fields
    Response.Write "<td>" & f.name & "</td>"
  next
  Response.Write "</tr>"
end if
'Udskriv indhold af kolonnerne

Response.Write "<tr><td>"
Response.Write rs.GetString (, -1, "</tr><td>", "</td></tr><tr><td>", NBSPACE) 
response.write "</table>"
%>

I svaret skal denne linje:
Response.Write "<table align="center">"

Rettes til:
Response.Write "<table align=""center"">"

Tak endnu engang eagleeye! :-)
Har dog ikke prøvet det, men nu har det
virket de sidste par gange du har hjulpet
mig så jeg tror på dig også denne gang! :-)
Ender jo med at jeg skal kalde dig Master Eagleeye.. hehe

Hey Eagleeye.
Den kommer med følgende fejl når jeg kører
dit script.


Microsoft VBScript compilation error '800a0410'

Invalid 'for' loop control variable

/esbjerg.asp, line 46

for each f in rs.fields
-----------^


Jeg ved ikke om jeg har rettet det hele rigtigt til,
men her er koden.


  <%
 
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=c:\leveringsdata\mobiltelefon\mobiltelefoner.mdb"
Conn.Open DSN


SQL = "SELECT * FROM Esbjerg"
Set rs = Conn.execute(SQL)

Response.write "<table align=""Center"">"
'Udskriv kolonnenavne
if not rs.EOF then
    Response.Write "<tr>"
        for each f in rs.Fields
            Response.Write "<tr>"
            for each f in rs.fields
            response.write "<td>" & f.name & "</td>"
            next
            Response.write "</tr>"
        end if
        'Udskriv indhold af kolonne
       
        Response.write "<tr><td>"
        Response.write rs.getstring (, -1, "</td><td>", "</td></tr><tr><td>", NBSPACE)
        response.write "</table>

Conn.Close
Set Conn = Nothing
%>

Tak Eagle!
Det ruller nu!
Du havde sat en  for each f in rs.Fields for meget
på.. :-)