Ver Mensaje Individual
  #5 (permalink)  
Antiguo 17/01/2005, 13:19
Avatar de Potro
Potro
 
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...