Nån som kan se ett fel i detta?

Nån som kan se något fel i detta? De ä till för att ändra mail och lösenord, men när man trycker på uppdatera blir det blankt i fälten för dom båda. Ja blir inte klok på de...

<%	anve = Session("anv") %> 
<%  Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("data\anv.mdb")

	strAdressID = anve
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	visa = "SELECT * FROM anv WHERE anv = '" & strAdressID & "'" 
	RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
	
	<form method="POST" action="installningar.asp?vad=uppdatera">

	Lösenord<BR>		
	<input type="text" size="28" name="namn" value="<% =RecSet("pass") %>"><br><BR>	

	För och efternamn:<BR>		
	<input type="text" size="28" name="namn" value="<% =RecSet("mail") %>"><br><BR>	

	<input type="submit" value="Uppdatera">

	</form>

<% End If %>

<% If Request.QueryString("vad") = "uppdatera" Then %>

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

	anve = Session("anv") 

	strAdressID = anve
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	visa = "SELECT * FROM anv WHERE anv = '" & strAdressID & "'" 
	RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
	
	RecSet("pass") = Request.Form("pass")
	RecSet("mail") = Request.Form("mail")

	RecSet.Update
	RecSet.Close %>