Enviar el pedido I

Tras comprobar que el pedido coincide con los deseos del cliente, éste pasará seguidamente a enviar la orden. Para ello se le pedirá obviamente rellenar un formulario con los datos necesarios. Estos datos, junto con el contenido de su carrito, serán almacenados en una tabla de pedidos a partir de la cual nosotros podremos llevar a termino la orden del cliente.

El script ha de ser pues dividido en dos partes: Una primera que ha sido colocada en segundo lugar donde el cliente rellenará el formulario y la segunda en la que el pedido queda registrado en la base de datos. El orden de los fragmentos ha sido alterado debido a la necesidad de crear cookies antes de la etiqueta HTML.

Aquí tenéis el listado:

<!--#include file="plantillas/connon.inc"--> <!-- #include file="scripts_lengua/lecturalengua.inc" --> <% If Request.Form("enviar")<>"" Then 'Formulario enviado 'Recogemos variables    nombre=Request.Form("nombre")    direccion=Request.Form("direccion")    Response.Cookies("nombre")=nombre    Response.Cookies("direccion")=direccion    Response.Cookies("nombre").Expires = #1/1/2002#    Response.Cookies("direccion").Expires = #1/1/2002# 'Leemos el contenido del carrito    Dim id(10)    For i=1 to 10       id(i)=Cint(Session(i))    Next%>    <!--#include file="plantillas/plantillahtml.inc"-->    <table align="center" width="400" cellspacing="2" cellpadding="2" border="0"> <% 'Comprobamos si el formulario ha sido rellenado bien y si es asi, incluimos el pedido en la BD    If nombre="" Then%>       <tr>       <td bgcolor="#cc9900" align="center"><FONT face="verdana,arial,helvetica" size=2 color="#ffffff"><%imprimir("fallo_nombre")%></font><br>       </td></tr>       <tr>       <td bgcolor="#999966" align="center">       <a href="pedido.asp"><FONT face="verdana,arial,helvetica" size=2 color="#ffffff"><%imprimir("volver")%></font></a>       </td></tr>    <%Elseif direccion="" Then%>       <tr>       <td bgcolor="#cc9900" align="center"><FONT face="verdana,arial,helvetica" size=2 color="#ffffff"><%imprimir("fallo_direccion")%></font><br>       </td></tr>       <tr>       <td bgcolor="#999966" align="center">       <a href="pedido.asp"><FONT face="verdana,arial,helvetica" size=2 color="#ffffff"><%imprimir("volver")%></font></a>       </td></tr>    <%Else 'Generamos nuestra sentencia SQL y la ejecutamos       sSQL="Insert Into pedidos2 (nombre,direccion,fecha,total,id_1,id_2,id_3,id_4,id_5,id_6,id_7,id_8,id_9,id_10) Values ('"&nombre&"','"&direccion&"','"&date&"',"&Session("total")&","&id(1)&","&id(2)&","&id(3)&","&id(4)&","&id(5)&","&id(6)&","&id(7)&","&id(8)&","&id(9)&","&id(10)&")"       set RS=Conn.Execute(sSQL)%>       <tr>       <td bgcolor="#cc9900" align="center"><FONT face="verdana,arial,helvetica" size=2 color="#ffffff"><%imprimir("gracias")%></font><br>       </td></tr>       <tr>       <td bgcolor="#999966" align="center">       <FONT face="verdana,arial,helvetica" size=2 color="#ffffff"><a href="home.asp"><%imprimir("volver")%></a></font>       </td></tr> <% 'Damos por finalizada la sesion       Session.Abandon    End If%>    </table>    <!--#include file="plantillas/connoff.inc"--> <% Else 'Formulario no enviado 'Recogemos cookies para rellenar el formulario    nombre=Request.Cookies("nombre")    direccion=Request.Cookies("direccion") %>    <!--#include file="plantillas/plantillahtml.inc"-->    <!--#include file="plantillas/plantillahtml.inc"-->    <form action="pedido.asp" method="post" name="pedido">    <table align="center" width="400" cellspacing="2" cellpadding="2" border="0">    <tr>    <td bgcolor="#999966" align="center">    <FONT face="verdana,arial,helvetica" size=2 color="#ffffff"><%imprimir("formulario")%></font><br>    </td></tr>    <tr>    <td bgcolor="#cc9900" align="center">    <FONT face="verdana,arial,helvetica" size=2 color="#ffffff"><%imprimir("nombre")%></font><br>    <input type="Text" name="nombre" value="<%=nombre%>">    </td></tr>    <tr>    <td bgcolor="#cc9900" align="center"><FONT face="verdana,arial,helvetica" size=2 color="#ffffff"><%imprimir("direccion")%></font><br>    <input type="Text" name="direccion" value="<%=direccion%>">    </td></tr>    <tr>    <td bgcolor="#999966" align="center">    <input type="submit" name="enviar" value="<%imprimir("enviar")%>">    </td></tr>    </table>    </form>    <!--#include file="plantillas/connoff.inc"--> <%End If%> </body> </html>

Autoría, licencia y acciones sobre este artículo

Informe de Rubén Alvarez* Atención: Contenido exclusivo de DesarrolloWeb.com. No reproducir. Copyright. * Para consultas técnicas utilizar la lista de correo. Versión imprimible del artículo Enviar artículo por e-mail Publicar un comentario del artículo

Comentarios de los visitantes

Añadir un comentario del artículo Aun no hemos recibido comentarios de este artículo. Puedes ser el primero en enviar tu comentario.

Enlaces:

Maestrosdelweb

  Ir arriba