Ver Mensaje Individual
  #6 (permalink)  
Antiguo 21/09/2004, 14:36
Avatar de umdraiga
umdraiga
 
Fecha de Ingreso: diciembre-2001
Ubicación: Aragón España
Mensajes: 128
Antigüedad: 22 años, 4 meses
Puntos: 0
Esto es un ejemplo en el cual el usuario introduce datos en un formulario campos que se graban en la BBDD que está alojada en el servidor y la BBDD se llama carta.mdb
La pág. se llama carta.asp
Debrás una vez introducidos los datos redirigirla a otra pág o a la misma, eso tu verás
Los campos son
Nombre y Apellidos --- Nombre
Profesión --- Profesion
Localidad --- Localidad
Pais --- Pais
Correo elecronico ---Email



<FORM name = "formulario" ACTION="carta.asp" METHOD="POST">
<table align=center>
<tr><td>
<p style="margin-top: 0; margin-bottom: 0">
<font color="#000000" size="2" face="Arial"><b> Nombre y Apellidos</b></font></td>
<td>
<p style="margin-top: 0; margin-bottom: 0"><font face="Arial"><input type="text" name="Nombre" size="50" maxlength="50"></font></td></tr>

<tr><td><FONT color="#000000" size="2" face="Arial"><b>Profesión</b></FONT></td>
<td><font face="Arial"><INPUT TYPE="text" NAME="Profesion" size="50" maxlength="50"></font></td></tr>


<tr><td><FONT color="#000000" size="2" face="Arial"><b>Localidad</b></FONT></td>
<td><font face="Arial"><INPUT TYPE="text" NAME="Localidad" size="50" maxlength="50"></font></td></tr>

<tr><td><FONT color="#000000" size="2" face="Arial"><b>País</b></FONT></td>
<td><font face="Arial"><INPUT TYPE="text" NAME="Pais" size="50" maxlength="50"></font></td></tr>
<tr><td><FONT color="#000000" size="2" face="Arial"><b>Correo Electrónico</b></FONT></td>
<td><font face="Arial"><INPUT TYPE="text" NAME="Email" size="50" maxlength="50"></font></td></tr>

<tr><td></td><td><INPUT name="submit" TYPE="Submit" VALUE="Enviar">
<INPUT name="submit" TYPE="Reset" VALUE="Borrar"></td></tr>
</table>
<INPUT name="Vez" TYPE="hidden" VALUE="uno">
</FORM>

<% ELSE

Set conexion = Server.CreateObject ("ADODB.Connection")
conexion.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=D:\bd\...\...\carta.mdb"
Set RSH=CreateObject("ADODB.Recordset")


RSH.Open "cartas", conexion, adOpenStatic, adCmdTable
RSH.AddNew
RSH("NOMBRE") = Request.Form("Nombre")
RSH("PROFESION") = Request.Form("Profesion")
RSH("LOCALIDAD") = Request.Form("Localidad")
RSH("PAIS") = Request.Form("Pais")
RSH("EMAIL") = Request.Form("Email")

RSH.UpDate
RSH.close
conexion.Close

' SE ACABA LA BASE DE DATOS

%>


espero te valga
__________________
http://www.umdraiga.com
Una causa justa :arriba: