Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Matheus Brito

[Resolvido] Problema com carrinho de compras

Por , em ASP Clássico

Recommended Posts

Matheus Brito    12

Matheus Brito
Postado

Ola Amigos estou com um problema no carrinho aqui espero que possam me ajudar.

Seguinte na pagina produto.asp eh listado um produto em particular que eh selecionado de outra pagina e nessa pagina de produto tem a imagem e a descricao do produto e um campo pro usuario inserir a quantidade do produto e um botao de submit, dai vai pra pagina carrinho.asp

Espero uma luz, thx

 

 

 

Abaixo segue o codigo das duas paginas:

 

Em especial da erro nessa linha aqui:

set RS_Produto = conn.execute("select Preco,Promocao,Preco_Promocao from Produtos where Produto_Id = " & Request.Form("Product_Id"))
Provavelmente o Produto_Id ta indo vazio, mas como resolvo???

produto.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Option Explicit%>
<%
dim conn,str
dim RSProduto
dim descricaoLonga
dim descricaoCurta
dim teste

teste = Request.querystring("Produto_Id")

set conn = server.CreateObject("adodb.connection")
str= "DRIVER={Microsoft Access Driver (*.mdb)} ;DBQ=" & server.MapPath("dataBase") & "\livraria.mdb"
conn.open str

'conn.execute "insert into SessionPages(Session_Id,Pagina_Nome) values("& Session("Session_Id") & Request.QueryString("Produto_Id") &  "')"

set RSProduto =conn.execute("select * from Produtos where Produto_Id = " & teste) 



descricaoLonga = RSProduto("Descricao_Longa") & "<br>"
descricaoCurta = RSProduto("Descricao_Curta") & "<br>"
%>

<a href="./produtos/<%Response.write RSProduto("Imagem_Icone")%>" rel="lightbox"><IMG height="130" width="130" align="left" src="./produtos/<%Response.write RSProduto("Imagem_Icone")%>"
border="1" ALT="<%=RSProduto("Produto_Nome")%>"/><br/><br></a><br /></a>
<br />
<br /><br /><br /><br />
Ficha Técnica.:
<%
Response.Write(descricaoLonga)


%>

<html>
<head><title>Produto</title>

<script type="text/javascript" src="js/prototype.js"></script>
<script type="text/javascript" src="js/scriptaculous.js?load=effects,builder"></script>
<script type="text/javascript" src="js/lightbox.js"></script>
<link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" />

</head>
<body>
<form method="post" action="carrinho.asp">
Quantidade.: <input type="text" id="qtde" name="qtde" /><br />
<input type="submit" value="addToShoppingCart" id="addToShoppingCart" name="addToShoppingCart" />
<input type="hidden"  name="id" value="Produto_Id"/>
</form>


</body>
</html>

carrinho.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Option Explicit%>
<%
dim conn,str
dim RS_Produto,RS_Produtos
dim NovoCustoProduto,NovoTextoSelecionado		
dim FormField
dim RS_Footer,RS_Total

dim val,cod
cod = REquest.Form("Produto_Id")
val=Request.Form("id")
Response.Write(val)
response.Write(cod)
response.End()

set conn = server.CreateObject("adodb.connection")
str= "DRIVER={Microsoft Access Driver (*.mdb)} ;DBQ=" & server.MapPath("dataBase") & "\livraria.mdb"
conn.open str

conn.execute "insert into SessionPages(Session_Id,Pagina_Nome) values("& Session("Session_Id") & "," & "'Carrinho')"

If not isEmpty(Request.Form("addToShoppingCart"))then
set RS_Produto = conn.execute("select Preco,Promocao,Preco_Promocao from Produtos where Produto_Id = " & Request.Form("Product_Id"))
if RS_Produto("Promocao") = 1 then

NovoCustoProduto = RS_Produto("Preco_Promocao") * Request.Form("qtde")
else
NovoCustoProduto = RS_Produto("Preco") * Request.Form("qtde")

end if

