Password check - hvad er der galt?

Jeg har det her script der BURDE sende en bruger tilbage til login-siden hvis han har skrevet et brugernavn der indeholder ordet "admin", og IKKE har skrevet "kodeord" som kodeod, men jeg får HTTP 500 Intern serverfejl. Hvad er der galt med mit script+

<%
Dim strUsername, strUserpass
strUsername = Request.Form("user")
strUserpass = Request.Form("pass")

    if InStr(1, strUsername, "ADMIN", 1) > 0 then
          if strUserpass <> "KODEORD" then
          response.redirect("login.html")
          end if
        end if
%>