Ver Mensaje Individual
  #1 (permalink)  
Antiguo 28/01/2007, 11:04
Avatar de neo33d
neo33d
 
Fecha de Ingreso: febrero-2006
Mensajes: 213
Antigüedad: 19 años, 2 meses
Puntos: 1
Pregunta problema al guardar la inform. de un formulario a una b.d

relleno el formulario, y el archivo asp trata de que una vez que rellenes el formulario se guarde en una base de datos de microsoft access, pero cuando le doy a enviar me sale una pantalla de si deseo abrir o guardar el archivo en asp que se encarga de guardar el resultado del formulario en la b.d, y abro mi b.d y no hay esos datos que introducí, a qui os dejo el codigo:


el archivo asp que se encarga de registrar en la b.d:

<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>


el fichero formulario en html:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> Usuario nuevo </TITLE>
</HEAD>

<BODY bgcolor="#FB9925">
<table border=0 align="center">
<form action="registrar.asp" method="post" >
<tr>
<td><b>Nombre.:</b></td><td><input type="text" name="txtnom"></td>
</tr>
<tr>
<td><b>Apellidos.:</b></td><td><input type="text" name="txtapell"></td>
</tr>
<tr>
<td><b>Correo.:</b></td><td><input type="Text" name="txtcorreo"></td>
</tr>
<tr>
<td><input type="Submit" value="Guardar"></td>
<td><input type="Reset" value="Borrar"></td>
</tr>
</form>
</table>

</BODY>
</HTML>


¿que falla?

muchas gracias
__________________
:pirata:

COGITO, ERGO SUM