Udtræk fra Access i kolonner

Prøv:


<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("\databaser\Sagsnumre2000.mdb")
Conn.Open DSN

strSQL = "Select * From sagsnumre Order by Sagsnr Desc"
Set rs = Conn.Execute(strSQL)

Response.Write "<table>"
Response.Write "<tr>"
Response.Write "<td>Sagsnr</td>"
Response.Write "<td>navn</td>"
Response.Write "<td>projektleder</td>"
Response.Write "</tr>"
Do While Not rs.EOF
  Response.Write "<tr>"

  Response.Write "<td>" & rs("Sagsnr" ) & "</td>"
  Response.Write "<td>" & rs("navn") & "</td>"
  Response.Write "<td>" & rs("projektleder") & "</td>"

  Response.Write "</tr>"
  rs.MoveNext

Loop
Response.Write "</table>"

Conn.Close
Set Conn = Nothing
%>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("\databaser\Sagsnumre2000.mdb")
Conn.Open DSN

strSQL = "Select * From sagsnumre Order by Sagsnr Desc"
Set rs = Conn.Execute(strSQL)


%>
<table>
<tr>
  <td>Sagsnr</td>
  <td>Navn</td>
  <td>Projektleder</td>
</tr>
<%

Do

%>
<tr>
  <td><%=rs("Sagsnr")%></td>
  <td><%=rs("navn")%></td>
  <td><%=rs("projektleder")%></td>
</tr>
<%
rs.MoveNext
Loop While Not rs.EOF

%></table><%

Conn.Close
Set Conn = Nothing
%>

Det var lige det jeg mente. Tak!!!!

jeg var sgu for langsom

Ja desværre, men i er sørme nogle hurtige fyre, det er først gang jeg stiller et spørgsmål her!