o erro é esse:
erro comum... já tive várias vezes, acho q td mundo já teve, mas sempre resolvi facil! agora não tá dando certo.# Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável.
/diagmax/financeiro/controle.asp, line 32
# Tipo de navegador:
Mozilla/5.0 (Windows; U; Windows NT 5.1; pt-BR; rv:1.8.0.3) Gecko/20060426 Firefox/1.5.0.3
# Página:
POST 50 bytes to /diagmax/financeiro/controle.asp
# POST Data:
notaf=1234&valor=1234&data1=15&data2=&cadastrar=OK
os codes são esses:
<p align="center"><b><font size="4">Entrada</font></b></p> <form method="POST" action="controle.asp?acao=addnf"> <centeR><table border="0" cellpadding="0" width="381"> <tr> <td align="left" width="131"> <p align="left">Nota Fiscal:</td> <td align="left" width="186"><input type="text" name="notaf" size="8"></td> </tr> <tr> <td align="left" width="131"> <p align="left">Valor Total:</td> <td align="left" width="186">R$ <input type="text" name="valor" size="8"></td> </tr> <tr> <td align="left" width="131"> <p align="left">Pagamento:</td> <td align="left" width="186"><input type="text" name="data1" size="2"> dias - <input type="text" name="data2" size="1"> dias</td> </tr> <tr> <td align="left" width="131"></td> <td align="left" width="186"><input type="submit" value="OK" name="cadastrar"></td> </tr> </table></center>e
Function DataAdicional(DataAtual,Qtd_dias) NovaData = DateAdd("d",DataAtual,Qtd_dias) DataAdicional = NovaData End Function If Request.QueryString("acao") = "addnf" Then empresa = "DiaSorin" notaf = Request.Form("notaf") valor = Request.Form("valor") data1 = DataAdicional(Now,Request.Form("data1")) data2 = Request.Form("data2") If Len(data2) = "0" Then formapagamento = "umax" data2 = "" Else valor1 = ccur(valor)/2 valor2 = ccur(valor)/2 data2 = DataAdicional(Now,Request.Form("data2")) End If If formapagamento = "umax" Then Sql = "Insert into contas(tipo,data,empresa,situacao,valor,notafiscal) values ('entrada', '"& data1 &"', 'DiaSorin', 'pagar', '"& valor &"', '"& notaf &"')" Set Rs = Conexao.Execute(Sql) Else Sql = "Insert into contas(tipo,data,empresa,situacao,valor,notafiscal) values ('entrada', '"& data1 &"', 'DiaSorin', 'pagar', '"& valor1 &"', '"& notaf &"')" Set Rs = Conexao.Execute(Sql) Sqla = "Insert into contas(tipo,data,empresa,situacao,valor,notafiscal) values ('entrada', '"& data2 &"', 'DiaSorin', 'pagar', '"& valor2 &"', '"& notaf &"')" Set Rsa = Conexao.Execute(Sqla) End If Response.Write "<center><font color=#FF0000>Pronto!<br></font></center>" End Ifalguem ae pelo amor de deus me ajuda!
vlw!