Error in row

Får detta felmeddelande när jag försöker uppdatera databasen!

Microsoft OLE DB Provider for ODBC Drivers error '80040e2f' 

[Microsoft][ODBC Microsoft Access Driver]Error in row 

/!egna/spara_medlem.asp, line 45

Här är koden:

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("***.mdb")

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

Addera = "Select * From anv"
RecSet.Open Addera, Connect, 3, 3

Do Until RecSet.EOF

	If RecSet("anv") = Request.Form("anv") Then

		Session("meddelande") = " Användarnamnet var upptaget, prova med ett annat"
		RecSet.Close
		Response.Redirect "blimedlem.asp"

	End If
	if los <> losconfirm then
			Session("losen") = " Lösenorden var olika! Var snäll försök igen!"
				Response.Redirect "blimedlem.asp"
end if
RecSet.MoveNext
Loop
RecSet.Close

Addera = "Select * From anv "
RecSet.Open Addera, Connect, 3, 3

	RecSet.AddNew
	RecSet("anv")=request.form("anv")
	RecSet("losen")=request.form("los")
	RecSet("namn") = request.form("namn")
	RecSet("efter") = request.form("efter")
	RecSet("email") = request.form("email")
	RecSet("msn") = request.form("msn")
	RecSet("icq") = request.form("icq")
	RecSet("fodd") = Request.Form("dag") & "/" & Request.Form("man") & "/" & Request.Form("ar")
	RecSet("ort") = request.form("ort")
	RecSet("sex") = request.form("sex")
	RecSet("reggad")=now
	RecSet("bild")= request.form("radiobutton")
	RecSet.Update
45-->	RecSet.Close

Det kan vara så att man har fält i sin tabell som är obligatoriska, och så skiter man i att ge fältet ett värde.

Addera = "Select * From anv"
RecSet.Open Addera, Connect, 3, 3

Do Until RecSet.EOF

	If RecSet("anv") = Request.Form("anv") Then

		Session("meddelande") = " Användarnamnet var upptaget, prova med ett annat"
		RecSet.Close
		Response.Redirect "blimedlem.asp"

	End If
	if los <> losconfirm then
			Session("losen") = " Lösenorden var olika! Var snäll försök igen!"
				Response.Redirect "blimedlem.asp"
end if
RecSet.MoveNext
Loop
RecSet.Close

Byt ovanstående mot

Addera = "Select 1 From anv where anv = '" & replace(Request.Form("anv"),"'","''") & "'"
RecSet.Open Addera, Connect, 3, 3
if not recset.eof
	Session("meddelande") = " Användarnamnet var upptaget, prova med ett annat"
	RecSet.Close
	Response.Redirect "blimedlem.asp"

End If

Det är också onödigt att stänga och öppna recset på nytt.

aha! Oj da! Kanske skulle kollat vad grejjerna hette :P slarv fel! Skulle inte vara los utan losen :)