08/07/2002, 09:58
|
 | | | Fecha de Ingreso: abril-2002 Ubicación: Peru
Mensajes: 73
Antigüedad: 23 años Puntos: 0 | |
| Re: Problema de servidor???
<%@ Language=VBScript%>
<%
Dim nomusu,passusu,newpass1,newpass2
'Transfiriendo datos del formulario
nomusu=Request.Form("nomusu")
passusu=Request.Form("passusu")
newpass1=Request.Form("newpass1")
newpass2=Request.Form("newpass2")
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link href="stylo.css" type="text/css" rel="stylesheet">
<title>INTRANET</title>
</head>
<body bgcolor="PapayaWhip">
<br>
<%If nomusu="" OR passusu="" OR newpass1="" OR newpass2=""then%>
<td width="300" valign="top">
<div align="right"><font face="Arial, Helvetica, sans-serif" size="2"><i><a href="Cambiopassword.asp" target="_self"><img src="images/pagina_ant.gif" width="65" height="44" border="0"></a></i></font></div>
</td>
<center>
<font size="4" color="red"><b>ERROR!</b> complete los campos respectivos...</font>
<p align="center"><a href="Cambiopassword.asp">Inténtelo otra vez</a></p>
</center>
<br>
</body>
</html>
<%Else%>
<%if newpass1<>newpass2 then%>
<br>
<td width="300" valign="top">
<div align="right"><font face="Arial, Helvetica, sans-serif" size="2"><i><a href="Cambiopassword.asp" target="_self"><img src="images/pagina_ant.gif" width="65" height="44" border="0"></a></i></font></div>
</td>
<center><font size="4" color="red"><b>ERROR!</b> la contraseña es incorrecta</font>
<p align="center"><a href="Cambiopassword.asp">Inténtelo otra vez</a></p>
</center>
</body>
</html>
<%else
Dim obj,rst, strCadenaConexion, x
strCadenaConexion=Application("conexion" )
set obj = CreateObject("COMMBDAT.UsuarioBD")
set rst = obj.ConsultaUsuario(strCadenaConexion,nomusu)
if rst("password")=passusu then
x = obj.ActualizaContraseña (strCadenaConexion,nomusu,passusu,newpass2)%>
<br>
<center><font size="4" color="blue"><p>La contraseña del usuario <b><%=nomusu%></b> ha sido modicada!</font></center>;
<td width="300" valign="top">
<div
LEWIS |