llamar a funcion desde formulario

[robison]

Hola señores forosdelweb...

Necesito llamar una funcion asp cuando se oprima el boton de enviar el formulario, el codigo esta en la misma pagina.

les agradezcon por la ayuda que me puedan brindar

[JuanRAPerez]

pegas el codigo

[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

[Shiryu_Libra]

por que no simplemente le anexas esto

<%
if request.ServerVariables("REQUEST_METHOD")="POST" and request.Form("metodo")="changepass" then
call cambio
end if

%>
<form id="form" name="form" action="cambiar_contrasenna.asp" method="post" >
<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>
<input type="hidden" value="changepass" name="metodo" />
<%
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>