
08/06/2004, 03:27
|
| | Fecha de Ingreso: enero-2003 Ubicación: Barcelona
Mensajes: 124
Antigüedad: 22 años, 3 meses Puntos: 0 | |
Agregar datos a BD y más! 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><b>Debes rellenar todos los campos</b></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><b>Nombre.:</b><td><%=rs.fields("Nombre")%></td>
</tr>
<tr>
<td><b>Apellidos.:</b></td><td><%=rs.fields("Apellidos")%></td>
</tr>
<tr>
<td><b>Correo</b></td><td><%=rs.fields("Correo")%></td>
</tr><br><p><br><p>
</table>
<%
rs.movenext
loop
rs.close
con.close
end if
%>
</BODY>
</HTML> |