Estou com um problema num arquivo de minha loja virtual,após fazer os pedidos, quando eu clico no botão para ver a lista de pedidos, aparece o seguinte erro:
Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.
/ducar/minha_lista.asp, line 20
Segue o código abaixo pra análise:
<%Option Explicit%> <!-- #include file="conexao.asp "--> <% 'Caso nao haja produtos no carrinho do visitante if Session("Pedido").count = 0 then response.write ("Não há produtos em sua cesta<P>") response.write "Clique <A HREF=listagemPaginada.asp>aqui </A>para comprar!" else 'há produtos sub mostra_pedido() Dim produto, sqlPedido, rstPedido 'aqui escrevemos o formulário em tela, de acordo com o pedido do visitante for each Produto in Session("Pedido") sqlPedido = "SELECT NomePeca, PecaID FROM CompraPecas WHERE PecaID ='" & Produto & "'" Set rstPedido = Server.CreateObject("ADODB.RecordSet") rstPedido.Open sqlPedido, strConn 'criando o formulário para manipulação dos dados response.write "<tr><td><input type=text size=2 name=quantidade" & Produto & " value=" & Session("Pedido").item(produto) &"></td><td>"& rstPedido("NomePeca") & "</font></td><td></td></tr><br>" rstPedido.Close next end sub %> <form action="atualizaCarrinho.asp" method=post> <table> <tr> <th colspan=3> Suas compras</th> </tr> <tr> <td>Quantidade</td> <td> Livro</td> <td> Valor</td> </tr> <% mostra_pedido()%> <td colspan=3> <input type="submit" value="Atualizar" name="submit"> <a href="gravar_pedido.asp">Fechar Pedido</a> <br> </td> </table> </form> <% end if%>
Fico no aguardo!
valeu gente!!