llamar a funcion desde formulario

[robison]

Hola este es el formulario. lo utilizo para cambiar la contraseña en la misma pagina. esta se llama cambiar_contrasenna.asp

<form id="form" name="form" action="cambiar_contrasenna.asp" method="post" onsubmit="cambio()">
<table cellpadding="3" cellspacing="3" class="tabla">
<tbody>
<tr>
<td width="490">Contrase&ntilde;a Actual <br>
<input type="password" name="pass_actual" size="20"></td>
</tr>
<tr>
<td><font class="bts">Nueva Contrase&ntilde;a </font><br>
<input type="password" name="nuevo_pass" size="20"></td>
<%
Function msj(mensaje)
Response.Write "<td>"
Response.Write mensaje
Response.Write "</td>"
End Function
%>

</tr>
<tr>
<td><font class="bts">Confirmar Nueva Contrase&ntilde;a </font><br>
<input type="password" name="conf_pass" size="20"></td>
</tr>
<tr>
<td><input type="submit" value="Cambiar" name="B32" class="cont2" ></td>
</tr>
</tbody>
</table>
</form>

y esta es la funcion asp

function cambio()
Dim pass

pass = MD5 (request.form("pass_actual")) 'encripatomos el pass q digita el cliente

SQL = "SELECT PASSWORD FROM clientes WHERE EMAIL= "&session("mail")
Set rs = cn.execute(SQL)'ejecutamos la sentencia SQL

If rs.Fields("PASSWORD") = pass Then' se comprueba si el pass q digito es igual al de la DB
If nuevo_pass = conf_pass Then'se confirma que haya escrito bien el nuevo pass en las dos casillas
sSQL = "UPDATE clientes SET PASSWORD = " & nuevo_pass & "WHERE EMAIL= " & session("mail")
cn.execute(sSQL)'execuamos la sentencia SQL

msj("Sus Datos Ha Sido Modificados")
else
msj("La Nueva Contraseña NO Coincide")
end if
else
msj("La Contraseña es Incorrecta")
End If
end function