12/01/2002, 16:20
|
 | | | Fecha de Ingreso: noviembre-2001 Ubicación: Vilanova i la Geltrú
Mensajes: 1.942
Antigüedad: 23 años, 3 meses Puntos: 0 | |
| Re: Como se hace esto
el problema k tengo con usuarios es esto no se k falla:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=" & _
Server.MapPath("usuario.mdb"))
sqltext = "SELECT * FROM usuarios"
rst.Open sqltext,cnn,3,3
'Recogemos los datos y validamos que no haya ningun campo vacio
dim titulo, copete, noticia
usuario = Request.Form("usuario")
password = Request.Form("password")
nombre = Request.Form("nombre")
email = Request.Form("email")
if usuario = "" or password ="" or nombre ="" or email ="" then
error = "Debe completar todos los datos."
Response.Write error
Response.End
end if
'Si está todo correcto, procedemos a ingresar los datos a la base de datos
rst.AddNew
rst("usuario") = usuario
rst("password") = password
rst("nombre") = nombre
rst("email") = email
rst.update
'Terminamos e imprimimos un mensaje
Response.Write "Te has registrado en Yampoo!! con exito"
%>
</body>
</html>
si lo sabes ayudame i esto estara i seguire con lo otro.
|