Mnäppt felmeddelande!

Hej!
Jag har en kod som ser ut så här:

<!--include virtual="adovbs.inc"-->

<%
If Request.Form("soknamn") = "sök" Then
'öppna en anslutning till vår databas Acces
Dim Connect
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\sok\databas.mdb"

'Läs in sökningen
Dim Fornamn, Efternamn
Fornamn = Request.Form("namn") 
Efternamn = Request.Form("efternamn")

'skapa en variabel för SQL satsen
  Dim strSQL
strSQL = "SELECT * FROM vanner WHERE namn = '" & Fornamn & "' AND efternamn = '" & Efternamn & "' ORDER BY namn DESC"

'skapa en instans av recordset
Dim RS
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open strSQL, Connect

'visa alla som matchade med sökningen
Response.Write"<b>Sökningen är klar</b>" & "<br>" & "<br>"

Do While Not RS.EOF
 Response.Write RS("namn") & " - " & RS("efternamn") & "<br>" & "<b>Telefonummer:</b>"%><%=RS("tel")%><br>
<b>Adress:</b>&nbsp;<%=RS("adress")%><br>
<b>Postnummer:</b>&nbsp;<%=RS("post")%><br>
<b>Mobil:</b>&nbsp;<%=RS("mobil")%>
<hr>
<%

RS.MoveNext
Loop

Response.Write"<a href='skicka.asp' target='_top'>Ny sökning</a>"

'städa undan
RS.Close
Set RS = Nothing

Connect.Close
Set Connect = Nothing
%>

<%
Else If Request.Form("sokpost") = "sök på post" Then

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\sok\databas.mdb"

'läs in sökningen
Dim sokpost
sokpost = Request.Form("post")

'variabeln för SQL satsen
SQL = "SELECT post FROM vanner WHERE post = '" & sokpost & "' ORDER BY post DESC"

Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Connect'

'visa sökning
Response.Write"<b>Sökningen är klar</b>" & "<br>" & "<br>"
Do While Not RS.EOF
   Response.Write RS("namn") & " - " & RS("efternamn") & "<br>" & "<b>Telefonummer:</b>"%><%=RS("tel")%><br>
<b>Adress:</b>&nbsp;<%=RS("adress")%><br>
<b>Postnummer:</b>&nbsp;<%=RS("post")%><br>
<b>Mobil:</b>&nbsp;<%=RS("mobil")%>
<hr>

<%
RS.MoveNext
Loop

Response.Write"<a href='skicka.asp'target='_top'>Ny sökning</a>"

'städa undan
RS.Close
Set RS = Nothing

Connect.Close
Set Connect = Nothing

Else
Response.Write"<font color=red size=2>Nått gick galet</font>"

End If
%>

Men jag får bara det här meddelandet:

Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A03F6)
'End' förväntas.
/sok/sok.asp, line 91

Fattar inte vad det är för fel :q
Brukar ofta få det där felmeddelandet när jag kör med If satser!