Her er en generisk som kan udskrive alle kolonner i en given tabel:
Du må selv lige rette Coinnection sa,mt SQL til:
<html> <head></head> <body> <% Set Conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.recordset") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db5.mdb")
SQL = "SELECT * FROM tabel;" Set rs = Conn.Execute(SQL)
Response.Write "<table>"
'Udskriv kolonnenavne if not rs.EOF then Response.Write "<tr>" for each f in rs.Fields Response.Write "<td>" Response.Write f.name Response.Write "</td>" next Response.Write "</tr>" end if 'Udskriv indhold af kolonnerne do while not rs.EOF Response.Write "<tr>" for each f in rs.Fields Response.Write "<td>" Response.Write f Response.Write "</td>" next Response.Write "</tr>" rs.MoveNext loop
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.