> Manuales > Librería virtual en ASP

Listado y primera aproximación a este script encargado de almacenar el pedido en una base de datos.

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

Rubén Alvarez

Rubén es doctor en química y programador principalmente en sus ratos libres con...

Manual