Deletar produto do carrinho de compras

[alebae 0]

Olá, estou tendo problemas para deletar um produto do carrinho de compras, ele apresenta com erro:

 

Segue código:

<% 
'Define Constantes
CONST cartpid = 0
CONST cartpname = 1
CONST cartpprice = 2
CONST cartpquantity = 3

Session.Timeout = 90 

'Pega Carrinho
IF NOT isArray(Session("cart") ) THEN
DIM localcart(4,20)
ELSE
localcart = Session("cart")
END IF

'Pega Informações
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("banco_produtos.mdb")

selecionar = "Select nome, preco1, cod_produto from tb_produtos where cod_produto =" & Request("cod_produto")
set rssql = Conn.Execute(selecionar)

productid = rssql("cod_produto")
productname = rssql("nome")
productprice = rssql("preco1")

'Adicionar ao Carrinho
IF productid <> "" THEN
foundit= false
FOR i=0 to Ubound (localcart,2)
IF localcart(cartpid,i) = productid THEN
localcart(cartpquantity,i) = localcart( cartpquantity, i) + 1

foundit = TRUE
EXIT FOR
END IF
NEXT
IF NOT foundit THEN
FOR i=0 to UBOUND(localcart,2)
IF localcart(cartpid,i) = "" THEN
localcart(cartpid,i) = productid
localcart(cartpname,i) = productname
localcart(cartpprice,i) = productprice
localcart(cartpquantity,i) = 1

EXIT FOR
END IF
NEXT
END IF
END IF

'Atualiza Carrinho
IF Request("atualizarQ") <> "" THEN
FOR i=0 to Ubound (localcart,2)
newQ = TRIM(Request("pq" & localcart(cartpid,i) ) )
deleteproduct = TRIM(Request.QueryString("productid") )
IF newQ = "" or newQ = "0" or deleteproduct <> "" THEN
IF deleteproduct = localcart(cartpid,i) THEN
excluir = "delete from pedidos where cod_produto = "& Request.QueryString("productid")
set rsexcluir = Conn.Execute(excluir)
localcart(cartpid,i) = ""
END IF
ELSE
IF isNumeric(newQ) THEN
localcart (cartpquantity,i) = newQ
END IF
END IF
NEXT
END IF

'Update Sesssion Carrinho
Session("cart") = localcart

%>

 

Microsoft JET Database Engine error '80040e14'

 

Syntax error (missing operator) in query expression 'cod_produto ='.

A linha do erro é set rssql = Conn.Execute(selecionar) :

selecionar = "Select nome, preco1, cod_produto from tb_produtos where cod_produto =" & Request("cod_produto")
set rssql = Conn.Execute(selecionar)

Eu sei que ele não tá achando o cod_produto, porém coloquei input hidden na página que aponta para o cod_produto, mas mesmo assim ocorre o erro :mellow:

[jrcardozo 4]

como está o form?

[alebae 0]

<form name="formCarrinho" method="post" action="carrinho2.asp">
TODO O CÓDIGO POSTADO ACIMA

<% total = 0 %>
<% FOR i=0 TO Ubound(localcart,2) %>
<% IF localcart(cartpid,i) <> "" THEN %>
<%' totalprod = totalprod + localcart(cartpprice,i)*localcart(cartpquantity,i) %>
<% total = total + localcart(cartpprice,i)*localcart(cartpquantity,i)%>
						<tr> 
						  <td width="42%" class="fonteindicacao2">  
							<% 'Response.Write RSOrderItems("nome") 
%><%=localcart(cartpname,i)%>
							</a> </td>
						  <td width="19%"><div align="center" class="fonteindicacao2">R$ 
							  <%'Response.Write RSOrderItems("preco1")%>
<%=localcart(cartpprice,i)%>
							</div></td>
						  <td width="13%"><div align="center"> <span class="fonteindicacao2"> 
							  <INPUT Name="pq<%=localcart(cartpid,i)%>" TYPE="TEXT" class="boxtxteditfriend" Value="<%=localcart(cartpquantity,i)%>" Size="1" maxlength="2">
							  <%' Response.Write RSOrderItems("quantidade")
%>

							  </span><br>
							</div></td>
						  <td width="21%"><div align="center" class="fonteindicacao2"> 
							  <% totalprod = localcart(cartpprice,i)*localcart(cartpquantity,i)
							  Response.Write FormatCurrency(totalprod, 2) %>
							</div></td>
						  <td width="5%"><div align="center"><a href="carrinho2.asp?atualizarQ=1&productid=<%=localcart(cartpid,i)%>"><img src="../meio/exclui_produto.gif" alt="Excluir produto da cesta" title="Excluir produto da cesta" width="16" height="15" border="0"></a></div></td>
						</tr>
						<% END IF %>
<% NEXT %>
 </table></td>
				  </tr>
				  <tr> 
					<td colspan="6"><table width="100%" border="0" cellspacing="0" cellpadding="0">
						<tr> 
						  <td width="61%" bgcolor="#CCF2FF"> 
							<input name="btnAtualizar" type="Submit" class="boxnovo" value="Atualizar">
							<input name="atualizarQ" type="hidden" value="1">
						  </td>
</tr>
</table>
</form>

Alguma solução?