Ver Mensaje Individual
  #15 (permalink)  
Antiguo 05/11/2005, 16:04
cristianf
 
Fecha de Ingreso: abril-2005
Mensajes: 112
Antigüedad: 20 años
Puntos: 0
amigos: sigo con inconvenientes, resulta qque sigo con este codigo y me esta rompiendo la cabeza:
<%
Dim nombre, apellidos, telefono, mail, login, password
Dim correcto
Dim oConn, rs, SQL


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

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

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

set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("Usuarios.mdb")
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, telefono, email) values ('"&login&"', '"&password & "','"&nombre&"','"&apellidos&"','"&telefono&"','"& email&"');"
Conn.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

%>

lo unico que funciona es el tema de datos incorrectos cuando es asi, pero cuando completo bien los datos directamente me marca error de servidro, yo no se si la orden de conexion tendra algo que ver, si alguien reconoce el error por favor avisenme estoy muy necesitado de resolver este problema