retornar msg de erro no update

[emersoncoder 0]

galera, boa tarde.

 

estou tentando fazer um update na tabela de uma loja virtual em asp, mas não vai o update de jeito nenhum.

 

       StringdeConexao = "driver={MySQL ODBC 5.1 Driver};SERVER=server;DATABASE=database;UID=geek;PWD=geek;"
set abredb = Server.CreateObject("ADODB.Connection")
abredb.Open(StringdeConexao)
       abredb.Execute("update pedidos set presente='"&intQuant&"' WHERE idcompra='"&intOrderID&"' AND idprod='"&intQuantz&"';")

 

mas a query não funciona...

 

queria pegar uma mensagem de erro, ou algo do tipo, como posso fazer ?

 

sou novato em asp, vlw galera !

[xanburzum 169]

segue a logica deste sistema,

 

    <% ‘aplicação para fazer o update dos dados do form atualizar_form.asp

   ‘onde recupero todos os dados dos campos do form,dou um replace nos ‘ por “”

   ‘e crio a SQL para efetuar o update depois redireciono p/ administracao.asp

   ‘ com passagem de parametro na URL msg=2

   option explicit

   ‘declaro as var

   dim conexao, conDBQ, constring, rs, SQL, varcodigo, varlogin, varsenha, varemail

   ‘recupero as var

   varcodigo=trim(request.form(“codigo”))

   varlogin=trim(request.form(“login”))

   varsenha=trim(request.form(“senha”))

   varemail=trim(request.form(“email”))

   ‘ retiro qqer erro de digitaçao do user ,no caso ( aspas simples ‘)

   varlogin=replace (varlogin,”‘”,”")

   varsenha=replace (varsenha,”‘”,”")

   varemail=replace(varemail,”‘”,”")

   ‘crio a conexao%>

   <!–#include file=”conn/conexao1.asp”–>

   <% ‘abro a conexao

   call abreconexao

   ‘crio o rs

   set rs=Server.createobject(“ADODB.Recordset”)

   ‘crio a SQL

   SQL=”UPDATE login SET login=’”&varlogin&”‘,senha=’”&varsenha&”‘,email=’”&varemail&”‘ WHERE codigo=”&varcodigo&”"

   rs.open SQL,conexao,1,3

   if session(“login”) = “admin” then

   response.redirect(“administracao_treina.asp?msg=2″)

   else

   response.redirect(“administracao1.asp?msg=2″)

   end if

   ‘fecho o rs

   set rs=nothing

   ‘fecho a conexao

   call fechaconexao%>

[emersoncoder 0]

segue a logica deste sistema,

 

    <% ‘aplicação para fazer o update dos dados do form atualizar_form.asp

   ‘onde recupero todos os dados dos campos do form,dou um replace nos ‘ por “”

   ‘e crio a SQL para efetuar o update depois redireciono p/ administracao.asp

   ‘ com passagem de parametro na URL msg=2

   option explicit

   ‘declaro as var

   dim conexao, conDBQ, constring, rs, SQL, varcodigo, varlogin, varsenha, varemail

   ‘recupero as var

   varcodigo=trim(request.form(“codigo”))

   varlogin=trim(request.form(“login”))

   varsenha=trim(request.form(“senha”))

   varemail=trim(request.form(“email”))

   ‘ retiro qqer erro de digitaçao do user ,no caso ( aspas simples ‘)

   varlogin=replace (varlogin,”‘”,”")

   varsenha=replace (varsenha,”‘”,”")

   varemail=replace(varemail,”‘”,”")

   ‘crio a conexao%>

   <!–#include file=”conn/conexao1.asp”–>

   <% ‘abro a conexao

   call abreconexao

   ‘crio o rs

   set rs=Server.createobject(“ADODB.Recordset”)

   ‘crio a SQL

   SQL=”UPDATE login SET login=’”&varlogin&”‘,senha=’”&varsenha&”‘,email=’”&varemail&”‘ WHERE codigo=”&varcodigo&”"

   rs.open SQL,conexao,1,3

   if session(“login”) = “admin” then

   response.redirect(“administracao_treina.asp?msg=2″)

   else

   response.redirect(“administracao1.asp?msg=2″)

   end if

   ‘fecho o rs

   set rs=nothing

   ‘fecho a conexao

   call fechaconexao%>

 

certo, muito obrigado, deu uma luz.

 

Agora outra duvida, estou fazendo checkboxes de presente em cada produto que vai para o carrinho, estou concatenando uma variavel com o nome do produto, por exemplo presente154 (154 é o id do produto) e vou enviando via get para criar uma sessão com presente154=1 , para ficar checado no carrinho, porém esta dando conflito, não consigo pegar a string, jogar num for each e depois comparar, se presente154=1 então session("presente154")=1 senao session("presente154")=0 , como posso fazer ? procurei alguns exemplos na net de for e if em asp e não achei, alguem poderia me orientar ? muito obrigado !

[xanburzum 169]

olha este exemplo, que uso para inserir varios checkbox no bd

 

if qtd_produtos = "" then
Response.write("erro..."
response.redirect("outra_pagina.asp")
else
qtd_produtos = split(Request.Form("qtd_produtos"),",")
if qtd_produtos = ""
produtos= Split(Request.Form("produtos"), ",")

For i = 1 To Request.Form("produtos").Count

Response.write request.form("produtos")(i)&"<BR>" & request.form("qtd_produtos")(i)&"<BR>"
SQL = "INSERT INTO lista (lista_prodID,lista_quant) Values ('"&request.form("produtos")(i)&"','"&request.form("qtd_produtos")(i)&"')"