DesarrolloWeb.com > Manuales > Librería virtual en ASP

Enviar el pedido I

Valoración del artículo:

Enviar un comentario

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

Por Rubén Alvarez

Atención: Contenido exclusivo de DesarrolloWeb.com. No reproducir. Copyright.

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:

<%
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%>

   
   <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>
   
<%
Else 'Formulario no enviado
'Recogemos cookies para rellenar el formulario

   nombre=Request.Cookies("nombre")
   direccion=Request.Cookies("direccion")
%>
   
   
   <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>
   
<%End If%>
</body>
</html>

Ir la librería

Enviar un comentario al artículo

MANUAL: Librería virtual en ASP