for each FormField in Request.Form
	if FormField <> "addToShoppingCart" _
	and FormField <> "Quantidade" _             
	and FormField <> "Produto_Id" then
	
	NovoTextoSelecionado = NovoTextoSelecionado  & FormField & ": " _
	& Request.Form(FormField) & "<BR> "
	end if
	next
	
	conn.execute "insert into SessionItems(Session_Id,Produto_Id, " _
	& "Quantidade,SelectText,ItemPrice)values(" _
	& Session("Session_Id") & ", " _
	& Request.Form("Produto_Id") & ", " _
	& request.Form("qtde") & ", " _
	& "'"& NovoTextoSelecionado & "', " _
	& NovoCustoProduto & ")"
	
	set RS_Total = conn.execute("select Sum(ItemPrice) as OTotal from " _
	& "SessionItems where Session_Id = " & Session("Session_Id"))
	conn.execute "update Sessions set Produto_Total = " & RS_Total("OTotal") _
	& "Where Session_Id = " & Session("Session_Id")
	end if
	
	if not isEmpty(Request.QueryString("Action")) then
	
	conn.execute "Delete from SessionItems where " _
	& "SessionItems_Id = " & Request.QueryString("SessionItem_Id")
	
	set RS_Total = conn.execute("select Sum(ItemPrice) as OTotal from " _
	& "SessionItems where Session_Id = " & Session("Session_Id"))
	conn.execute "update Sessions set Produto_Total = " & RS_Total("OTotal") _
	& "Where Session_Id = " & Session("Session_Id")
	end if
	
	
	set RS_Produtos = conn.execute("Select  SessionItems.SessionItem_Id, " _
	& "SessionItems.Quantidade,SessionItems.SelectText,SessionItems.ItemPrice,Produtos.Produto_Nome " _
	& "from SessionItems INNER JOIN Produtos ON " _
	& "SessionItems.Produto_Id = Produtos.Produto_Id " _
	& "Where SessionItems.Session_Id = " & Session("Session_Id"))
	
	set RS_Total = conn.execute("select Sum(ItemPrice) as OTotal from " _
	& "SessionItems where Session_Id = " & Session("Session_Id"))
	
	set RS_Produtos = conn.execute("select SessionItems.SessionItem_Id, " _
	& "SessionItems.Quantidade,SessionItems.SelectText,SessionItems.ItemPrice,Produtos.Produto_Nome " _
	& "From SessionItems INNER JOIN Produtos ON " _
	& "SessionItems.Produto_Id = Produtos.Produto_Id " _
	& "where SessionItems.Session_Id = " & Session("Session_Id")) 
	
	set RS_Total = conn.execute("select Sum(ItemPrice) as OTotal from " _
	& "SessionItems where Session_Id = " & Session("Session_Id"))
	
%>
	
<%
Do Until RS_Produtos.EOF
%>
<P align="left">Item Name.: <%Response.Write RS_Produtos("Produto_Nome")
%>
<br> Quantidade.: <%Response.Write RS_Produtos("Quantidade")%>
<br> Preço.: <%Response.Write RS_Produtos("ItemPrice")%>
<p><a href="carrinho.asp?Action=Remove&SessionItem_Id=<%response.Write RS_Produtos("SessionItem_Id")%>">Remover do Carrinho</a>
<%
RS_Produtos.movenext
loop
%>
<br> Produto Total.: <% Response.Write FormatCurrency(RS_Total("OTotal"))
%>













%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>

<body>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

você não disso qual o problema/erro que ocorre.

 

qual a forma que você passa os dados do produto para a página, é quet ou post?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

poste o numero do erro e linha...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Matheus Brito    12

Matheus Brito
Postado

Ja consegui resolver esse problema, era isso mesmo que havia dito no inicio do topico, o ID tava indo vazio, REquest.form("Produto_Id"). Porem na hora que insiro os itens no carrinho vai tranquilo varios itens, porem na hora de remover o ultimo da erro.

Abs

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

beleza, kker coisa tamu aee...

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito