Kode opfører sig mærkeligt 2

Hej eksperter....

på denne side:
http://www.questis.dk/st-bowling/nyheder/

kan man se at overskriften hopper frem og tilbage, hvordan kan det være ? når den gennereres af samme kode ?

koden:
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("nyheder.mdb")
Conn.Open DSN

strSQL = "Select * From nyheder Order By dato Desc"

' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do

Response.write "<table cellpadding='5' cellspacing='0' width='100%'>"
Response.write "<tr><td><table cellpadding='0' cellspacing='0'>"
Response.write "<tr><td width='70' bgcolor='#C80000'><h1>" & rs("dato") &"</h1></td><td bgcolor='#C80000' align='left' width='430'><h1><a href='nyheder.asp?id= " & rs("id") & "'>" & rs("titel") &"</a></h1></td></tr>"
Response.write "<tr><td colspan='2'><h2>"

inputStr = rs("teksten")
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>"


' Gå til næste Record i rs
rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF



' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>