Agregar Datos a una BD en ASP

RsOfT · #1 (**permalink**) 14/03/2002, 16:56

Hola a todos:

A ver si me pueden ayudar con esto.

Tengo una BD en access la cual se llama Correo.mdb, en el ODBC se llama
Correo y tiene una tabla que se llama Tabla1 (No tiene llave). Los campos
que hay en tabla uno son: Nombre, Apellido y EMail.

Despudes de dar esos datos, entremos en materia. Tengo el siguiente
formulario de entrada de datos:
---------------------------------------------------------------
<%@ Language="VBScript" %>
<html>
<head>
<title>Ingresar Datos en la BD con ASP</title>
</head>
<body>
<form method="post" action="ingreso.asp">
<table border="0">
<tr>
<td>Nombre</td>
<td><input type="Text" name="Dato1" size="20"></td>
<td>Dato1</td>
</tr>
<tr>
<td>Apellido</td>
<td><input type="Text" name="Dato2" size="20"></td>
<td>Dato2</td>
</tr>
<tr>
<td>Email</td>
<td><input type="Text" name="Dato3" size="20"></td>
<td>Dato3</td>
</tr>
<tr>
<td><input type="Submit" value="ingresar" name="B1"></td>
<td><input type="Reset" value="Resetear" name="B2"></td>
</tr>
</table>
</form>
</body>
</html>
---------------------------------------------------------------

.::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pesimo gusto contentarse con algo mediocre cuando lo excelente esta a nuestro alcance--

RsOfT · #2 (**permalink**) 14/03/2002, 16:58

En la página ingresar tengo:
---------------------------------------------------------------
<%@ LANGUAGE="VBSCRIPT" %>
<html>
<head>
<title>Ingreso de Datos</title>
</head>
<body>
<%
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
Dim Temp

Conexion.Open "Correo"
Tabla.Open "Tabla1",Conexion

Temp="Select * From Tabla1 Where UCase(Nombre)='" & UCase(Request("Dato1"))
& "' And UCase(Apellido)='" & UCase(Request("Dato2")) & "' And
UCase(Email)='" & UCase(Request("Dato3")) & "'"

Tabla.Open Temp,Conexion

If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("Nombre") = Request("Dato1")
Tabla("Apellido") = Request("Dato2")
Tabla("Email") = Request("Dato3")
Tabla.Update
%>

<p>Ingreso de datos completado</p>

<%
Else
Response.Write ("El registro ya existe")
End If

Tabla.Close
Conexion.Close
%>
</body>
</html>
---------------------------------------------------------------
Al presionar Sumit de value="Ingresar", no me agrega nada, solo me pone:
No se puede mostrar la página, y si le doy a refresh me sale un letrerito
que dice:
La página no puede actualizarse sin renviar la informacion, haga click en
reintentar para volver a renviar la informacion o Cancelar para volver a la
página que intentaba ver, Si le doy a reintentar me sale otra ves: "No se
puede mostrar la página" y si le doy a Cancelar me sale: "Advertencia: La
página ha caducado"

Que estoy haciendo mal???
La informacion obtenida para mi aprendisaje la estoy extrayendo de:
http://www.ethek.com/contenido.asp?IDContenido=181
Gracias anticipadas...

.::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pesimo gusto contentarse con algo mediocre cuando lo excelente esta a nuestro alcance--

RsOfT · #3 (**permalink**) 14/03/2002, 16:59

El mensaje esta en dos post, porque en uno ne me dio

.

Estaré muy agradecido por la debida atencion que le presten a mi problemita... :)

.::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pesimo gusto contentarse con algo mediocre cuando lo excelente esta a nuestro alcance--

toniquio · #4 (**permalink**) 14/03/2002, 18:34

Conozco ese error, yo tambien he manejado ese tutorial y me daba el mismo error, al parecer no se puede poner:

Código:

 Open.Tabla Temp,Conexion

si antes ya has puesto algo parecido.

Yo tampoco se como arregrarlo, alguien nos ayuda??

movizonio · #5 (**permalink**) 14/03/2002, 19:29

Probar con esto, a mi me va de muerte:

