Perdon por mi insistencia, pero es que no lo veo.
Lo que pasa es lo siguiente:
Hace la búsqueda por el email, si no encuentra el registro entonces da el aviso de que "no se encontro el registro".
Si se pulsa el botón de enviar y se supone que el registro existe entonces da el error siguiente:
-----------------
ADODB.Field error '800a0bcd'
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.
/agencias/recuerdapassword.asp, línea 62
----------------------
Bien el caso es que si elimino el codigo siguiente del fichero, entonces funciona bien. Es decir, cuando no encuentra el email introducido da el aviso: "No se encontro el registro" y cuando el registro existe manda un mensaje a la cuenta de correo pertinente, pero no aparece información sobre los campos: nombre de usuario y contraseña.
---------------------------------------
'Recogemos los datos de la db
dim usuario
dim password
user = Ob_RS("usuario")
pass = Ob_RS("password")
---------------------------
Envio el código completo de la página para que se vea con mayor claridad.
Código:
----------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>
<body>
<div align="center">
<%if (request.form <> "") then%>
<!--Incluimos el fichero de constantes-->
<!--#INCLUDE file="../adovbs.asp"-->
<strong><font color="#CCCCFF" size="5" face="Arial, Helvetica, sans-serif">
<%Set Ob_Conn= Server.CreateObject("ADODB.Connection")%>
<% Set Ob_Command= Server.CreateObject("ADODB.Command")%>
<% Ob_Conn.open "DSN=clubviajesoferta.com.skiviajes" %>
<%Ob_Command.ActiveConnection=Ob_Conn %>
<% Ob_Command.CommandType=adCmdText %>
<% Ob_Command.CommandText= "SELECT * from agencias where email='"&request.form("email")&"'" %>
<% Set Ob_RS=Ob_Command.Execute ()
'Para conexion a ODBC local
'Set Ob_Conn = Server.CreateObject("ADODB.Connection")
'Set Ob_RS=Server.CreateObject("ADODB.RecordSet")
'Ob_Conn.open "skiviajes_odbc"
' Abrimos la tabla, declaramos que conexión esta abierta, tipo de cursor, tipo de cerrojo, y opciones
'Ob_RS.open "agencias", Ob_Conn, adOpenStatic, adCmdTable
'Ob_RS.filter = "email='"&request.form("email")&"'"
'Busqueda de datos
Dim encontrado
encontrado=false
DO WHILE NOT Ob_RS.eof
Ob_RS.movenext
encontrado=true
loop
IF encontrado=false THEN
response.write("No se ha encontrado la dirección de correo electrónico indicada")
else
'Recogemos los datos de la db
dim usuario
dim password
user = Ob_RS("usuario")
pass = Ob_RS("password")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.skiviajes.com"
Mail.From = "
[email protected]"
Mail.AddAddress "
[email protected]"
Mail.Subject = "Petición de información de skiviajes.com"
'El mensaje en formato html
Mail.IsHTML = true
'Mail.Body = "<HTML><BODY><p><font face=verdana size=2>Empresa: "&empresa&"<br>Nombre: "&nombre&"<br><br></p><br>Enviado el "& Now() &"</font></BODY></HTML>"
Mail.Body= "Le remitimos la información solicitada<p><br>Nombre de usuario: "&user&"<br>Contraseña: "&pass&""
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Ha ocurrido el siguiente error: " &Err.Description
else
Response.write("Su nombre de usuario y contraseña han sido enviadas a la dirección de correo electrónico indicada en el formulario de alta de agencias")
End If%>
<% end if %>
<%Ob_RS.close
Ob_Conn.close
%>
</font></strong>
<%else%>
</div>
<div id="Layer1" style="position:absolute; width:364px; height:119px; z-index:1; left: 188px; top: 93px;">
<p align="center"><font size="1" face="Arial, Helvetica, sans-serif">Escriba
la dirección de correo electrónico con la que se registro en
el formulario de alta de agencia y le enviaremos a dicho email los datos correspondientes
a su nombre de usuario y contraseña.</font></p>
<form name="form1" method="post" action="recuerdapassword.asp">
<table width="100%" border="0" align="center" bgcolor="#F2F2F2">
<tr align="center">
<td colspan="2" bgcolor="#0000FF"> <p align="center"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif"><strong>Recuerde
que no puede contener espacios en blanco</strong></font></td>
</tr>
<tr align="center">
<td width="0" height="0"><font size="2" face="Arial, Helvetica, sans-serif">Correo
Electrónico</font></td>
<td width="0" height="0"> <input name="email" type="text" id="email" size="30" maxlength="30"></td>
</tr>
<tr align="center">
<td height="0" colspan="2"> <p align="center">
<input type="submit" value="Enviar" name="B1">
</td>
</tr>
</table>
</form>
<%end if%>
</div>
</body>
</html>
----------------------------------------
Gracias por todo.
mas bien creo que el error es de lógica:
