Kontroll av formulär igen...

If Not Isnull(Request.Form("Username")) Then strUsername = Cstr(Request.Form("Username"))
[b]If Not Isnull(Request.Form("Password")) Then strPassword = Cstr(Request.Form("Password"))[/b]
If Not Isnull(Request.Form("Mail")) Then strMail = Cstr(Request.Form("Mail"))

SQL = "SELECT f_Mail, f_User FROM t_Members where f_Mail = '" & strMail & "' OR f_User = '" & strUsername & "'"
intError = 0
set RSConn = Connect.Execute(SQL)
If Not RSConn.EOF Then
	While Not RSConn.EOF
		If LCase(RSConn("f_User")) =  LCase(strUsername) Then
			intError = intError + 1
			strError = "Användarnamnet är upptaget"
		End If
		[b]If Len(strPassword) < 5 Then
			intError = intError + 1
			strError = "Lösenordet måste vara minst 5 tecken"[/b]
		End If
		If LCase(RSConn("f_Mail")) =  LCase(strMail) Then
			intError = intError + 1
			strError = "Mailen är redan använd. <a href=""login.asp?reqlosen"">Glömt bort lösenordet?</a>"
		End If
		RSConn.movenext
	Wend
	If intError = 1 Then Response.Write strError Else response.write "Både mailen och användarnamnet är upptaget"
Else
	Username = Request.Form("Username")
	Password = Request.Form("Password")
	Mail = Request.Form("Mail")

	strSQL = "INSERT INTO t_Members "
	strSQL = strSQL & "( f_User, f_Mail, f_Password ) "
	strSQL = strSQL & "VALUES( '" & Username & "', '" & Mail & "', '" & Password & "' )"

	Connect.Execute( strSQL )

	Response.Redirect "login.asp?registrera=tack"
End If
End If

If Request.QueryString("registrera") = "tack" Then

Response.Write "<font class=smallheader>Tack för din registrering.</font><br>" &_
	"<a href=login.asp?login>Logga in här</a>"
End If

Varför funkar inte den markerade koden? Jag får inget felmeddelande men den verkar inte utföra kontrollen.