Ver Mensaje Individual
  #3 (permalink)  
Antiguo 23/04/2002, 13:36
parasito
 
Fecha de Ingreso: enero-2002
Mensajes: 37
Antigüedad: 23 años, 4 meses
Puntos: 0
Re: ASP Donde esta el error???????

Hola, gracias por responderme, la verdad lo que me indicaste era un error muy evidente lo que pasa es que estaba tratando de crear variables....

Mira EN LA PARTE DE INSERT EN LA BASE DE DATOS, AHI ESTA EL PROBLEMA..


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

'Recogemos el formulario
nombre=Request.Form("nombre")
apellidos=Request.Form("apellidos")
telefono=Request.Form("telefono")
email=Request.Form("email")
login=Request.Form("login")
password=Request.Form("password")

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

if correcto then
'Solo si todo está bien, comprobamos con la bd
basedatos = Server.MapPath("ejemplo.mdb")
set oConn=Server.CreateObject("ADODB.Connection&q uot;)
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"


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

' AQUI ES DONDE DEBE ESTAR EL ERROR HASTA AHORA TODO FUNCIONA TRATO DE INSERTAR EN LA BASE DE DATOS....
SQL="INSERT INTO Usuarios (Login, Password, Nombre, Apellidos, Tlf, E-Mail) VALUES ('"&login&"','"&passwor d &"','"&nombre&"','&quot ;&apellidos&"','"&telefono&a mp;"','"&email&"');" Response.Write("Gracias por registrarte.")

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