Problem med databaser i ASP!

Yo everybody, yo!

Jag har ett formulär på en sida:

<form ACTION="registrera.asp" method="post" name=registrate>
Önskat användarnamn:
<br>
<INPUT TYPE="TEXT" VALUE="Användarnamn" NAME="username" SIZE="20" MAXLENGTH="15">
<br>
Önskat lösenord:
<br>
<INPUT TYPE="TEXT" VALUE="Lösenord" NAME="password" SIZE="20" MAXLENGTH="40">
<br>
<INPUT TYPE="submit" VALUE="Registrera!">
</form>

och en sida som tar emot uppgifterna och kollar så att användarnamnet är unikt. Är det, det, så ska uppgifterna läggas in i databasen!

Problemet är att ingenting händer (inte ens något skojigt felmeddelande)... det blir bara vitt :D
Kolla man i databasen så verkar det som om "username" inte "når fram". Jaja, nog snackat! Filen:

<!-- #include file="../inc/adovbs.inc" -->
<%

	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\trexter\databas\main.mdb" 

	Set RecSet = Server.CreateObject("ADODB.Recordset")

If Not Isnull(Request.Form("username")) Then strusername = Cstr(Request.Form("username"))
SQL = "SELECT username FROM medlemmar where username = '" & strusername & "'"

set rs = Connect.Execute(SQL)
If Not rs.EOF Then
	While Not rs.EOF
		If LCase(RS("username")) =  LCase(strusername) Then
%>
Sorry, användarnamnet är upptaget. Prova med ett annat!
<%
		End If

		rs.movenext
	Wend

Else

	Addera = "SELECT * FROM medlemmar"

   RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew

Recset("username") = Request.Form("username")
Recset("password") = Request.Form("password")
end if

	RecSet.Update
	RecSet.Close
	Connect.Close
%>

Du måste vara noga med vad du kallar dit recordset för du har initierat ditt recordset så här:

Set RecSet = Server.CreateObject("ADODB.Recordset")

Men du använder det så här:

set rs = Connect.Execute(SQL)
If Not rs.EOF Then
	While Not rs.EOF

Alltså du anvender rs i stället för RecSet.

Tänk så här, du köper dig en Saab men försöker att köra en Volvo..
Inge´vidare va...