please help im going mad!

<%
username =request("username")
password =request("password")
checkpass=request("checkpass")
email =request("email")
uname =request("uname")
telephone =request("telephone")

if username ="" OR password = "" OR checkpass = "" OR email = "" then
	message = "Sorry but you do not seem to have filled in all the required fields, please press back to try again"
Else
 if password <> checkpass then
	message = "Sorry but the password you entered was different to the confirmation password, please press back to try again"
 Else
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open Application("Database3_ConnectionString")
	Set RS = Conn.Execute ("SELECT * From MemberTable WHERE username = '" & username & "'")
	Do until RS.EOF
		pass = RS("Password")
		RS.MoveNext
	loop
	RS.Close
  IF pass <> "" Then
	message = "Sorry this username already exists, please press back to try again"
  Else	

		Set RSu = Conn.Execute ("SELECT * From MemberTable")
		do until RSu.EOF
			lastmember = RSu("userid")
			RSu.Movenext
		loop
		RSu.close
		userid = lastmember+1
		Conn.Execute ("INSERT into MemberTable (userid, username, password, email, uname, telephone) Values ('"&userid&"', '"&username&"', '"&password&"', '"&email&"','"&uname&"','"&telephone&"')")
       message = "Thank you for registering"
	
  End IF	
 End If	
End If
%>