Erro ao Inserir + ASp + Access

Question

 

Olá Gente,

Tô desenvolvendo um sistema de controle de contratos, bom, possuo um formulário que alimenta duas tabelas no momento da gravação, as tabelas são: tb_contratos e tb_faturas...

A idéia geral é essa, no momento em que o usuário acaba de preencher o contrato, é disponibilizado uma área para ele cadastrar as parcelas, nesse momento, o formulário envia todos os dados para a página cad_contratos.asp, aí começa o problema, ele não tá gravando em nenhuma das tabelas, a única coisa que ele grava é o campo código do contrato na tb_contratos, deixando os outros campos em branco, nunca vi uma "bronca" dessas, quem poder me ajudar agradeço muito...

Abaixo estão os códigos das páginas inclusao_contratos.asp e cad_contratos.asp...

Code Block

  Option Explicit
 
  Dim bookmark, i, NumContrato, rsCad, strConx ,rsParc
 
  strConx = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dados\sisad.mdb")
 
  NumContrato = mid(Session("numcontrato"),1,8)
 
  on error resume next

  'CADASTRANDO O CONTRATO ------------------------------------------
  Set rsCad = Server.CreateObject("ADODB.Recordset")
  With rsCad
  .Open "SELECT * FROM tb_contratos", strConx, 1, 3, 1
    .AddNew
    .Fields("cod_contrato")   = NumContrato
    .Fields("cod_cliente")    = Request.Form("cbocliente")
    .Fields("cod_servico")    = Request.Form("cboservico")
    .Fields("cod_responsavel")   = Request.Form("cboresponsavel")
    .Fields("cod_pagamento")   = Request.Form("cbopagamento")
    .Fields("cod_servico")    = Request.Form("cboservico")
    .Fields("cod_forma")    = Request.Form("cboforma")
    .Fields("qteparcelas_contrato") = Request.Form("txtNumParc")
    .Fields("valortotal_contrato")  = Request.Form("txtValorContrato")
    .Fields("dtaprazoserv_contrato")= Request.Form("txtdtaprz")
    .Fields("dtaini_contrato")   = Request.Form("txtdtaini")
    .Fields("dtafim_contrato")   = Request.Form("txtdtafim")
    .Fields("detalhamento_contrato")= Request.Form("txtdetalhes")
    .Update
    bookmark = .absolutePosition
    .Requery
    .absolutePosition = bookmark
    NumContrato = .Fields("cod_contrato") 'Obtém o número do contrato gravado
    .Close
  End With
  Set rsCad = Nothing
  '-----------------------------------------------------------------

  'CADASTRANDO AS PARCELAS -----------------------------------------
  Set rsParc = Server.CreateObject("ADODB.Recordset")
  With rsParc
     .Open "tb_faturas", strConx, 1, 3, 2
    For i=1 to Request.Form("txtNumFatura").Count
      .AddNew
      .Fields("cod_fatura")  = Request.Form("txtNumFatura")(i)
      .Fields("cod_contrato")  = NumContrato
      .Fields("valor_fatura")  = Request.Form("txtValorParc")(i)
      .Fields("dtaemi_fatura")  = Request.Form("txtDtEmis")(i)
      .Fields("dtavenc_fatura") = Request.Form("txtDtVenc")(i)
      .Fields("dtapg_fatura")  = Request.Form("txtDtPag")(i)     
      .Update
    Next
    .Close
  End With
  Set rsParc = Nothing
  '-----------------------------------------------------------------
'se houve algum erro, detalha
If err.number>0 then
 response.write "Ocorreram os seguintes erros no Script: " & "<P>"
 response.write "Erro Numero=" & err.number & "<P>"
 response.write "Descricao=" & err.description & "<P>"
 response.write "Contexto de Ajuda=" & err.helpcontext & "<P>"
 response.write "Caminho de Ajuda=" & err.helppath & "<P>"
 response.write "Erro Nativo=" & err.nativeerror & "<P>"
 response.write "Fonte=" & err.source & "<P>"
 response.write "SQLState=" & err.sqlstate & "<P>"
 mensagem  = "Erro na Inclusão!"
else
 mensagem  = "Operação com Sucesso"
end if
%>
<SCRIPT LANGUAGE=javascript>
 <!--
  alert("<%=mensagem%>");
  window.open("inclusao_contratos.asp","_self");
 -->
</SCRIPT>

 

 

Answer 1

Pelo que voce esta dizendo, ele parece só estar gravando a informaçao gravada na Session, ou seja, ele nao esta recebendo os campos do formulario, já tentou dar um response.Write em todos os campos para verificar como estao retornando.

 

Abraços

 

Estevam