Varför funkar det ej?

Hejsan... varför funkar ej denna koden?

<% 
' variabler
if Request.QueryString("regga") = "dej"  then 
namn = Request.Form("namn") 
databas = Server.MapPath("um.mdb") 

' öppnar databasen 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& databas 

' Öppnar Tabellen 
Set RecSet = Server.CreateObject("ADODB.Recordset") 
SQL = "SELECT * FROM logga WHERE namn = '"& namn &"' "

RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic 

If RecSet.EOF then

Set Con = Server.CreateObject("ADODB.Connection") 
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("um.mdb")&";"

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

Addera = "Select * From logga"
RecSet2.Open Addera, Con, adOpenStatic, adLockOptimistic

RecSet2.AddNew

RecSet2("los") = Request.Form("los")
RecSet2("namn") = Request.Form("namn")

RecSet2.Close 
Con.Close 

Response.write "<br><b>Nu är du klar reggad</b>"

Else 
RecSet.Close 
Connect.Close 
response.write "<br><b>Det finns redan en som har valt det namnet var god välj ett nytt...</b>"
End if
End If %>

När ja kör den får ja fel mess

Error Type:
ADODB.Recordset (0x800A0C93)
Operation is not allowed in this context.
/about.asp, line 144

Och rad 144 är: Con.Close

Varför har du två connections?
Du kan ju använda samma connections, trots att du har två recordsset.
Ett annat råd, öppna inte din SQL med astriks (*) det är bättre och snabbare om du specifisera vad du vill ha.
Varför du får fel på 144 vet jag inte, men jag kan tänka mig att om du städar upp i din kod, kanske det blir enklare att se felet.
( med städa menar jag inte att det är slarvigt gjort, utan att du kan optimera den bättre, t ex din sista SQL kan vara en insert istället för att öppna ett nytt recordset).

Du måste köra RecSet2.update när du lagt till grejer i db:n!

Sätt in det före RecSet2.Close.