13/06/2002, 17:25
|
| | | Fecha de Ingreso: enero-2002 Ubicación: Bucaramanga, Colombia.
Mensajes: 71
Antigüedad: 23 años, 3 meses Puntos: 0 | |
| Re: Ayuda Maestros!!!
Este es el script:
Código:
<html>
<head>
<title>.:.Ingreso.:.</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#CCCCCC" text="#000000">
<%
Dim nombre, apellido, pais, login, password, basedatos
Dim correcto
Dim conexion, registros, SQL
'Recogemos el formulario
nombre=Request.Form("nombre")
apellido=Request.Form("apellido")
correo=Request.Form("correo")
password=Request.Form("password")
login=Request.Form("user")
correcto=True
'Comprobamos que no hay campos vacíos
if nombre="" then correcto=False end if
if apellido="" 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 conexion = Server.CreateObject("ADODB.Connection")
basedatos = Server.MapPath("db/databaseusers.mdb")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & basedatos & ";"
SQL="SELECT * FROM Data WHERE (Login='"&login&"');"
set registros=conexion.Execute(SQL)
'si no nos devuelve vacío es que el login ya está en uso
if not registros.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 Data (Login, Password, Nombre, Apellido, E-Mail ) values ('"
SQL = SQL & Request.Form("login") & "', '"
SQL = SQL & Request.Form("password") & "', '"
SQL = SQL & Request.Form("nombre") & "', '"
SQL = SQL & Request.Form("apellido") & "', '"
SQL = SQL & Request.Form("correo") & "')"
conexion.Execute(SQL)
Response.Write("Gracias por registrarte, "& nombre)
end if
'Limpiamos objetos
registros.Close
conexion.Close
set registros=nothing
set conexion=nothing
else
'El usuario ha metido datos incorrectos
Response.Write("Datos incorrectos!")
end if
%>
</body>
</html>
|