Erro No Codigo Insert

[Guest fernandocneto]

Caro colegas sou iniciande na programaçao ASP, e portanto estou tendo algumas dificuldades em resolver o problema...estou estudando um livro, e fiz exatamento como manda o livro, porem quando exibir no navegador recebo essa mensagem... o servidor PWS já estar instalado..

Veja o erro

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

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

/editora/carrinho.asp, line 27

---------------------------------------------------------------------------------------------------------

Este é o codigo do arquivo global.asa

<script LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart

Application.Lock

server.scripttimeout = 30

Application("BancoDeDados") = "c:\inetpub\wwwroot\editora\Editora.mdb"

Application("StringConexao") = "DBQ=" & Application("BancoDeDados") & ";Driver={Microsoft Access Driver (*.mdb)}"

Application.Unlock

End Sub

</SCRIPT>

----------------------------------------------------------------------------------------------------------

Este é o codigo do arquivo carinho.asp:

<% Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open application("StringConexao")

Set oRsVenda = Server.CreateObject("ADODB.Recordset")

numpedidocookie = request.cookies("lojavirtualeditoraabc")("codpedido")

if numpedidocookie<>"" then

oRsVenda.Open ("Select * from Vendas where codigovenda="&numpedidocookie), conexao

if oRsVenda.eof then

numpedidocookie=""

else

if oRsVenda.Fields("opcaopagamento")<>"" then

numpedidocookie=""

else

session("codigodestavenda")=numpedidocookie

end if

end if

oRsVenda.Close

End if

if numpedidocookie="" then

oRsVenda.Open ("Select max(codigovenda) as maiorcodigo from vendas"), conexao

if not oRsVenda.eof then

session("codigodestavenda")=oRsVenda.Fields("maiorcodigo")+1

else

session("codigodestavenda")=1

end if

conexao.execute("INSERT INTO vendas (codigovenda) VALUES (" & session("codigodestavenda") & ")")

response.cookies("lojavirtualeditoraabc")("codpedido")=session("codigodestavenda")

response.cookies("lojavirtualeditoraabc").expires = now + 5

end if

%>

[PeiXuXaWebSite]

ow eu axo q achei o erro....vou destacar onde é...mas num tneho certeza se é isso....testa ae:

<% Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open application("StringConexao")

Set oRsVenda = Server.CreateObject("ADODB.Recordset")

numpedidocookie = request.cookies("lojavirtualeditoraabc")("codpedido")

if numpedidocookie<>"" then

oRsVenda.Open ("Select * from Vendas where codigovenda="&numpedidocookie), conexao

if oRsVenda.eof then

numpedidocookie=""

else

if oRsVenda.Fields("opcaopagamento")<>"" then

numpedidocookie=""

else

session("codigodestavenda")=numpedidocookie

end if

end if

oRsVenda.Close

End if

if numpedidocookie="" then

oRsVenda.Open ("Select max(codigovenda) as maiorcodigo from vendas"), conexao

if not oRsVenda.eof then

session("codigodestavenda")=oRsVenda.Fields("maiorcodigo")+1

else

session("codigodestavenda")=1

end if

conexao.execute("INSERT INTO vendas (codigovenda) VALUES (" & session("codigodestavenda") & ")")

response.cookies("lojavirtualeditoraabc")("codpedido")=session("codigodestavenda")

response.cookies("lojavirtualeditoraabc").expires = now + 5

end if

%>

agora experimenta colocar assim de algum desses jeitos:

sql = "insert into vendas (codigovenda) values ('"&session&

("codigodestavenda

ou sql="insert into vendas (codigovenda) values ("&session("codigodestavenda

ou sql="insert into vendas (codigovenda) values ('"&session("codigodestavenda '

conexao.execute (sql)

flws

[Reginaldo ASP]

Para mostrar o valor "session" a ser inserido na tabela você deve usar 1º aspas simples 2º aspas duplas e depois o "e" comercial (&) e então a session("codigodestavenda")

sempre que usar uma instrução do ASP dentro da SQL use isso.

' " & SEU_ASP & " '

Então fica assim:

("INSERT INTO vendas (codigovenda) VALUES (' " & session("codigodestavenda") & " ')")

Boa sorte!