Ir para conteúdo

POWERED BY:

Arquivado

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

Matheus Brito

Erro no remover itens do carrinho

Por , em ASP Clássico

Recommended Posts

Matheus Brito    12

Matheus Brito
Postado

Ola pessoal estou adicionando os produtos no carrinho, e consigo remover tb, porem na hora de remover o último item da erro, segue código:

 

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

val = Request.Form("id")
'response.Write(val)
'response.End()

set conn = server.CreateObject("adodb.connection")
str= "DRIVER={Microsoft Access Driver (*.mdb)} ;DBQ=" & server.MapPath("dataBase") & "\veiculos.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 = " & val)
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,ItemPrice)values(" _
	& Session("Session_Id") & ", " _
	& val & ", " _
	& request.Form("qtde") & ", " _
	& 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 " _
	& "SessionItem_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"))
	
%>
Produtos no Carrinho.:	
<%
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 />
<br />
<br> Preço Total.: <% Response.Write FormatCurrency(RS_Total("OTotal"))

%>
<br />

<br />

<!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>
<a href="catalogo.asp">Continue Comprando</a>
</body>
</html>

Erro

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução UPDATE.

/Car/carrinho.asp, line 62

 

Código da linha 62

conn.execute "update Sessions set Produto_Total = " & RS_Total("OTotal") _
	& " Where Session_Id = " & Session("Session_Id")

Abs e obrigado desde já

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

de um response.write na query para ver o que está tentando executar de fato

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