Hvem kan finde fejlen?

Nedenstående script virkede fint indtil jeg begyndte at rode med det for at få farveskift i hver anden linje i tabellen. Jeg får fejlen

Microsoft VBScript compilation error '800a03fb'

Expected 'Loop'

/bilerpaavestfyn/resultat.asp, line 99

Scriptet ser sådan ud

<% Response.Buffer = True %>

<html>

<head>

<style type="text/css">
<!--
A:link {text-decoration: underline; color: #ffffff}
A:visited {text-decoration: none; color: #ffffff}
A:active {text-decoration: none; color: #ffffff}
A:hover {text-decoration: underline; color: #66ccff}
    INPUT {
    FONT-FAMILY: Arial, Helvetica,Verdana; FONT-SIZE: 90%
}

!-->
</style>

<title>Søg i bildatabasen</title>
</head>
<body bgcolor="#336699">



<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="100%" bgcolor="#FFFFFF" style="border: 1 solid #000000">
      <h1 align="center"><img border="0" src="images/top.jpg"></h1>
    </td>
  </tr>
  <tr>
  <td height=10 bgcolor=#336699></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" align="center" width="100%"><br>
    <p>
      <%
' Henter værdien fra search.htm
strBilmaerke = Trim(Request.Form("Bilmaerke"))
strModel = Trim(Request.Form("Model"))
strAargang = Trim(Request.Form("Aargang"))
strKm = Trim(Request.Form("Km"))
strPris = Trim(Request.Form("Pris"))
strForhandler = Trim(Request.Form("Forhandler"))



' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, ForhandlerId, Bilmaerke, Model, Aargang, Km , Pris , Forhandler, Filstier  FROM  biler WHERE"
strSQL = strSQL & " (Bilmaerke LIKE '%" & strBilmaerke & "%')"
strSQL = strSQL & " AND (Model LIKE '%" & strModel & "%')"
strSQL = strSQL & " AND (Aargang LIKE '%" & strAargang & "%')"
strSQL = strSQL & " AND (Km BETWEEN " & strKm & ")"
strSQL = strSQL & " AND (Pris BETWEEN " & strPris & ")"
strSQL = strSQL & " AND (Forhandler LIKE '%" & strForhandler & "%') ORDER BY Bilmaerke, Model"

' Databaseforbindelse
ConnString = "DSN=riishojwebsoftdkdsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString


' Skaber et recordset udfra SQL strengen
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen
    Response.Write "<h4 align=center><font face=Verdana>Her er resultatet af din søgning</font></h4><br>"
    Response.Write "<table border=0 cellpadding=3>"
   
    Response.Write "<tr bgcolor=#336699><th ><font color=white face=verdana size=2>Bilmærke</font></th><th><font color=white face=verdana size=2>Model</font></th><th><font color=white face=verdana size=2>Årgang</th><th><font color=white face=verdana size=2>Km</th><th><font color=white face=verdana size=2>Pris</th><th><font color=white face=verdana size=2>Forhandler</th><th><font color=white face=verdana size=2>Se foto</th></tr>"
    intCount = 0
  Do while NOT (rs.EOF or rs.BOF)
  if (intCount MOD 2 = 0) then
    bgColor = "#999999" 'Første farve
   
  else
    bgColor = "#336699" 'Anden farve
 
  end if
  intCount = intCount + 1 %>
        Response.Write "<tr><td bgcolor='<%=bgColor%>'><font color=white face=verdana size=2>" & rs("Bilmaerke") & "</font></td>"
        Response.Write "<td bgcolor='<%=bgColor%>'><font color=white face=verdana size=2>" & rs("Model") & "</td>"
        Response.Write "<td align=center bgcolor='<%=bgColor%>'><font color=white face=verdana size=2>" & rs("Aargang") & "</td>"
        Response.Write "<td align=right bgcolor='<%=bgColor%>'><font color=white face=verdana size=2>" & rs("Km") & "</td>"
        Response.Write "<td align=right bgcolor='<%=bgColor%>'><font color=white face=verdana size=2>" & rs("Pris") & "</td>"
      'Find link til forhandleren...
  strSQL = "SELECT link FROM for WHERE forhandlerId =" & rs("forhandlerId")
  set linkRs = Conn.execute(strSQL)
  if (linkRs.EOF) OR (Len("" & linkRs("link") & "") = 0) then
          Response.Write "<td align=left bgcolor='<%=bgColor%>'><font color=white face=verdana size=2>" & rs("Forhandler") & "</td>"

else
    Response.Write "<td align=left bgcolor='<%=bgColor%>'><font color=white face=verdana size=2><a href=""" & linkRs("link") & """>" & rs("Forhandler") & "</a></td>"
  end if

   

Response.write "<td align=center bgcolor='<%=bgColor%>'><font color=white face=verdana size=2><a href=""visbil.asp?bilid="&rs("id")&""" TARGET=""blank""><img src=""cam111.gif"" border=0></a></td>"


<tr/>

   
       
       


        rs.MoveNext
    Loop
    Response.Write "</table>"
Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p><font color=black  face=verdana size=3><b>Der er ikke fundet noget på denne søgning</b></p><br>"
End If

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

   
    <br>
   
   
    </td>
  </tr>
</table>
<p align="center"><a href="search.htm"><font face="Verdana" color="#FFFFFF" size="2">Ny
søgning</font></a></p>

</body>
</html>