Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 problema con una conexion
 Foro Bloqueado  Tema Bloqueado


Autor Temas
mrk
Starting Member


18 Posts
Mensajes - 05 Jun 2004 :  16:37:38  Ver Perfil  Enviar Email  Visit mrk's Homepage
Estoy intentando hacer que se compruebe el email en la base de datos antes de que de permino para registrarse pero me da este error:
HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server

--------------------------------------------------------------------------------

Información técnica (para personal de soporte técnico)

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03F3)
Se esperaba '='
/sitios/smnchat/intdatos.asp, línea 51, columna 26
set Registros.execute(SQL)

Aqui os dejo el codigo para ver si le veis el fallo que yo no se verselo

<%
'no cache
Response.addHeader "pragma", "no-cache"
Response.CacheControl = "Private"
Response.Expires = 0

'Recupero los datos del formulario y los introduzco en sus respectivas variables
ses=session("inses")
nombre=request.form("nombre")
apellidos=request.form("apellidos")
email=request.form("email")
nick=request.form("nick")
pass=request.form("pass")
direccion=request.form("direccion")
ciudad=request.form("ciudad")
provincia=request.form("provincia")
pais=request.form("pais")
telf=request.form("telf")
cp=request.form("cp")
estadocivil=request.form("estadocivil")
sexo=request.form ("sexo")
ocupacion=request.form("ocupacion")
intereses=request.form("intereses")

response.write(email & "<br>")

'si telf, ocupacion o intereses estan vacios añade un &nbsp;
if telf=""then telf="&nbsp;"end if
if ocupacion="" then ocupacion="&nbsp;" end if
if intereses=""then intereses="&nbsp;" end if

'consulta SQL
SQL="Select EMAIL From USUARIOS where EMAIL='"& email &"'"
'creo el objecto ADOB
Set conexion=Server.CreateObject("ADOB.Connection")
'abro la conexion
conexion.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db0001/db0001.mdb")
'Ejecuto la Consulta SQL
response.write(SQL)
set Registros.execute(SQL)

'si no encuantra coincidencia
if Registros.eof or Registros.bof then

'inserto la consulta sql en la variable Consul
Consul="INSERT INTO USUARIOS (NOMBRE,APELLIDOS,EMAIL,DIRECCION,CIUDAD,PROVINCIA,PAIS,CP,TELF,OCUPACION,SEXO,ESTADOCIVIL,INTERESES,NICK,PASS) VALUES ('"&nombre&"','"&apellidos&"','"&email&"','"&direccion&"','"&ciudad&"','"&provincia&"','"&pais&"','"&cp&"','"&telf&"','"&ocupacion&"','"&sexo&"','"&estadocivil&"','"&intereses&"','"&nick&"','"&pass&"')"
'Creo el objeto conexion
Set Conn=Server.CreateObject("ADODB.Connection")
'Abro la conexion a la base de datos
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db0001/db0001.mdb")
'Ejecuto la consulata Sql de entrada de datos
set rs=Conn.execute(Consul)
'cierro conexion
Conn.close
set rs=nothing
set conn=nothing

'si no redirecciono
else
response.Redirect("plantilla.asp")
end if

'cierro conecexion
conexion.close
set Registros=nothing
set conexion=nothing %>

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar