Maestro, verifique los códigos y me da el siguiente error:
[Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis (falta operador) en la expresión de consulta '
[email protected]'.
/q_clave.asp, line 21
Te paso mis códigos:
q_clave.htm
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>No recuerdas tu clave</title>
<script language="JavaScript" fptype="dynamicanimation">
<!--
function dynAnimation() {}
function clickSwapImg() {}
//-->
</script>
<script language="JavaScript1.2" fptype="dynamicanimation" src="animate.js">
</script>
<meta name="Microsoft Theme" content="transgalicia-v3 111">
</head>
<body onload="dynAnimation()">
<form method="POST" action="q_clave.asp">
<font color="#00cccc">
<img
src="Graficos/Iconos/Letras/c.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/l.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/a.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/v.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/e.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/s.gif" width="56" height="70"></font><p dynamicanimation="fpAnimwaveWordsFP1" id="fpAnimwaveWordsFP1" style="position: relative !important; visibility: hidden" language="Javascript1.2">
<font color="#00CCCC">
<img border="0" src="Graficos/Iconos/scratchchin.gif" width="15" height="20">
</font><font color="#FFFF00" face="Lucida Blackletter"><b>No recuerdas tu clave?</b></font><font color="#00CCCC">
<img border="0" src="Graficos/Iconos/scratchchin.gif" width="15" height="20"></font></p>
<p>
<font color="#FFFF00">
<b><font color="#FFFF00" face="Lucida Blackletter">Ingresa tu E-mail ....... :</font></b>
<input type="text" name="email" size="27">
</font>
<p> <input type="submit" value="Enviar" name="B1">
<input type="reset" value="Restablecer" name="B2"> </p>
</form>
</body>
</html>
q_clave.asp
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Pagina nueva 1</title>
<meta name="Microsoft Theme" content="transgalicia-v3 011">
</head>
<body>
<%
'recuperamos el email del formulario
email=request("email")
'---------------------- inicio del bloque consulta a la base de datos
DBFile="D:\Inetpub\Dominios\11455644\
www.transgalicia.com\registros\socios.mdb"
Set basedatos = Server.CreateObject("ADODB.Connection")
Set myR2Set = Server.CreateObject("ADODB.Recordset")
basedatos.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBFile&";"
wstr2 = "SELECT * FROM usuarios where email="&email&""
myR2Set.Open wstr2, basedatos
txtusuario = myR2Set("usuario")
password = myR2Set("clave")
basedatos.close
'---------------------- fin del bloque consulta a la base de datos
'##############Comienza el envío del correo con las claves
textoenviar=textoenviar & "<html><head><title>informacion</title><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'></head><body>"
textoenviar=textoenviar & " Respondiendo a tu solicitud de olvido de clave en TRANSGALICIA.<br><br> Para poder acceder a nuestra <b>ZONA SOCIOS</b> deberá intruducir los siguientes datos:<br><br><b> USUARIO=" & txtusuario & " y CLAVE=" & password & "</b><br><br> Un cordial saludo.<br><br><b> TRANSGALICIA.COM </b></body></html>"
aquien1 = email
adonde1 = email
aquien2 = "
[email protected]"
adonde2 = "
[email protected]"
subject = "Alta como miembro de TRANSGALICIA.COM"
servidor = "mailer.ran.es"
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.Timeout = 100 'segundos, 30 por defecto
Mailer.RemoteHost = servidor
Mailer.FromName = "TRANSGALICIA"
Mailer.FromAddress = "
[email protected]"
Mailer.AddRecipient aquien1,aquien1
Mailer.AddRecipient aquien2,aquien2
Mailer.Subject = subject
Mailer.ContentType = "text/html"
' Mailer.AddAttachment txtleccion
Mailer.BodyText = textoenviar
If not Mailer.SendMail then
Response.Write " La solicitud no se ha podido enviar... " & vbCr
error = Mailer.response
Response.Write " Se recibió el siguiente mensaje de error... " & error & vbCr & vbCr
Else
Response.write "<font color='#FFFF00' size='4' face='Tahoma'>Ya se envio por correo tu solicitud de claves para acceder a <b>TRANSGALICIA.COM</b>.<a href='/inicio.asp'>continuar</a></font>" & vbCr
End if
SET Mailer = NOTHING
'##############Finaliza el envío del correo con las claves
myR2Set.close
basedatos.close
%> </body>
</html>
Dime donde tengo el error