On Sun, 3 Mar 2002 19:24:47 +0100, "ph" <gfgds@yahoo.com> wrote:
>jeg kan ikke rigtig få det til at virke. Sådan her ser min ASP kode ud:
>Kan nogen muligvis "flette" det sammen med det der blev postet før??
><% Response.buffer = true %>
><% Dim rs
' Udskriv tabelstart og overskrifter
Response.Write "<table>" & vbcrlf
Response.Write "<tr>" & vbcrlf & _
"<td>ID</td>" & vbcrlf & _
"<td>Format</td>" & vbcrlf & _
"<td>Land</td>" & vbcrlf & _
"<td>Selskab</td>" & vbcrlf & _
"<td>Årstal</td>" & vbcrlf & _
"<td>Katalog Nr</td>" & vbcrlf & _
"<td>Beskrivelse</td>" & vbcrlf & _
"</tr>" & vbcrlf & vbcrlf
>Set rs = Server.CreateObject ("ADODB.Recordset")
>rs.Open "names", "DSN=odbc_exmp"
While Not rs.EOF
Response.Write "<tr>" & vbcrlf & _
"<td>" & rs("id") & "</td>" & vbcrlf & _
"<td>" & rs("format") & "</td>" & vbcrlf & _
"<td>" & rs("land") & "</td>" & vbcrlf & _
"<td>" & rs("selskab") & "</td>" & vbcrlf & _
"<td>" & rs("årstal") & "</td>" & vbcrlf & _
"<td>" & rs("katalog_nr") & "</td>" & vbcrlf & _
"<td>" & rs("beskrivelse") & "</td>" & vbcrlf & _
"</tr>" & vbcrlf & vbcrlf
rs.MoveNext
Wend
' Tabel afsluttes uden for loopen
Response.Write "<table>" & vbcrlf
>rs.Close
>Set rs = Nothing %>
Dette burde virke :)
Good luck,
Jørn
PS: Gider du tage et kig på:
<URL:
http://www.usenet.dk/netikette/citatteknik.html>
--
Jørn Andersen,
Brønshøj