Loginskript som slutat fungera?

När jag fösöker logga in händer det inget.
Skriver jag in fel inloggningsuppgifter får jag fram medelandet att infon inte stämde men så snart jag skriver in rätt händer inget.. Den bara står och tuggar.

Detta skript har fungerat innan och jag har inte gjort några större ändringar som skall kunna påverka inloggningen.

Övriga sidan fungerar så det är inget fel på MySQL servern.

Jag får samma fel på mitt webhotell och på min dator.

Någon som kan finna något graft fel jag missat?

<%
If request.querystring("do") = "login" Then

Dim objConr, objRs
Dim strSql
Dim strLosen, strMess

Set objConr = Server.CreateObject("ADODB.Connection")
objConr.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=***; DATABASE=****; USER=****; PASSWORD=*****; OPTION=3;"

  strSql = "Select strLosen, intLvl from tblMedlem Where strAnv='" & request.form("strAnv") & "'"
  set objRs = objConr.execute(strSql)

  If NOT objRs.Eof then

    strLosen = request.form("strLosen")

    If strLosen = objRs("strLosen") And objRs("intLvl") = 5 then
      session("login") = "true"
    ElseIf strLosen = objRs("strLosen") And objRs("intLvl") = 4 then
      session("lvl") = "4"
    Else
      strMess=("Fel lösenord eller brist på befogenhet!")
    End if

  Else
    strMess=("Fel användarnamn!")
  End If

  objRs.close : set objRs = nothing
  objConr.close : set objConr = nothing

  If session("login") = "true" Or session("lvl") = "4" Then
    response.redirect("default.asp")
  ElseIf strMess <> "" Then
    response.redirect("login.asp?mess=" & strMess)
  Else
    response.redirect("login.asp?mess=Något blev fel, försök igen!")
  End If

End If
%>

Tank på förhand

felet låg inte där
va aldeles för trött och blind för att se felet :)

Felet låg i en annan fil som skapade en oendlig loop när man loggat in