Agregar datos a BD y más!

DaniMino · #1 (**permalink**) 08/06/2004, 03:27

Os explico un poco lo que me propongo, tengo un formulario, que al rellenarlo me agrega los datos en una Base de Datos Access, hasta aqui todo funciona.

El problema es que en el ejemplo que tengo un vez has rellenado los datos, me pone el listado de datos disponible en la Base de Datos, y yo oo que quiero es que me salga un "Gracias por participar" y luego yo entre en una página protegida y pueda ver todos los datos (lo del login y mostrar los datos ya sé hacerlo)

Llevo toda la mañana dandole vueltas y no hay manera!

Alguien me puede ayudar??

Muchisimas gracias!!!!

Os pongo el formulario del ASP que me agrega los datos para que veais por donde voy...

+++++++++++++++++
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
</HEAD>

<BODY bgcolor="#FB9925">
<% dim con,rs,sql,inom,iapell,icorreo

inom = Trim(request.form("txtnom"))
iapell = Trim(request.form("txtapell"))
icorreo = Trim(request.form("txtcorreo"))

if Len("txtnom") = "" then
rsponse.write("<center>Debes rellenar todos los campos</center>")
else
set con = server.CreateObject("ADODB.Connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & server.MapPath("users.mdb")
set rs = server.CreateObject("ADODB.Recordset")
sql = "Select * From Tabla1 Order By Nombre"
rs.open sql,con,1,2
rs.addnew
rs.fields("Nombre") = inom
rs.fields("Apellidos") = iapell
rs.fields("Correo") = icorreo
rs.update
rs.movefirst
do until rs.eof%>
<table border=7 BORDERCOLOR="Black" align="center" width=600>
<tr>
<td>Nombre.:<td><%=rs.fields("Nombre")%></td>
</tr>

<tr>
<td>Apellidos.:</td><td><%=rs.fields("Apellidos")%></td>
</tr>

<tr>
<td>Correo</td><td><%=rs.fields("Correo")%></td>
</tr> 

</table>
<%
rs.movenext
loop
rs.close
con.close
end if

%>

</BODY>
</HTML>

Myakire · #2 (**permalink**) 08/06/2004, 07:23

Sino quieres que seimprima el contenido de la tabla quita el código que le sigue a "do until rs.eof%>" hasta el "loop" y en lugar de ellos mandas tu agradecimiento y pones un botón o algo que se vaya a la página que imprime ahora si el contenido.

Saludos.

DaniMino · #3 (**permalink**) 09/06/2004, 01:07

Gracias por responder Myakire, pero no sé porque tampoco me funciona... me sale lo siguiente:
"Se excedió el tiempo máximo de espera para una secuencia de comandos. "

Yo he quitado lo que había después de "do until rs.eof%>" hasta el loop... es decir:

++++++++++++++++++++
<% dim con,rs,sql,inom,iapell,icorreo

inom = Trim(request.form("txtnom"))
iapell = Trim(request.form("txtapell"))
icorreo = Trim(request.form("txtcorreo"))
inacimiento = Trim(request.form("txtnacimiento"))

if Len("txtnom") = "" then
rsponse.write("<center>Debes rellenar todos los campos</center>")
else
set con = server.CreateObject("ADODB.Connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & server.MapPath("../db/users.mdb")
set rs = server.CreateObject("ADODB.Recordset")
sql = "Select * From Tabla1 Order By Nombre"
rs.open sql,con,1,2
rs.addnew
rs.fields("Nombre") = inom
rs.fields("Apellidos") = iapell
rs.fields("Correo") = icorreo
rs.fields("Nacimiento") = inacimiento
rs.update
rs.movefirst
do until rs.eof%>
Gracias!
<%
loop
rs.close
con.close
end if

%>
++++++++++++++++++++

Muchas gracias!

DaNi

Myakire · #4 (**permalink**) 09/06/2004, 08:29

No. Deberías haber quitado TODO el ciclo, incluyendolo a él mismo.

do until rs.eof%>
Gracias!
<%
loop

Esto lo que hace es un bucle infinito ya que quieres leer hasta que sea fin de archivo en el rs. Pero como nunca haces un movenext, pues esto no se cumple jamas.

Saludos