Buscar y enviar desde base de datos

[jlgarduza]

Buen dia!

Amigos, cual seria el codigo para buscar una contraseña de un usuario escrito en un textbox y luego que lo encuentre en la base lo envie al correo escrito en el otro textbox..

saludosl y gracias.

[uagrm]

hola, sería bueno debes mostrar tu código o algo que estés intentando hacer para luego ayudarte, para buscar la contraseña debes de hacer una consulta sql donde vas a enviar como parámetro el usuario y contraseña si los datos existen entonces todo está correcto.

Saludos,

[jlgarduza]

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>