Problem med loginscript

Hej!
När användaren loggar in på min sida så körs följande script:

<%@Language = VBScript%>

<%
Dim nick, pwd
nick = Request.Form("username") 
pwd = Request.Form("pass")

If nick = "" OR pwd = "" Then
Response.Redirect("main.asp")
Response.End
End If

'Kör koden som kollar om användaren skrev in rätt uppgifter, om inte skicka användaren till startsidan, annars logga in användaren!
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:/inetpub/wwwroot/ZODA/database"

Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tblAnvandare"
RS.Open SQL, Conn, 3, 3
bolFunnen = False
'sök efter det angivna användarnamnet
 Do While Not (RS.EOF OR bolFunnen)
If (strComp(RS("username"), strBrukarnamn, vbTextCompare) = 0) Then
 bolFunnen = True
 Else
  RS.MoveNext
 End If
Loop

'Om användarnamnet inte fanns så visa ett meddelande
If Not bolFunnen Then
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
Response.Write"<b><font color=""red"" size=""2"">Vi kunde inte hitta dig i databasen =(...försök igen</font></b>"
 Response.End
End If
'###########################################################
'om lösenordet inte hittades så visa ett meddelande
If Not (strComp(RS("pwd"), Request.Form("pass"),_
         vbBinaryCompare) = 0) Then
  RS.Close
  Set RS = Nothing
  Conn.Close
  Set Conn = Nothing
Response.Write"<b><font color=""red"" size=""2"">Vi kunde inte hitta dig i databasen =(...försök igen</font></b>"
Response.End
End If
%>

Men även om jag skriver i ett rätt nickname och lösenord, så skrivs ett felmeddelande ut =(
Någon som vet hur jag ska göra för att få det att funka???
Tacksam för svar :e

Någon?

in på mcs sudden!

du menar MSN?

ja men jag har s jvla stora fingrar så jag trycker fan på 5 tangenter samtidigt ... =PP

<%@Language = VBScript%><%
Dim nick, pwd
nick = Request.Form("username") 
pwd = Request.Form("pass")

If nick = "" OR pwd = "" Then
Response.Redirect("main.asp")
else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:/inetpub/wwwroot/ZODA/database.mdb"
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tblAnvandare"
RS.Open SQL, Conn, 3, 3
 Do While Not RS.EOF 
If RS("username") = nick AND RS("PASSWORD") = pwd Then
 Response.Redirect "inloggad"
 Else
  RS.MoveNext
  Loop
RS.Close
Set RS = Nothing
Response.Write"<b><font color=""red"" size=""2"">Vi kunde inte hitta dig i databasen =(...försök igen</font></b>"
 End If
End If
Response.Redirect("main.asp")
%>

e detta nåt kanske???

Det funkade inte...jag får bara:

Kompileringsfel i Microsoft VBScript fel '800a040e' 

'loop' utan 'do' 

/ZODA/check2.asp, rad 20 

Loop
^

du kan val inte ha en Else innan du skriver

rs.movenext
loop

borde val vara:

......
rs.movenext
loop
else

???

hehe. jo. men va fan. jag hade bråttom ...=P

sa det funkar nu? :)