
17/01/2005, 13:19
|
 | | | Fecha de Ingreso: abril-2001
Mensajes: 2.249
Antigüedad: 24 años Puntos: 39 | |
Ok. mira aqui pongo el formulario en html.
<html>
<head>
<title>formulario.htm</title>
</head>
<body>
<form method="POST" action="agregar.asp">
<p>Nombre <input type="text" name="nombre" size="20"><br>
Apellido <input type="text" name="apellido" size="20"><br>
Email <input type="text" name="email" size="20"><br>
Password <input type="text" name="password" size="20"><br>
<input type="submit" value="Agregar" name="enviar"></p>
</form>
</body>
</html>
y este es mi codigo en asp.
<%
' tomamos los datos del formulario
nombre = Request.Form("nombre")
apellido = Request.Form("apellido")
email = Request.Form("email")
password = Request.Form("password")
' creamos la conexion y los 2 recordset
Set Con=Server.CreateObject("ADODB.Connection")
Set RS=Server.CreateObject("ADODB.RecordSet")
Set RS2=Server.CreateObject("ADODB.RecordSet")
Con.Open "gema"
' ejecutamos una consulta para cada recorset
RS.Open "SELECT * FROM Usuarios", Con, adOpenDynamic, adLockPessimistic, adCMDText
RS2.Open "SELECT * FROM UsuariosPassword", Con, adOpenDynamic, adLockPessimistic, adCMDText
' agregamos los datos a la primera tabla
RS.AddNew
RS("nombre")= nombre
RS("apellido")= apellido
RS.Update
' agregamos los datos a la segunda tabla
RS2.AddNew
RS2("email")= email
RS2("password")= password
RS2.Update
' cerramos los objetos y liberamos memoria
RS.Close
RS2.Close
MyConn.Close
Set RS = Nothing
Set RS2 = Nothing
Set MyConn = Nothing
%>
Pero me da error de página que no se puede mostrar por el servidor..
Tengo mi página en un servidor de la empresa AT&T con servicio de ASP y bases de datos..
Que estara pasando... |