Claro tienes razon, mira este es mi codigo
Código:
<div class="login">
<%
Dim oConn ' variable de conexion a la BD
Dim rsDatos ' variable que almacena el recordset de datos
Dim sQry ' varibale que contiene la query a ejecutar
sUser = Request.Form("Usuario")
sClave = Request("clave_pw")
'sClave = Request("clave_pw")
if Request.Form("Usuario") = "" Then
Response.Write("<font color=white>Favor de Llenar el Campo</font>")
else
sQry="SELECT clave_pw FROM wdbms.dbo.tabla_usuarios WHERE IdUsuario='"&sUser&"'"
Set rsDatos = server.createobject("ADODB.Recordset") ' Se genera la instancia al recordset
set rsDatos = oConn.execute(sQry)
If Request.ServerVariables("REQUEST_METHOD")="POST" Then
'ENVÍO DEL FORMULARIO DE CONTACTO
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2
'.Item(sch & "smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup"
.Item(sch & "smtpserver") = "smtp.wegon.com.mx"
.Item(sch & "smtpserverport") = 25
.Item(sch & "smtpconnectiontimeout") = 40
.Item(sch & "smtpauthenticate") = 1
.Item(sch & "sendusername") = "[email protected]"
.Item(sch & "sendpassword") = "solaris"
.update
End With
Set MailObject = Server.CreateObject("CDO.Message")
Set MailObject.Configuration = cdoConfig
'MailObject.BodyFormat = 0
'MailObject.mailformat = 0
MailObject.From = "Recuperacion de Contraseña <[email protected]>"
'MailObject.Bcc = "Correo Automatico <[email protected]>"
MailObject.Cc = Request("correo")
MailObject.Subject = "Envio de Contrasena"
Body = Body &"Estimado Usuario: " &sUser& "<br />"
Body = Body &"Tu Clave es: "&rsDatos
MailObject.HTMLBody = Body
MailObject.Send
Set MailObject = Nothing
Set cdoConfig = Nothing
End If
response.Redirect("index.asp?prmMsge=2")
End If
%>
<form method="POST" action="recuperarcontrasena.asp">
<input type="text" placeholder="Usuario DMS" name="Usuario"><br>
<input type="text" placeholder="Correo" name="correo"><br>
<input type="submit" value="Recuperar Contraseña">
</form>
<br />
</div>