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>

Ir la librería