Udskrive et helt recordset

Pluk selv fra nedenstående:

<!-- #include file="index_inc.asp" -->

<%
response.buffer=true
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Cache-Control", "private"
%>
<html>

<head>
<title>Rediger poster</title>
<meta http-equiv="pragma" content="no-cache">
</head>

<body bgcolor="#FFFFFF">
<%

mySQL="select ID, Indeks, beskrivelse from indeks order by indeks"
IDfield="Id"
scriptresponder="red_index.asp"

set conntemp=server.createobject("adodb.connection")
conntemp.open strconnect
set rstemp=conntemp.execute(mySQL)
howmanyfields=rstemp.fields.count -1
%>

<p><font face="Arial Black">Opdater databasen</font></p>

<table border="1">
  <tr>
    <td valign="top">---</td>
<% 'Put Headings On The Table of Field Names
for i=0 to howmanyfields %>
    <td><b><%=rstemp(i).name %></b>&nbsp;</td>
<% next %>
  </tr>
<% ' Now lets grab all the records
do  while not rstemp.eof %>
  <tr>
    <td valign="top"><%my_link=scriptresponder & "?which=" & rstemp(idfield)%>
<p><a HREF="<%=my_link%>">Opdater</a></td>
<% for i = 0 to howmanyfields%>
    <td valign="top"><%=rstemp(i)%> &nbsp;</td>
<% next %>
  </tr>
<%
  rstemp.movenext
loop

rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing
%>
</table>
</body>
</html>

Takker

Her er den i helt rå form hvis der er andre der skal bruge det.

//akj

<%

sql = "select * from ....... where ...... osv"
set rstemp = conn.execute (sql)

howmanyfields=rstemp.fields.count -1

response.write "<table border=1><tr>"


for i=0 to howmanyfields
    response.write "<td>" & rstemp(i).name & " </td>"
next
response.write "</tr>"

do  while not rstemp.eof
    response.write "<tr>"
    for i = 0 to howmanyfields
        response.write "<td>" & rstemp(i) & "</td>"
    next
    response.write "</tr>"
    rstemp.movenext
loop

rstemp.close
set rstemp=nothing
conn.close
set conn=nothing
response.write "</table>"
%>