Podemos conectar a la base de datos
utilizando ODBC o bien de forma directa utilizando OLEDB a continuación
le proponemos un ejercicio, le facilitamos el codigo, vamos ha hacer un
formulario de pedido de clientes, primero diseñaremos la base de
datos con los registros que queremos guardar que en este caso serán
tantos como campos.
Página del
formulario:
Código del formulario:
<form name="form1"
method="post" action="enviocontacto2.asp">
<table width="98%" border="0" cellspacing="0">
<tr>
<td width="23%"> </td>
<td width="2%"> </td>
<td colspan="4"><font color="#FF0000" size="1"
face="Verdana, Arial"><strong>*
LOS CAMPOS EMPRESA NOMBRE Y EMAIL SON OBLIGATORIOS
PARA QUE EL FORMULARIO SEA ENVIADO.</strong></font></td>
</tr>
<tr>
<td align="right"><strong><font size="2"
face="Verdana, Arial">EMPRESA:</font></strong></td>
<td> </td>
<td colspan="4"><input name="EMPRESA" type="text"
size="50" maxlength="50">
<font color="#FF0000" size="2" face="Verdana,
Arial"><strong>*</strong></font></td>
</tr>
<tr>
<td align="right"><strong><font size="2"
face="Verdana, Arial">NOMBRE:</font></strong></td>
<td> </td>
<td colspan="4"><input name="NOMBRE" type="text"
size="25" maxlength="25">
<font color="#FF0000" size="2" face="Verdana,
Arial"><strong>*</strong></font></td>
</tr>
<tr>
<td align="right"><strong><font size="2"
face="Verdana, Arial">
APELLIDO1:</font></strong></td>
<td> </td>
<td colspan="4"><input name="APELLIDO1" type="text"
size="25" maxlength="25"></td>
</tr>
<tr>
<td align="right"><strong><font size="2"
face="Verdana, Arial">
APELLIDO2:</font></strong></td>
<td> </td>
<td colspan="4"><input name="APELLIDO2" type="text"
size="25" maxlength="25"></td>
</tr>
<tr>
<td align="right"><strong><font size="2"
face="Verdana, Arial">DIRECCIÓN:</font></strong></td>
<td> </td>
<td colspan="4"><input name="DIRECCION" type="text"
size="50" maxlength="50"></td>
</tr>
<tr>
<td align="right"><strong><font size="2"
face="Verdana, Arial">LOCALIDAD:</font></strong></td>
<td> </td>
<td colspan="4"><input name="LOCALIDAD" type="text"
size="30" maxlength="50"></td>
</tr>
<tr>
<td align="right"><strong><font size="2"
face="Verdana, Arial">PROVINCIA:</font></strong></td>
<td> </td>
<td colspan="4"><input name="PROVINCIA" type="text"
size="30" maxlength="50"></td>
</tr>
<tr>
<td align="right"><strong><font size="2"
face="Verdana, Arial">TELEFONO:</font></strong></td>
<td> </td>
<td colspan="4"><input name="TELEFONO" type="text"
size="9" maxlength="12"></td>
</tr>
<tr>
<td align="right"><strong><font size="2"
face="Verdana, Arial">E-MAIL:</font></strong></td>
<td> </td>
<td colspan="4"><input name="EMAIL" type="text"
size="25" maxlength="50">
<font color="#FF0000" size="2" face="Verdana,
Arial"><strong>*</strong></font></td>
</tr>
<tr>
<td align="right"><font size="2" face="Verdana,
Arial"><strong>REFERENCIA1:</strong></font></td>
<td rowspan="10"> </td>
<td width="35%"><input name="REFERENCIA1"
type="text" size="45" maxlength="45"></td>
<td width="14%" colspan="2" align="right"><font
size="2" face="Verdana, Arial"><font color="#000000"><strong>UN</strong></font><strong>IDADES:</strong></font></td>
<td width="26%"><input name="UNIDADES1" type="text"
size="4" maxlength="4"></td>
</tr>
<tr>
<td align="right"><strong><font size="2"
face="Verdana, Arial">REFERENCIA2:</font></strong></td>
<td><input name="REFERENCIA2" type="text"
size="45" maxlength="45"></td>
<td colspan="2" align="right"><font size="2"
face="Verdana, Arial"><strong>UNIDADES:</strong></font></td>
<td><input name="UNIDADES2" type="text" size="4"
maxlength="4"></td>
</tr>
<tr>
<td align="right"><font size="2" face="Verdana,
Arial"><strong>REFERENCIA3:</strong></font></td>
<td><input name="REFERENCIA3" type="text"
size="45" maxlength="45"></td>
<td colspan="2" align="right"><font size="2"
face="Verdana, Arial"><strong>UNIDADES:</strong></font></td>
<td><input name="UNIDADES3" type="text" size="4"
maxlength="4"></td>
</tr>
<tr>
<td align="right"><font size="2" face="Verdana,
Arial"><strong>REFERENCIA4:</strong></font></td>
<td><input name="REFERENCIA4" type="text"
size="45" maxlength="45"></td>
<td colspan="2" align="right"><font size="2"
face="Verdana, Arial"><strong>UNIDADES:</strong></font></td>
<td><input name="UNIDADES4" type="text" size="4"
maxlength="4"></td>
</tr>
<tr>
<td align="right"><font size="2" face="Verdana,
Arial"><strong>REFERENCIA5:</strong></font></td>
<td><input name="REFERENCIA5" type="text"
size="45" maxlength="45"></td>
<td colspan="2" align="right"><font size="2"
face="Verdana, Arial"><strong>UNIDADES:</strong></font></td>
<td><input name="UNIDADES5" type="text" size="4"
maxlength="4"></td>
</tr>
<tr>
<td align="right"><font size="2" face="Verdana,
Arial"><strong>REFERENCIA6:</strong></font></td>
<td><input name="REFERENCIA6" type="text"
size="45" maxlength="45"></td>
<td colspan="2" align="right"><font size="2"
face="Verdana, Arial"><strong>UNIDADES:</strong></font></td>
<td><input name="UNIDADES6" type="text" size="4"
maxlength="4"></td>
</tr>
<tr>
<td align="right"><font size="2" face="Verdana,
Arial"><strong>REFERENCIA7:</strong></font></td>
<td><input name="REFERENCIA7" type="text"
size="45" maxlength="45"></td>
<td colspan="2" align="right"><font size="2"
face="Verdana, Arial"><strong>UNIDADES:</strong></font></td>
<td><input name="UNIDADES7" type="text" size="4"
maxlength="4"></td>
</tr>
<tr>
<td align="right"><font size="2" face="Verdana,
Arial"><strong>REFERENCIA8:</strong></font></td>
<td><input name="REFERENCIA8" type="text"
size="45" maxlength="45"></td>
<td colspan="2" align="right"><font size="2"
face="Verdana, Arial"><strong>UNIDADES:</strong></font></td>
<td><input name="UNIDADES8" type="text" size="4"
maxlength="4"></td>
</tr>
<tr>
<td align="right"><font size="2" face="Verdana,
Arial"><strong>REFERENCIA9:</strong></font></td>
<td><input name="REFERENCIA9" type="text"
size="45" maxlength="45"></td>
<td colspan="2" align="right"><font size="2"
face="Verdana, Arial"><strong>UNIDADES:</strong></font></td>
<td><input name="UNIDADES9" type="text" size="4"
maxlength="4"></td>
</tr>
<tr>
<td align="right"><font size="2" face="Verdana,
Arial"><strong>COMENTARIO:</strong></font></td>
<td colspan="4"><input name="REFERENCIA10"
type="text" size="80" maxlength="80">
<font size="2" face="Verdana, Arial"> </font></td>
</tr>
<tr align="right">
<td colspan="6"> <input type="submit" name="Submit"
value="Enviar">
</td>
</tr>
</table>
</form>
Página de confirmación
que el pedido ha sido enviado correctamente:
EMPRESA |
|
NOMBRE |
|
APELLIDO1 |
|
APELLIDO2 |
|
DIRECCION |
|
LOCALIDAD |
|
PROVINICA |
|
TELEFONO |
|
EMAIL |
|
PEDIDO: |
|
|
PEDIDO: |
|
|
PEDIDO: |
|
|
PEDIDO: |
|
|
PEDIDO: |
|
|
PEDIDO: |
|
|
PEDIDO: |
|
|
PEDIDO: |
|
|
PEDIDO: |
|
|
PEDIDO: |
|
|
Código para está página:
Para la conexión y envio de datos
<%
conexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="
& Server.MapPath("pedidos.mdb")
set conn = Server.CreateObject("adodb.connection")
conn.open conexion
DIM EMPRESA, NOMBRE, NAPELLIDO1, NAPELLIDO2,
NDIRECCION, NLOCALIDAD, NPROVINCIA, NTELEFONO, EMAIL, TEXTO, REFERENCIAA,
REFERENCIAB, NREFERENCIA3, NREFERENCIA4, NREFERENCIA5, NREFERENCIA6, NREFERENCIA7,
NREFERENCIA8, NREFERENCIA9, NREFERENCIA10, NUNIDAES1, NUNIDADES2, NUNIDADES3,
NUNIDADES4, NUNIDADES5, NUNIDAES6, NUNIDADES7, NUNIDADES8, NUNIDADES9,
NUNIDEADES10
NAPELLIDO1 = REQUEST.FORM("APELLIDO1")
NAPELLIDO2 = REQUEST.FORM("APELLIDO2")
NDIRECCION = REQUEST.FORM("DIRECCION")
NLOCALIDAD = REQUEST.FORM("LOCALIDAD")
NPROVINCIA = REQUEST.FORM("PROVINCIA")
NTELEFONO = REQUEST.FORM("TELEFONO")
NUNIDADES1 = REQUEST.FORM("UNIDADES1")
NUNIDADES2 = REQUEST.FORM("UNIDADES2")
NUNIDADES3 = REQUEST.FORM("UNIDADES3")
NUNIDADES4 = REQUEST.FORM("UNIDADES4")
NUNIDADES5 = REQUEST.FORM("UNIDADES5")
NUNIDADES6 = REQUEST.FORM("UNIDADES6")
NUNIDADES7 = REQUEST.FORM("UNIDADES7")
NUNIDADES8 = REQUEST.FORM("UNIDADES8")
NUNIDADES9 = REQUEST.FORM("UNIDADES9")
NUNIDADES10 = DATE
REFERENCIAA = REQUEST.FORM("REFERENCIA1")
REFERENCIAB = REQUEST.FORM("REFERENCIA2")
NREFERENCIA3 = REQUEST.FORM("REFERENCIA3")
NREFERENCIA4 = REQUEST.FORM("REFERENCIA4")
NREFERENCIA5 = REQUEST.FORM("REFERENCIA5")
NREFERENCIA6 = REQUEST.FORM("REFERENCIA6")
NREFERENCIA7 = REQUEST.FORM("REFERENCIA7")
NREFERENCIA8 = REQUEST.FORM("REFERENCIA8")
NREFERENCIA9 = REQUEST.FORM("REFERENCIA9")
NREFERENCIA10 = REQUEST.FORM("REFERENCIA10")
IF REFERENCIAA = "" THEN REFERENCIAA = "SIN NOMBRE"
IF REFERENCIAB= "" THEN REFERENCIAB
= "SIN NOMBRE"
IF NREFERENCIA3 = "" THEN NREFERENCIA3 = "SIN NOMBRE"
IF NREFERENCIA4 = "" THEN NREFERENCIA4 = "SIN NOMBRE"
IF NREFERENCIA5 = "" THEN NREFERENCIA5 = "SIN NOMBRE"
IF NREFERENCIA6 = "" THEN NREFERENCIA6 = "SIN NOMBRE"
IF NREFERENCIA7 = "" THEN NREFERENCIA7 = "SIN NOMBRE"
IF NREFERENCIA8 = "" THEN NREFERENCIA8 = "SIN NOMBRE"
IF NREFERENCIA9 = "" THEN NREFERENCIA9 = "SIN NOMBRE"
IF NREFERENCIA10 = "" THEN NREFERENCIA10 = "SIN NOMBRE"
IF NUNIDADES1 = "" THEN NUNIDADES1 = "-"
IF NUNIDADES2 = "" THEN NUNIDADES2 = "-"
IF NUNIDADES3 = "" THEN NUNIDADES3 = "-"
IF NUNIDADES4 = "" THEN NUNIDADES4 = "-"
IF NUNIDADES5 = "" THEN NUNIDADES5 = "-"
IF NUNIDADES6 = "" THEN NUNIDADES6 = "-"
IF NUNIDADES7 = "" THEN NUNIDADES7 = "-"
IF NUNIDADES8 = "" THEN NUNIDADES8 = "-"
IF NUNIDADES9 = "" THEN NUNIDADES9 = "-"
IF NAPELLIDO1 = "" THEN NAPELLIDO1
= "VACIO"
IF NAPELLIDO2 = "" THEN NAPELLIDO2 = "VACIO"
IF NDIRECCION = "" THEN NDIRECCION = "VACIO"
IF NLOCALIDAD = "" THEN NLOCALIDAD = "VACIO"
IF NPROVINCIA = "" THEN NPROVINCIA = "VACIO"
IF NTELEFONO = "" THEN NTELEFONO = "VACIO"
IF REQUEST.FORM("EMPRESA") = "" OR REQUEST.FORM("NOMBRE")
= "" OR REQUEST.FORM("EMAIL") = "" THEN
RESPONSE.REDIRECT("noenviado.ASP")
END IF
DIM VALORES
VALORES = "'" & REQUEST.FORM("EMPRESA") &
"','" & REQUEST.FORM("NOMBRE") & "','"
& NAPELLIDO1 & "','" & NAPELLIDO2 & "','"
& NDIRECCION & "','" & NLOCALIDAD & "','"
& NPROVINCIA & "','" & NTELEFONO & "','"
& REQUEST.FORM("EMAIL") & "','" & REFERENCIAA
& "','" & NUNIDADES1 & "','" & REFERENCIAB
& "','" & NUNIDADES2 & "','" & NREFERENCIA3
& "','" & NUNIDADES3 & "','" & NREFERENCIA4
& "','" & NUNIDADES4 & "','" & NREFERENCIA5
& "','" & NUNIDADES5 & "','" & NREFERENCIA6
& "','" & NUNIDADES6 & "','" & NREFERENCIA7
& "','" & NUNIDADES7 & "','" & NREFERENCIA8
& "','" & NUNIDADES8 & "','" & NREFERENCIA9
& "','" & NUNIDADES9 & "','" & NREFERENCIA10
& "','" & NUNIDADES10 & "'"
strsql = "insert into CONTACTO values(" & VALORES &
")"
set miconexion = conn.execute(strsql)
%>
También necesitaremos
una tercera página para cuando los datos no se han enviado cuando
no se han rellenado los campos obligatorios será la página
no enviado.asp en este caso.
Para mostrar los datos enviados
en pantalla lo podemos hacer de la siguiente forma
<table width="98%"
border="1" cellspacing="0">
<tr>
<td width="15%"><strong><font size="2"
face="Verdana, Arial">EMPRESA</font></strong></td>
<td colspan="2"> <%=REQUEST.FORM("EMPRESA")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana,
Arial">NOMBRE</font></strong></td>
<td colspan="2"><%=REQUEST.FORM("NOMBRE")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana,
Arial">APELLIDO1</font></strong></td>
<td colspan="2"><%=REQUEST.FORM("APELLIDO1")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana,
Arial">APELLIDO2</font></strong></td>
<td colspan="2"><%=REQUEST.FORM("APELLIDO2")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana,
Arial">DIRECCION</font></strong></td>
<td colspan="2"><%=REQUEST.FORM("DIRECCION")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana,
Arial">LOCALIDAD</font></strong></td>
<td colspan="2"><%=REQUEST.FORM("LOCALIDAD")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana,
Arial">PROVINICA</font></strong></td>
<td colspan="2"><%=REQUEST.FORM("PROVINCIA")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana,
Arial">TELEFONO</font></strong></td>
<td colspan="2"><%=REQUEST.FORM("TELEFONO")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana,
Arial">EMAIL</font></strong></td>
<td colspan="2"><%=REQUEST.FORM("EMAIL")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana,
Arial">REFERENCIA1</font></strong></td>
<td width="66%"><%=REQUEST.FORM("REFERENCIA1")%></td>
<td width="19%"><%=REQUEST.FORM("UNIDADES1")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana,
Arial">REFERENCIA2</font></strong></td>
<td><%=REQUEST.FORM("REFERENCIA2")%></td>
<td><%=REQUEST.FORM("UNIDADES2")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana,
Arial">REFERENCIA3</font></strong></td>
<td><%=REQUEST.FORM("REFERENCIA3")%></td>
<td><%=REQUEST.FORM("UNIDADES3")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana,
Arial">REFERENCIA4</font></strong></td>
<td><%=REQUEST.FORM("REFERENCIA4")%></td>
<td><%=REQUEST.FORM("UNIDADES4")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana,
Arial">REFERENCIA5</font></strong></td>
<td><%=REQUEST.FORM("REFERENCIA5")%></td>
<td><%=REQUEST.FORM("UNIDADES5")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana,
Arial">REFERENCIA6</font></strong></td>
<td><%=REQUEST.FORM("REFERENCIA6")%></td>
<td><%=REQUEST.FORM("UNIDADES6")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana,
Arial">REFERENCIA7</font></strong></td>
<td><%=REQUEST.FORM("REFERENCIA7")%></td>
<td><%=REQUEST.FORM("UNIDADES7")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana,
Arial">REFERENCIA8</font></strong></td>
<td><%=REQUEST.FORM("REFERENCIA8")%></td>
<td><%=REQUEST.FORM("UNIDADES8")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana,
Arial">REFERENCIA9</font></strong></td>
<td><%=REQUEST.FORM("REFERENCIA9")%></td>
<td><%=REQUEST.FORM("UNIDADES9")%></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana,
Arial">COMENTARIO</font></strong></td>
<td colspan="2"><%=REQUEST.FORM("REFERENCIA10")%></td>
</tr> |