Fejl i scriptet!

Hej...  Jeg får denne fejlmeddelelse i nedenstående dokument, den kommer frem under dropdown boxen - jeg kan ikke finde fejlen:

Microsoft VBScript runtime error \'800a01a8\'

Object required: \'\'

/data.asp, line 0

___________________________


<%option explicit%>

<% Dim SQLserveradr, SQLdatabase, SQLlogin, SQLpassword, my_conn, rs, rs2, sql, sql2 %>

<% if request.querystring(\"vis\") = \"soegeresultat\" then

country = request.form(\"country\")
if country = \"\" then country = \"No search word.\"

aar = request.form(\"aar\")
if aar = \"\" then aar = \"No search word.\"

type0 = request.form(\"type0\")

%>

<h1>Search results</h1>

Your search:<br><br>
<table width=\"100%\">
<tr>
    <td width=\"25%\">Country:</td>
    <td width=\"75%\"><%=country%></td>
</tr>
<tr>
    <td width=\"25%\">Year:</td>
    <td width=\"75%\"><%=aar%></td>
</tr>
</table>
<hr><br>
<%   

SQLserveradr=\"xx\"
    SQLdatabase=\"xx\"   
    SQLlogin=\"xx\"
    SQLpassword=\"xx\"
   
    Set my_conn = Server.CreateObject(\"ADODB.Connection\")

    my_conn.Open \"driver={MySql};server=\"& SQLserveradr &\";database=\"& SQLdatabase &\";uid=\"& SQLlogin &\";pwd=\"& SQLpassword 

    SQL = \"SELECT id, country, title, aar FROM projects WHERE country like \'%\" & country & \"%\' \"& type0 &\" aar like \'%\" & aar & \"%\'\"
    SQL2 = \"SELECT id, land FROM lande\"

   
    Set RS = my_conn.Execute(SQL)
    Set RS2 = my_conn.Execute(SQL2)

    count = 0
   
    if RS.eof then
    response.write \"<b>0 results</b>\"
    end if
    Do While Not RS.EOF
    count = count + 1
    %>

<%=count%>) <%=RS(\"Title\")%><br>

<% RS.MoveNext
Loop

RS.close
set RS = nothing
%>
<br>
<hr>

<% if count <> 0 then %>
<%=count%> results in your search. <a href=\"data.asp\">Click here for a new search</a>
<% end if %>

<% else %>




<h1>Search</h1>

<form method=\"post\" action=\"data.asp?vis=soegeresultat\">

<table width=\"100%\">
<tr>
    <td width=\"25%\">Country:</td>
    <td width=\"75%\">   

  <select name=\"country\">
    <%     Do While not RS2.EOF %>
    <option value=\"<%=RS2(\"land\")%>\"> <%=RS2(\"land\")%></option>
    <% RS2.MoveNext
    Loop
    RS2.Close
    set RS2 = Nothing
    %>
  </select> </td>
</tr>
<tr>
    <td width=\"25%\"></td>
    <td width=\"75%\"><select name=\"type0\">
    <option value=\"or\">Or...</option>
    <option value=\"and\">And...</option>
    </select></td>
</tr>
<tr>
    <td width=\"25%\">Year:</td>
    <td width=\"75%\"><input type=\"text\" name=\"aar\" size=\"50\"></td>
</tr>
</table>

<br>
<br>
<input type=\"submit\" value=\"Search\">


</form>

<br>
<% end if %>
<%my_Conn.close
set my_Conn = nothing %>