
09/04/2003, 18:11
|
 | | | Fecha de Ingreso: abril-2003 Ubicación: Monterrey
Mensajes: 19
Antigüedad: 22 años, 1 mes Puntos: 0 | |
esto en el asp... ayuda por favor!!! y esto en el asp (copié el códgio de aspfacil y lo modifiqué):
<%
Dim nombre, usuario, password
Dim correcto
Dim oConn, rs, SQL
nombre=Request.Form("nombre")
usuario=Request.Form("usuario")
password="pass"
correcto=True
if nombre="" then correcto=False end if
if usuario="" then correcto=False end if
if correcto then
set oConn=Server.CreateObject("ADODB.Connection")
'no estoy seguro de lo que sigue
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("usu.mdb"))
'tengo mis dudas si realmente se declara asi la conexión
SQL="SELECT * FROM usuarios WHERE (usuario='"&usuario&"');"
set rs=oConn.Execute(SQL)
if not rs.EOF then
Response.Write("El correo del usuario ya está siendo utilizado. ")
Response.Write("Por favor, escoja otro.")
else
SQL="INSERT INTO Usuarios " & _
"(nombre, usuario, password)"
SQL=SQL & " VALUES ('"&nombre&"', '"&usuario&"', '"&password&"');"
oConn.Execute(SQL)
Response.Write("Gracias por registrarte, ")
end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
else
Response.Write("Datos incorrectos!")
end if
%> |