fejl!!!!!!!!!!

Nogen der kan finde nogen fejl i dette asp/SQL kode?
Håber i kan hjælpe....


<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
</head><body>

<%
' Henter værdien fra soeg.htm
strKeyword = Trim(Request.Form("Keyword"))

If Len(strKeyword) = 0 Then
    ' Hvis der ikke er skrevet i feltet
    Response.Clear
    Response.Redirect("search.htm")
Else
    ' Hvis der er skrevet i feltet
    strKeyword = Replace(strKeyword,"'","''")
End If

' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, Username, Bynavn, fornavn, efternavn, msn, icq, email, Fritext FROM Users WHERE"
strSQL = strSQL & " (Username LIKE '%" & strKeyword & "%')"

' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen
    Response.Write '<p>Søgeresultat</p>"
Response.Write '<table border=1 align='center'>'
  Response.Write 'Do While Not rs.EOF Response.Write'
 
  Response.Write '<td>Navn:</td>'
  Response.Write '<td>" & rs("Fornavn") & "</td>'
Response.Write '</tr>'
Response.Write '<tr>'
Response.Write '<td>Efternavn:</td>'
  Response.Write '<td>" & rs("Efternavn") & "</td>'
Response.Write '</tr>'
Response.Write '<tr>'
Response.Write '<td>By:</td>'
  Response.Write '<td>" & rs("Bynavn") & "</td>'
Response.Write '</tr>'
Response.Write '<tr>'
Response.Write '<td>E-mail:</td>'
  Response.Write '<td>" & rs("Email") & "</td>'
Response.Write '</tr>'
Response.Write '<tr>'
Response.Write '<td>ICQ#</td>'
  Response.Write '<td>" & rs("ICQ") & "</td>'
Response.Write '</tr>'
Response.Write '<tr>'
  Response.Write '<td>MSN:</td>'
  Response.Write '<td>" & rs("MSN") & "</td>'
Response.Write '</tr>'
Response.Write '<tr>'
  Response.Write '<td>&nbsp;</td>'
  Response.Write '<td>&nbsp;</td>'
Response.Write '</tr>'
  ' rs.MoveNext Loop Response.Write '
Response.Write '</table>"
Response.Write '<table width="77%" border="1" height="31" align="center">'
Response.Write ' <tr> '
Response.Write '  <td height="23"> '
Response.Write '<div align="center">Fritext for: " & rs("Efternavn") & "</div>'
Response.Write '</td>'
Response.Write '</tr>'
Response.Write '<tr>'
Response.Write '<td>" & rs("Fritext") & "</td>'
Response.Write ' </tr>'
Response.Write '</table>'
Response.Write '<p>&nbsp;</p>'
Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If

' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>

</body>
</html>