tow testando um site feito aqui....dae consegui botar td pra rodar.....fazer a compra, mas não sei qual é o erro na hr de mostrar os produtos já comprados e gravas no banco de dados nas tabelas carrinho...e de produtos comprados....
Aparece total de 0....
"comprados.asp"
<!--#include file="restrito.asp"-->
<!--#include file="conecta.asp"-->
<%
Dim Sql, RS
if Request.Form("excluindo") = "sim" then
Dim N,I, Nomec
N = cint(Request.Form("QtItens"))
for I=1 to N
Nomec = "C"&I
if Request.Form(Nomec) <> false then
Sql = "DELETE * FROM Carrinho WHERE codCarrinho =" & cint(Request.Form(Nomec))
Pergunta
Humb
tow testando um site feito aqui....dae consegui botar td pra rodar.....fazer a compra, mas não sei qual é o erro na hr de mostrar os produtos já comprados e gravas no banco de dados nas tabelas carrinho...e de produtos comprados....
Aparece total de 0....
"comprados.asp"
<!--#include file="restrito.asp"-->
<!--#include file="conecta.asp"-->
<%
Dim Sql, RS
if Request.Form("excluindo") = "sim" then
Dim N,I, Nomec
N = cint(Request.Form("QtItens"))
for I=1 to N
Nomec = "C"&I
if Request.Form(Nomec) <> false then
Sql = "DELETE * FROM Carrinho WHERE codCarrinho =" & cint(Request.Form(Nomec))
Rs.Open Sql, Conn,3,3
end if
next
end if
Sql = "SELECT nomeProduto, Quantidade, Carrinho.preço, Carrinho.codCarrinho, NomeCategoria "
Sql = Sql & " FROM Carrinho, Produtos, Categorias WHERE Produtos.CodCategoria = Categorias.CodCategoria"
Sql = Sql & " AND Produtos.codProduto = Carrinho.CodProduto AND Carrinho.codCliente = " & Session("codCliente")
Rs.Open Sql, Conn,3,3
%>
<font face=verdana size=2>
<b> Produto(s) escolhido(s) até o momento:</b></font><br><br>
<table border=1 width=100% cellpadding=1>
<form method=post action="comprados.asp">
<input type=hidden name=excluindo value=sim>
<tr>
<th align=center><font face=verdana size=2> Item </font></th>
<th align=center><font face="verdana" size="2">Produto</font></th>
<th align=center><font face="verdana" size="2">Categoria</font></th>
<th align=center><font face=verdana size=2> Quantidade </font></th>
<th align=center><font face=verdana size=2> Preço<br> Unitário </font></th>
<th align=center><font face=verdana size=2> Total </font></th>
</tr>
<% Dim total,totalGeral,Num
while not Rs.eof
Num = Num + 1 %>
<tr>
<td align=center><input type=checkbox name="C<%=Num%>" value="<%=Rs("codCarrinho")%>"></td>
<td><font face=verdana size=2><%=RS("nomeProduto")%> </font> </td>
<td align=right><font face=verdana size=2><%=RS("nomeCategoria")%> </font> </td>
<td align=right><font face=verdana size=2><%=RS("quantidade")%> </font> </td>
<td align=right><font face=verdana size=2>R$ <% = FormatNumber(Rs("preço"),2)%></font></td>
<% total = Rs("quantidade") * Rs("preço")%>
<td align=right><font face=verdana size=2>R$ <%= FormatNumber(total,2)%> </font></td>
</tr>
<%totalGeral = totalGeral + total
Rs.MoveNext
wend %>
<tr>
<td colspan=5 align=right><font face=verdana size=2>Total Geral </font></td>
<td align=right><font face=verdana size=2>R$ <%= FormatNumber(totalGeral,2)%> </font></td>
<tr>
<td align=center>
<p><input border="0" src="images/excluir.gif" name="I1" width="65" height="21" type="image">
</p>
</td>
<td colspan=5 align=center>
<p><a href="compras.asp"><img border="0" src="images/continuar.gif" width="70" height="23"></a>
<a href = finaliza.asp><img border="0" src="images/finalizar.gif" width="68" height="25" ></a></p>
</td></tr>
</table>
<input type=hidden name=QtItens value="<%=Num%>">
</form>
<%
Conn.close %>
Link para o comentário
Compartilhar em outros sites
12 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.