Ver Mensaje Individual
  #2 (permalink)  
Antiguo 09/04/2003, 18:11
Avatar de adn_aguilera
adn_aguilera
 
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
%>