fejl i koden.....

Hej eksperter....

jeg har lavet denne start til et nyhedssystem.... men hvad går der galt, når anden nyhed indlæses sættes den ikke ind i rammerne:

http://www.questis.dk/questis/nyhed/index.asp

her er koden:

<HTML>
<HEAD>
<link rel="stylesheet" type="text/css" href="/faste/style3.css">
</HEAD>
<body onload="parent.juster(this.document);">
<%
Session.LCID = 1030

response.write "<table cellpadding='2' cellspacing='0' border='0' width='486' height='18'><tr><td height='18' width='468' background='/image/knap2.gif'><h3>Nyheder</h3></td></tr></table>"
response.write "<table cellpadding='5' cellspacing='0' width='486' style='border-left: 1 solid #000000; border-right: 1 solid #000000;'><tr><td><table cellpadding='0' cellspacing='0' width='100%'>"

'paging
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 nyhed ORDER BY id DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("nyhed.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><a href='nyhed.asp?id=" & rs("id") & "' target='_self'><h2><b>" & rs("overskrift") & "</b></h2></a></td><td align='right' width='20%'><h2><b>" & rs("datoen") & "</b></h2></td></tr>"
response.write "<tr><td><h2>"

inputStr = rs("nyheden")
MAX_WORD_COUNT = 20
wordCount = 0
newArr = split(inputStr," ")
outputStr = ""
do while (wordCount < UBOUND(newArr)) AND (wordCount < MAX_WORD_COUNT)
  outputStr = outputStr & newArr(wordCount) & " "
  wordCount = wordCount + 1
loop

Response.Write outputStr
Response.write "</h2></td></tr>"
Response.Write "</table></td></tr></table>"

            intRecCount = intRecCount - 1
            rs.MoveNext
loop
'Her nedlægger vi vores Recordset
rs.Close
Set rs = Nothing
response.write "<table width='486'  background='/image/bar.gif' cellpadding='0' cellspacing='0'><tr><td width='20%' height='18' style='border-left: 1 solid #000000;'><h2> Side " & intPage & " af " & intPageCount & "</h2></td><td align='left' 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 & " class='menu'>&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 & " class='menu'>&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
response.write "</h2></td>"
response.write "<td style='border-right: 1 solid #000000;' width='70%' align='right'><h2><a href='index.asp' class='menu'>» Start</a>&nbsp;&nbsp;&nbsp;</h2></td></tr>"
response.write "</table></center>"
End if
%>
</BODY>
</HTML>

håber i vil hjælpe mig

mvh.
questis.dk