Database Problem ?????

Hejsa Allesammen

Her er min kode:

<%

Set MyConn = Server.CreateObject(\"ADODB.Connection\")
MyConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"boevl-log.mdb\")

Sub CleanUp()
  MyConn.Close
  Set MyConn = Nothing
End Sub

Sub CleanUp2()
Rs.Close
  Set Rs = Nothing
MyConn.Close
  Set MyConn = Nothing
End Sub

Dim Method

Method = Request.QueryString(\"method\")

Select Case Method

  Case \"Add\"
    Add(MyConn)

End Select

Sub Add(MyConn)
 
  Dim Navn, Besked, Dato, SQL
 
  Navn = Replace(Trim(Request.Form(\"navn\")), \"\'\", \"`\")
  Besked = Replace(Request.Form(\"besked\"),\"\'\", \"´\")
  Dato = Now

  If Navn = \"\" Or Besked = \"\" Then Response.Redirect \"index.asp\"

  SQL = \"Insert Into Log (Navn, Besked, Dato) Values(\'\"&navn&\"\', \'\"&besked&\"\', \'\"&Dato&\"\')\"

  MyConn.Execute(SQL)

  CleanUp()
 
  Response.Redirect \"index.asp\"

End Sub
%>

<html>

<head>
<title>Bøvl LogBog &copy </title>
<link rel=\"stylesheet\" type=\"text/css\" href=\"main.css\">
</head>

<body>
<br>

<div align=\"center\"><center>

<table Class=\"1\" cellpadding=\"0\" cellspacing=\"0\">
  <tr>
    <td align=\"center\"><font Class=\"punkt\">. </font><font Class=\"text\"> Bøvl Log </font><font Class=\"punkt\"> .</font></td>
  </tr>
</table>
</center></div>

<br>

<div align=\"center\"><center>

<table Class=\"1\" cellpadding=\"0\" cellspacing=\"2\">
  <tr>
    <td Class=\"1\" colspan=\"2\"><font Class=\"text\">På denne side har du mulighed får at skrive dig ind hvis du er enten det en eller det andet.<br>Du har også mulighed få at se de sidste indtastninger der er blevet lavet.<br>&nbsp;</font></td>
  </tr>
  <tr>
    <td Class=\"3\"><font Class=\"text\">Tilføj en ny besked!</font>

  <form action=\"index.asp?method=Add\" method=\"post\">

    <table Class=\"2\" cellpadding=\"0\">
      <tr>
        <td Class=\"5\"><font Class=\"text2\">Navn:</font></td>
        <td Class=\"4\"><input type=\"text\" name=\"navn\" size=\"70\" Class=\"inputbox\"></td>
      </tr>
      <tr>
        <td Class=\"5\"><font Class=\"text2\">Besked:</span></td>
        <td Class=\"4\"><textarea rows=\"10\" name=\"besked\" cols=\"35\" Class=\"inputbox\"></textarea></td>
      </tr>
      <tr>
        <td Class=\"6\" colspan=\"2\"><input type=\"submit\" value=\"    Tilføj    \" name=\"Add\" Class=\"Text2\"></td>
      </tr>
    </table></div>
  </form>
  </tr>     
</table>
</center></div>

<br>

<div align=\"center\"><center>

<table Class=\"1\" cellpadding=\"0\" cellspacing=\"0\">
  <tr>
    <td align=\"center\" Class=\"2\"><font Class=\"text\">Beskeder Online<br><br></font>

<%

Set Rs = MyConn.Execute(\"SELECT * FROM Log Order By Dato DESC;\")

Do While Not Rs.EOF
    %>
<table Class=\"2\" cellpadding=\"0\">

    <tr>
        <td Class=\"8\"><font Class=\"date\"><%= Rs.Fields(\"Dato\").Value %></font></td>
        <td Class=\"8\"><font Class=\"text\"><%= Rs.Fields(\"Navn\").Value %></font></td>
    </tr>
    <tr>
        <td Class=\"7\" colspan=\"2\"><font Class=\"text\">
<%
        temp = Rs.Fields(\"Besked\").Value
        Response.Write Replace(temp, vbcrlf, \"<br>\")
%>
        </font></TD>
    </tr>

</table>
<br>
    <%

    Rs.MoveNext
Loop

Cleanup2()

%>
</td>
  </tr>
</table>
</center></div>

<div align=\"center\"><center>

<br>

<table Class=\"1\" cellpadding=\"0\" cellspacing=\"0\">
  <tr>
    <td align=\"center\"><font Class=\"reg\">&reg </font><font Class=\"text\"> Lavet af Henrik </font><font Class=\"reg\"> &reg</font></td>
  </tr>
</table>
</center></div>
</body>
</html>

Mit problem er at der er 16 poster i databasen men der bliver kun skevet de 13 af dem, til browseren, det er ikke noget problem at skive i den, men den vil altså ikke læse dem alle sammen, kan man gører noget ved det ?????

/mark