Tabla.Open "Tabla1",Conexion

--------------------------------

Tabla.Open Temp,Conexion,2,3,1

me decis lo que sea :P ;)

urjose · #6 (**permalink**) 14/03/2002, 22:30

Revisala con el netscape ahi si te marca el error

o deja el link de tu pagina para que alguien con netscape la vea y te ponga lo que sale

saludos

:)

toniquio · #7 (**permalink**) 15/03/2002, 10:12

Yo tengo exactamente lo mismo que mavizonio, es decir:

Código:

 Tabla.Open Temp,Conexion,2,3,1

Y me meuestra el error que puse:
No se puede abrir el objeto si este ya está abierto

Porque unas lineas antes se encuentra esto:

Código:

 Tabla.Open &quot;tabla1&quot;,Conexion

Lo que hice fue cerrar esto último antes de volver a abrir

Código:

 Tabla.Open Temp,Conexion,2,3,1

Pero entonces me da un error que dice:La accion no está permitida en ese contexto , refiriendose a

Código:

 Tabla.Close

, pero a la que está al final del código.

Vamos que sigue sin funcionarme.

RsOfT · #8 (**permalink**) 15/03/2002, 13:19

Muchas gracias mano...

.::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pesimo gusto contentarse con algo mediocre cuando lo excelente esta a nuestro alcance--

toniquio · #9 (**permalink**) 15/03/2002, 15:21

Pues a mi sigue sin funcionarme, he revisado el código algo asi como 20 veces y nada, está igual que el que han puesto aqui que se supone que funciona y nada de nada....

Ayuda por favor!!!!

:(

toniquio · #10 (**permalink**) 15/03/2002, 16:24

No lo entiendo... Volví a probar con Tabla.Close justo depues de toda la linea de temp=... y ahora resulta que me funciona, en fin... Esa es la forma lógica pero antes no funcionaba y ahora si, bueno, pues ya está.

De todas formas pongo el código por si alguien lo quiere:

Código:

 &lt;%
Dim Conexion, Tabla, Temp

Set Conexion=Server.CreateObject(&quot;ADODB.connection&quot;)
Conexion.Open &quot;correo&quot;
Set Tabla=Server.CreateObject(&quot;ADODB.recordset&quot;)

Tabla.Open &quot;Tabla1&quot;,Conexion
Temp=&quot;Select * From Tabla1 Where UCase(Nombre)='&quot; &amp; UCase(Request(&quot;Dato1&quot;))_
&amp; &quot;' And UCase(Apellido)='&quot; &amp; UCase (Request (&quot;Dato2&quot;))_
&amp; &quot;' And UCase (Email)='&quot; &amp; UCase (Request(&quot;Dato3&quot;)) &amp; &quot;'&quot;
Tabla.Close
Tabla.Open Temp,Conexion,2,3,1

If Tabla.BOF And Tabla.EOF Then
Tabla.Addnew
Tabla(&quot;Nombre&quot;)= Request(&quot;Dato1&quot;)
Tabla(&quot;Apellido&quot;)=Request(&quot;Dato2&quot;)
Tabla(&quot;Email&quot;)=Request(&quot;Dato3&quot;)
Tabla.Update
%&gt;
&lt;p&gt;Ingreso de datos completado&lt;/p&gt;
&lt;%
Else
Response.Write &quot;El registro ya existe&quot;
End if
Tabla.Close
Conexion.Close%&gt;
&lt;/body&gt;
&lt;/html&gt;

Un saludo.

Cain69 · #11 (**permalink**) 15/03/2002, 20:54

no se si realmente pase esto, pero el otro día probaba un ejemplo con base de datos, la cual tenía abierta en access y se me ocurrió ver como quedaba en la página .asp, me decía que el objeto ya estaba abierto, asi que cerré access y listo, no me daba ningún problema, de verdad no se si esto tiene "relacion con la realidad", pero expongo el caso por si las moscas...

Se despide, un amigo.

*<embed width="100height=165" height="99" quality="high" bgcolor="#ffffff" src="http://galeon.com/cain81/llamada2.swf"></embed>