Udskriv hr efter hvert recordset

...inden du lave rs.movenext - sås laver du en <hr>

response.write("<hr>") lige før din movenext

Altså lige før dit loop, skal du lave en <hr>, derved bliver den lavet for hvert gennemløb!

ja, men det skal ikke være under den sidste, kun imellem dem

Det bliver også mellem hver af dem!

Lav den (<hr>) før du løber dine recordsets egennem...

ikke efter men før...

Hm..okay, kun imellem dem, men ikke efter:

Do until rs.eof
'din kode
rs.movenext
If not rs.eof Then
  Response.write("<hr>")
End if
Loop

netsrac>>
kan ikke få det til at hitte, har denne kode, men lige meget hvor jeg sætte koden, vil den skrive det over tabellen:

'Der undersøges om der blev fundet nogen Records i databasen
If Not (RS.BOF Or RS.EOF) Then

    rs.PageSize = 5        'Hvor mange Records der skal vises på hver side
    rs.AbsolutePage = intPage    'Hvilken side vi skal starte på
    intRecCount = rs.PageSize    'Antallet af records på side
    intPageCount = rs.PageCount    'Antallet af sider

    'Udskriver de Records der er på siden
    Do While Not rs.EOF And intRecCount > 0
response.write "<tr><td colspan='3'><table cellpadding='0' cellspacing='0' width='100%'>"
response.write "<tr><td width='100px'><h2>Navn:</h2></td><td width='400px'><h2>" & rs("navn") & "</h2></td></tr>"
response.write "<tr><td><h2>Email:</h2></td><td><h2><a href='mailto:" & rs("email") & "'>" & rs("email") & "</a></h2></td></tr>"
response.write "<tr><td colspan='3' height='5px'></td></tr>"
response.write "<tr><td valign='top'><h2>Besked:</h2></td><td><h2>" & rs("besked") & "</h2></td></tr>"
response.write "</table></td></tr>"
            intRecCount = intRecCount - 1
            rs.MoveNext
Loop

End If
'Her nedlægger vi vores Recordset
rs.Close
Set rs = Nothing

Du har jo også flere tabeller i tabellerne ? Der må da være en overornet tabel  ?

jeps, du kan da få hele koden til siden hvis det hjælper dig &:-D :

<%
response.write "<center><table cellpadding='5' cellspacing='0' border='0' width='500px' style='border: 1 solid #000000;'>"
response.write "<tr><td style='border-bottom: 1 solid #000000;' colspan='3' bgcolor='#AD0000'><h1>Gæstebog</h1></td></tr>"
%>
<%
intPage = Request.QueryString("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set RS = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * from guest"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("guest.mdb")

'Her fyldes der data i Recordset
rs.Open strSQL, strDSN, 1

'Der undersøges om der blev fundet nogen Records i databasen
If Not (RS.BOF Or RS.EOF) Then

    rs.PageSize = 5        'Hvor mange Records der skal vises på hver side
    rs.AbsolutePage = intPage    'Hvilken side vi skal starte på
    intRecCount = rs.PageSize    'Antallet af records på side
    intPageCount = rs.PageCount    'Antallet af sider

    'Udskriver de Records der er på siden
    Do While Not rs.EOF And intRecCount > 0
response.write "<tr><td colspan='3'><table cellpadding='0' cellspacing='0' width='100%'>"
response.write "<tr><td width='100px'><h2>Navn:</h2></td><td width='400px'><h2>" & rs("navn") & "</h2></td></tr>"
response.write "<tr><td><h2>Email:</h2></td><td><h2><a href='mailto:" & rs("email") & "'>" & rs("email") & "</a></h2></td></tr>"
response.write "<tr><td colspan='3' height='5px'></td></tr>"
response.write "<tr><td valign='top'><h2>Besked:</h2></td><td><h2>" & rs("besked") & "</h2></td></tr>"
response.write "</table></td></tr>"
            intRecCount = intRecCount - 1
            rs.MoveNext
Loop

End If
'Her nedlægger vi vores Recordset
rs.Close
Set rs = Nothing

response.write "<tr><td style='border-top: 1 solid #000000;' bgcolor='#AD0000' width='20%'><h2> Side " & intPage & " af " & intPageCount & "</h2></td><td align='left' style='border-top: 1 solid #000000;' bgcolor='#AD0000' width='10%'><h2>"
'Sådan her hvis de vil gå en side tilbage
Response.Write ""
If Clng(intPage) > 1 Then
    Response.Write "<a href=guest.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

'Og sådan her hvis de vil gå en side frem
Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=guest.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
response.write "</h2></td>"
response.write "<td bgcolor='#AD0000' style='border-top: 1 solid #000000; width='70%' align='right'><h2><a href='guest.asp'>» Start</a>&nbsp;&nbsp;<a href='guest.asp'>» Læg besked</a>&nbsp;&nbsp;&nbsp;</h2></td></tr>"
response.write "</table></center>"
%>

<%
response.write "<center><table cellpadding='5' cellspacing='0' border='0' width='500px' style='border: 1 solid #000000;'>"
response.write "<tr><td style='border-bottom: 1 solid #000000;' colspan='3' bgcolor='#AD0000'><h1>Gæstebog</h1></td></tr>"
%>
<%
intPage = Request.QueryString("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set RS = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * from guest"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("guest.mdb")

'Her fyldes der data i Recordset
rs.Open strSQL, strDSN, 1

'Der undersøges om der blev fundet nogen Records i databasen
If Not (RS.BOF Or RS.EOF) Then

    rs.PageSize = 5        'Hvor mange Records der skal vises på hver side
    rs.AbsolutePage = intPage    'Hvilken side vi skal starte på
    intRecCount = rs.PageSize    'Antallet af records på side
    intPageCount = rs.PageCount    'Antallet af sider

    'Udskriver de Records der er på siden
    Do While Not rs.EOF And intRecCount > 0
response.write "<tr><td colspan='3'><table cellpadding='0' cellspacing='0' width='100%'>"
response.write "<tr><td width='100px'><h2>Navn:</h2></td><td width='400px'><h2>" & rs("navn") & "</h2></td></tr>"
response.write "<tr><td><h2>Email:</h2></td><td><h2><a href='mailto:" & rs("email") & "'>" & rs("email") & "</a></h2></td></tr>"
response.write "<tr><td colspan='3' height='5px'></td></tr>"
response.write "<tr><td valign='top'><h2>Besked:</h2></td><td><h2>" & rs("besked") & "</h2></td></tr>"
response.write "</table>"
            intRecCount = intRecCount - 1
            rs.MoveNext
  If not rs.eof Then
      Response.write("<br><hr>")
  End if
  Response.write("</td></tr>")
Loop

End If
'Her nedlægger vi vores Recordset
rs.Close
Set rs = Nothing

response.write "<tr><td style='border-top: 1 solid #000000;' bgcolor='#AD0000' width='20%'><h2> Side " & intPage & " af " & intPageCount & "</h2></td><td align='left' style='border-top: 1 solid #000000;' bgcolor='#AD0000' width='10%'><h2>"
'Sådan her hvis de vil gå en side tilbage
Response.Write ""
If Clng(intPage) > 1 Then
    Response.Write "<a href=guest.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

'Og sådan her hvis de vil gå en side frem
Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=guest.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
response.write "</h2></td>"
response.write "<td bgcolor='#AD0000' style='border-top: 1 solid #000000; width='70%' align='right'><h2><a href='guest.asp'>» Start</a>&nbsp;&nbsp;<a href='guest.asp'>» Læg besked</a>&nbsp;&nbsp;&nbsp;</h2></td></tr>"
response.write "</table></center>"
%>

ser lidt sjovt ud &:-D
http://www.questis.dk/koder/asp/guest.asp

sorry fandt fejlen, takker for hjælpen &:-D

Så lidt :)