Ver Mensaje Individual
  #1 (permalink)  
Antiguo 18/02/2002, 17:03
Avatar de Rosamunda
Rosamunda
 
Fecha de Ingreso: diciembre-2001
Ubicación: Buenos Aires
Mensajes: 792
Antigüedad: 23 años, 4 meses
Puntos: 1
Mensaje de “error '800a03f2' , se esperaba un iden

Previo a todo: muchas gracias a todos los que se pusieron las pilas para ayudarme a instalar el PWS como corresponde. Costó, molesté bastante, pero FUNCIONA!!
Ahora tengo un problema con cierto código...
El tema es así:
Primero hago que, a través de un form común en una página html, la gente ponga sus datos y luego elija un nombre de usuario y un pass.
El form lo deriva a una página llamada alta.asp, y, al momento de ingresar a la misma (una vez que terminan el formulario), me aparece esto:
Error de compilación de Microsoft VBScript error '800a03f2'
Se esperaba un identificador
/asp/alta.asp, line 10
...
-^

Por cierto, el código de alta.asp es éste:

<%

Dim nombre, apellidos, telefono, email, login, password
Dim correcto
Dim oConn, rs, SQL

'Recogemos el formulario
nombre=Request.Form("nombre")
apellidos=Request.Form("apellidos")
...

correcto=True
'Comprobamos que no hay campos vacíos
if nombre="" then correcto=False end if
if apellidos="" then correcto=False end if
...
if password="" then correcto=False end if

if correcto then
'Solo si todo está bien, comprobamos con la bd

set oConn=Server.CreateObject("ADODB.Connection&q uot;)
oConn.Open ...
SQL="SELECT * FROM Usuarios WHERE (Login='"&login&"');"
'Ejecutamos la consulta
set rs=oConn.Execute(SQL)

'si no nos devuelve vacío es que el login ya está en uso
if not rs.EOF then
Response.Write("El nombre de usuario ya está siendo utilizado. ")
Response.Write("Por favor, escoja otro.")
else
' es vacio, así que le insertamos en la bd
SQL="INSERT INTO Usuarios " & _
"(Login, Password, Nombre, Apellidos, Tlf, Email)"
SQL=SQL & " VALUES ('"&login&"', '"&password & _
"', '"&nombre&"','"&apellid os&"','"&telefono&"','& quot;&email&"');"
oConn.Execute(SQL)
Response.Write("Gracias por registrarte, "& nombre)
end if

'Limpiamos objetos
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
else

'El usuario ha metido datos incorrectos
Response.Write("Datos incorrectos!")
end if


%>

Cuál será el problema?


Rosamunda