Hvordan undgår jeg denne modstridhed af udtræk?

jeg har denne her der går ind i databasen for at sammenline ord der passer sammen og så udskriver en beskrivelse. Den virker helt fint, lige til nu. Nu laver den et eller ande sjovt:

http://www.danskehojtider.dk/visopskrift.asp?id=7

Hvad er det der går galt?

<%
OpenDatabase

'Hent array med keywords:
strSQL = "SELECT kw_ID, kw_word FROM keywords"
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then arrKeywords = rs.getRows() End If
rs.Close
Set rs = Nothing

strSQL = "Select * From opskrifter Where id = "&Request.Querystring("id")&""

Set rs = Conn.Execute(strSQL)

Response.Write "<strong><h3>" & rs("navn") & "</h3></strong><br><br>"

Response.Write "<u>Antal personer:</u>&nbsp;" & rs("personer") & "<br><br>"

Response.Write "<u>Tilberedningstid:</u>&nbsp;" & rs("tid") & "&nbsp;min" & "<br><br>"

strTekst = rs("in1")
strTekst1 = rs("fremgang")
If (IsArray(arrKeywords)) Then
For i = 0 To UBound(arrKeywords,2)
  tempKey = arrKeywords(1,i)
  strTekst = Replace(Replace(strTekst, LCase(tempKey), "<a href='#' title='Se vare beskrivelse for " & LCase(tempKey) & "' onClick='java script:doKey(" & arrKeywords(0,i) & ")'>" & LCase(tempKey) & "</a>"), tempKey, "<a href='#' onClick='java script:doKey(" & arrKeywords(0,i) & ")'>" & tempKey & "</a>")
Next
End If

Response.Write "<u>Ingedienser:</u><br><br>" & strTekst & "&nbsp;&nbsp;<br><br>"

Response.Write "<u>Fremgangsmåde:</u><br><br>" & strTekst1 & "<br><br><br><br>"

Response.Write "<u>Skrevet af:</u>&nbsp;&nbsp;&nbsp;" & rs("af") & "<br><br>"

%><script language="JavaScript">
function doKey(myid) {
var myheight = 450;
var mywidth = 470;
var winleft = (screen.width - myheight) / 2;
var winUp = (screen.height - mywidth) / 2;

winstyle='height='+myheight+',width='+mywidth+',status=no,scrollbars=yes,left='+winleft+',top='+winUp;
window.open("beskriv.asp?id="+myid,'vare',winstyle);
}
</script>