Perdido na lógica e nos cálculos
Olá a todos!
To desenvolvendo um sistema de solicitação de pedidos no http://www.vitrovita.com.br/pedidos.asp
Login: caioosman
Senha: 123
Todos os produtos que estão lá estão interligados em um mdb com uma tabela produtos, e possuem ID, descrição e preço (definido como número).
Na hora que a pessoa loga no sistema, aparece uma listagem de todos produtos cadastrados, com respectivo valor e um campo pra ela definir quantidades.
Eu gostaria que quando ela clicasse em confirmar pedido, aparecesse a mesma listagem porém calculando os valores de cada produto (em relação as quantidades) e o valor total. Aí quando ela desse ok, esses dados serem enviados para o e-mail de meu cliente.
Como que eu faço, dentro dessa lógica, para calcular os valores e definir isso em algum tipo de campo, para conseguir enviar?
pedidos_efetuar.asp
<!--#include file="pedidos_security.asp" --><!-- #INCLUDE FILE="includes/common.asp" --><%dim oPageset oPage = New Page%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "[http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Vitrovita - Instituto de Inovação em Vitrocerâmicos</title><script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script><script src="Scripts/mascara.js" type="text/javascript"></script><link href="estilo.css" rel="stylesheet" type="text/css" /></head><body><div id="Site"> <div id="Cx_busca"> <table width="186" border="0" cellspacing="0" cellpadding="0"> <form action='default2.asp?active_page_id=73' method="post" id="frmSearch" onsubmit="procSearch(); return false"> <tr> <td width="58"><label >Pesquisar:</label></td> <td width="97"><input type="text" class="txt" name="q" /></td> <td width="26"><input type="image" align="absmiddle" src="layout/botton.gif" height="25" width="25" name="btnG" alt="Procurar" style="margin-left:4px;"/></td> </tr> </form> </table> </div> <div id="Topo"><script type="text/javascript">AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','766','height','185','src','topo','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','movie','topo' ); //end AC code</script><noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="[http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0"](http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0) width="766" height="185"> <param name="movie" value="topo.swf" /> <param name="quality" value="high" /> <embed src="topo.swf" quality="high" pluginspage="[http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash"](http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash) type="application/x-shockwave-flash" width="766" height="185"></embed> </object> </noscript> </div><div id="Breadcumb"><a href='default.asp?active_page_id=1'>Página inicial</a> <img src='layout/marc.gif' width='8' height='8' align='absmiddle' /> Pedidos <br /> <span class="espacamento"> </span><br /> <span class=title>Pedidos</span></div> <div id="Conteudo"> <div id="Cont_int"> <p>Seja bem-vindo(a) <b><%= rsCheckUser("responsavel") %>.</b></p> <p><strong>Efetuar pedido</strong><b> | <a href="pedidos_editar.asp?.rand=<%= md5Hash %>">Editar Conta</a> | <a href="pedidos_logout.asp?.rand=<%=md5Hash %>">Sair do sistema </a></b></p> <table width="515" border="0" cellspacing="1" cellpadding="3"><form METHOD="POST" action="pedidos_confirmacao.asp?.rand=<%= md5Hash %>" name="validacao"> <tr> <td width="816" align="left" bgcolor="#e4e4e4"> <strong> Produto</strong></td> <td width="122" bgcolor="#e4e4e4"><strong> Preço </strong></td> <td width="52" bgcolor="#e4e4e4"><strong> Quantidade</strong></td> </tr><% n_page=request("n_page")If n_page="" Then n_page = 1set cn = server.CreateObject("ADODB.Connection")cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\inetpub\vhosts\vitrovita.com.br\private\users.mdb;"Set rs=Server.CreateObject("ADODB.Recordset")rs.Open "SELECT * FROM produtos ORDER BY produto ASC", cn, 3,3IF rs.EOF then Response.Write "Nenhum produto cadastrado." Response.End 'paramos o programaELSErs.PageSize = 100 'registros por páginars.AbsolutePage = Cint(n_page)contador=0do While not rs.EOF AND contador < rs.PageSizecontador=contador+1 If Eval(contador\2 = contador/2) Then color = "#e4e4e4" ELSE color = "#f8f8f8" END IF %> <tr> <td width="816" align="left" bgcolor="<%= color %>"> <%= rs("produto") %></td><td width="122" bgcolor="<%= color %>"> R$ <%= rs("preco") %></td><td width="52" bgcolor="<%= color %>"> <input name="<%= rs("id") %>qtd" id="<%= rs("id") %>qtd" type="text" size="2" maxlength="3" onkeypress="return txtBoxFormat(document.validacao, '<%= rs("id") %>qtd', '999', event);"/></td> </tr> <% rs.movenextloop%> <td width="816" align="left" bgcolor="#f8f8f8" colspan="3"> <strong>Observações (medidas sob encomenda, detalhes ou outros detalhes)</strong><br /><textarea name="" cols="" rows="" style="width:505px; height:80px;"></textarea></td></tr><tr><td width="816" align="left" bgcolor="#f8f8f8" colspan="3"><input name="submit" type="submit" value=" Calcular pedido " style="font-weight:bold; height:22px; color:#ffffff;"/></td></tr> </form></table><%end ifrs.closeset rs = nothing%></div></div> <div id="Rodape"><span class="linhapeq"><img src="layout/linha.gif" width="745" height="1" /><br /> </span><a href="default2.asp?active_page_id=146"><br /></a><a href="default2.asp?active_page_id=146">A Empresa</a> | <a href="default2.asp?active_page_id=147">Produtos</a> | <a href="default2.asp?active_page_id=148">Serviços</a> | <a href="pedidos.asp">Pedidos</a> | <a href="default2.asp?active_page_id=150">Artigos</a> | <a href="default2.asp?active_page_id=151">Fale conosco</a><br /> <span class="style1"> </span><br />Endereço: Rua Alfredo Lopes, 1717 - Sala E12 - Vila Elizabeth - CEP 13560-460 - São Carlos - SP - Tel: (16) 3351.8796<br /><span class="style1"> </span><br class="linhapeq" /><span class="txtaudax">Copyright © 2004 - 2007 - Desenvolvido por <a href="[http://www.audaxweb.com.br"](http://www.audaxweb.com.br) title="Audax - Desenvolvimento de sites">Audax</a></span></div></div></body></html><%set oPage = nothingSet adoCon = NothingSet strCon = NothingSet rsCheckUser = Nothing%>Obrigado pela atenção.
Abraços.
Discussão (2)
Carregando comentários...