Form Cadastro gravando em branco

[Pedrex 0]

Bom dia,

 

Pessoal peço a ajuda de vocês para tentar resolver um problema em meu código... O que ocorre é o seguinte: Desenvolvi um formulário em asp, que após primeira avaliação, parecia estar funcionando corretamente. Após acionar o botão de submit (Gravar) os dados são inseridos no banco corretamente, mas quando atualizo a tela e faço uma segunda verificação no banco, os dados gravados desaparecem e os campos são gravados em branco, peço a ajuda de vocês, pois ainda sou iniciante em programação...

 

O código está feito em um único arquivo Cadastro.asp. Eu postarei aseguir partes sequenciais do código só para terem idéia da lógica aplicada...

 

Muito obrigado pela atenção de todos...

 

<form action="Cadastro.asp" method="post" id=form_Cadastro name=form_Cadastro>


(Segue uma parte do formulário...
<table width="730" border="0">
<tr>
	<td colspan="3"><span class="style3">Dados Pessoais</span><hr color="#4A7DB5" size="2" width="100%" noshade></td>
</tr>
<tr>
	<td colspan="2"><span class="style1">Nome:
	<INPUT type="text" id=FormCADMAE name=FormCADMAE size="71" maxlength="50"></span></td>
	<td width="220"><span class="style1">Data de Nasc.:
	<INPUT type="text" id=FormCADDTNASC name=FormCADDTNASC size="16" maxlength="8" onKeyDown="Mascara(this,Data);" onKeyPress="Mascara(this,Data);" onKeyUp="Mascara(this,Data);"></span></td>
</tr>
...)

(Botão de submit...
<br>
<table>
	 <td width="730" align="right"><INPUT type="Button" value="Gravar" id=submit1 name=Gravar onClick="clicou();"> </td>
</table>
...)

(Segue uma parte do Request...
strNOMEXX=Request.Form("FormCADMAE")
strDTNASC=Request.Form("FormCADDTNASC")
strCODNRG=Request.Form("FormCADRG")
strCODCPF=Request.Form("FormCADCPF")
...)

(E por fim é feito o insert e update para gravação...
set Rs=conexao.execute (" Select * From TBADM_Cadastro where CODPES_CAD = '" & strCodPes & "'")
If RS.EOF then 
  set Rs=conexao.execute ("INSERT INTO TBADM_Cadastro 

Else
  set Rs=conexao.execute ("Update TBADM_Cadastro set NOMEXX_CAD='" & strNOMEXX & "', DTNASC_CAD='" & strDTNASC & "', 
End if
...)

Não sei o problema esta ocorrendo no form action, caso seja esse o problema não sei como resolve-lo...

Mais uma vez agradeço a todos pela atenção!!!!

[Mário Monteiro 179]

o action é a propria pagina?

 

se for, ao que parece é, deve por um IF na parte que recebe os dados e insere para so fazer isso se tiver dados

[hargon 64]

Além da observação do Mário, a variável strCodPes está vazia. Dessa forma nunca vai ser feito o UPDATE.

[Ted k' 126]

outra observaçao é:

 

nao precisa setar objetos para inserir ou dar um update:

 

assim é melhor

 

If RS.EOF then
  conexao.execute ("INSERT INTO TBADM_Cadastro
Else
  conexao.execute ("Update TBADM_Cadastro set NOMEXX_CAD='" & strNOMEXX & "', DTNASC_CAD='" & strDTNASC & "',
End if