ok det virkede ikke hos mig med et field, det gad den ikke oprette
Men det virker med et schema, det løber hele databasen igennem, så der skal man bare huske definere den enkelte tabelnavn
----
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
response.write "<TABLE width=800px; border=1px; bordercolor=#99CCFF>"
response.write "<tr>"
Set rs=Conn.OpenSchema(4)
do until rs.EOF
if rs("TABLE_NAME") = "bruger" then
response.write "<th>"&rs("COLUMN_NAME")&"</th>"
end if
rs.MoveNext
loop
response.write </tr>
strSQL = "Select * From bruger Order by ID Desc"
Set rs = Conn.Execute(strSQL)
Do
bcshift=not bcshift
if bcshift then
Bc = "1 px bccolor=#FFFFFF"
Bg = "bgcolor=#FFFFFF"
else
Bc = "1 px bccolor=#FFFFFF"
BG = "bgcolor=#FFFFFF"
end if
response.write "<TR " & BC & " ><td height=30>" & rs ("Username") & "</TD><td height=30>" & rs("Name") & "</TD><td height=30>" & "<a href='mailto:" & rs("Email") & "'>" & rs("Email") & "</a>" & "</TD><td height=30>" & rs("Subject") & "</TD><td height=30>" & rs("Comment") & "</TD><td height=30>" & rs("Phone") & "</TD></TR>"
rs.MoveNext
Loop until rs.eof
response.write "</TABEL>"
Conn.Close
Set Conn = Nothing
%>
