non funziona lo stesso, posto il code completo:
codice:
<% 
If NOT session("login") then
response.redirect "/it.asp"
else

'vendemmia la form
mailbox = Request.Form("mailbox")
pwd = Request.Form("pwd")
email = Request.Form("email")
id = session("id")

'leggi db 
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/crm.mdb")
objConn.Open strConn

strsql = "SELECT account FROM tbl_login WHERE account = '" &request("mailbox")& "' " 
Set objRs = Server.CreateObject("ADODB.Recordset") 
objRs.Open strsql, strConn, 3, 3 
'Response.write strsql

'user esistente 
if not objRs.bof and not objRs.eof then 

Response.write "user esistente "

else

sql = "UPDATE tbl_login SET account = '" &request("mailbox")& "', psw = '" &request("pwd")& "' WHERE id = " & session("id")
objConn.execute(sql)

if request("a")="" then %>

<html>

<head>
	<title></title>
	
	<script language="JavaScript"> 
</head>

<body>
	<form action="index.asp" method="post" onSubmit="return submitIt(this);">
		<font size="1">
		<input type="hidden" name="a" value="exec">
		
		</font>
		
		<table>
			<tr>
				<td align="right" valign="middle"></td>
				<td valign="middle" colspan="2">
                <p style="margin-top: 15; margin-bottom: 15" align="center">
                <font face="Verdana" size="1">
                <span style="font-weight: 700">- Puede crear una 
                nueva cuenta de usuario usando el siguiente formulario -</span></font></td>
				<tr>
				<td align="right" valign="middle">
                <font face="Verdana" size="1">MailBox</font></td>
				<td valign="middle"><font face="Verdana" size="1"><input type="text" name="mailbox" size="20"></font></td>
				<td valign="middle"><font face="Verdana" size="1">(Escribir el 
                nombre de <u>Su Nueva Cuenta Email</u> recibida a su 
                dirección email) </font>
			</tr>
			<tr>
				<td align="right" valign="middle">
                <font face="Verdana" size="1">Password</font></td>
				<td valign="middle"><font face="Verdana" size="1"><input type="text" name="pwd" size="20"></font></td>
				<td valign="middle"><font face="Verdana" size="1">
                (Escribir la clave para acceder a Su <u> 
                cuenta@comunidadmexicana.com</u>) </font>
			</tr>
			</tr>
			<tr>
				<td align="right" valign="middle">
                <font face="Verdana" size="1">Email</font></td>
				<td valign="middle"><font face="Verdana" size="1">
                <input type="text" name="Email" size="20"></font></td>
				<td valign="middle"><font face="Verdana" size="1">
                (Escribir una dirección email donde enviarle sus nuevos datos de registración) </font>
			</tr>
			<tr><td></td></tr>
			<tr>
				<td align="right" valign="middle"></td>
				<td valign="middle" colspan="2">
                <font face="Verdana" size="1"><input type="radio" name="option" value="add" checked> 
                Registrar MailBox</font></td>
			</tr>
			<tr><td></td></tr>
			<tr>
				<td align="right" valign="middle"></td>
				<td valign="middle" colspan="2">
                <font face="Verdana" size="1">
                <input type="submit" value="Crear Cuenta"></font></td>
			</tr>
		</table>
	</form>
</body>

</html>

<font size="1">

<% elseif lcase(request("a"))="exec" then %>

<html>

<head>
	</font>
	<title></title>
</head>
<font size="1" style="font-size: 9pt">
<body>

<%
set objgestmail=new clsgestmail
	
	objgestmail.domain   = "dominio.com"
	objgestmail.password = "psw"

	objgestmail.login
	
	if request("option") = "add" then
		objgestmail.addmailbox request("mailbox"),request("pwd")
	elseif request("option") = "del" then
		objgestmail.removemailbox request("mailbox")
	end if
	
  
	response.redirect "index.asp?a=confirm"
%>

</font>

</body>

</html>

<font size="1" style="font-size: 9pt">

<% elseif lcase(request("a"))="confirm" then %>

<html>

<head>
	<font size="1">
	<title></title>
	
	
</head>

</font>

</font>

<body>
	

<font face="Verdana" style="font-weight:700" size="1">ok</font></p>
</body>

</html>

<% 
objConn.close
set objConn = Nothing

end if 
end if 
%>