vise ALLE poster

Hej. Jeg har lavet en side, hvor alle poster i en database skal skrives ud, men scriptet vil kun skrive een post ud:

----------------------------------------------

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/fodbold.mdb")
Conn.Open DSN

strSQL = "Select * From serie4"
Set rs = Conn.Execute(strSQL)

Do while not rs.EOF

  strpulje = rs("pulje")
  strhold = rs("hold")
  strkampe = rs("kampe")
  strpoint = rs("point")

strpulje = "<td>" & strpulje & "</td>"
strhold = "<td>" & strhold & "</td>"
strkampe = "<td>" & strkampe & "</td>"
strpoint = "<td>" & strpoint & "</td>"
strberegning = "<td>" & round(rs("point")/rs("kampe"),2) & "</td>"

  rs.MoveNext
Loop

%>

<table border=0>
<tr>
<td>Pulje</td>
<td>Hold</td>
<td>Kampe</td>
<td>Point</td>
<td>Point pr.kamp</td>
</tr>
<tr>

<%
response.write strpulje
response.write strhold
response.write strkampe
response.write strpoint
response.write strberegning
response.write "</tr>"
response.write "</table"


conn.close
%>

---------------------------------------------------


Hvad er der galt?