não tá gravando...

[diegokorvo 0]

tenho um mural de recados, que acabei usando como base para outras aplicações. acrescentando alguns campos, o formulário acabou não funcionando... após preencher os campos, não grava do bd e volta pro formulário.

o banco de dados tá certo, nome da tabela, nome dos campos...

 

 

abaixo tá o código do formulário: escreve.asp (com verificador de campos em JavaScript)

 

ASP [/tr][tr]<!-- Hide script from older browsers

 

function CheckFields(pform) {

 

if ( pform.Nome.value == "" ||

pform.Email.value == "" ||

pform.Contato.value == "" ||

pform.Cidade.value == "" ||

pform.Estado.value == "" ||

pform.Quero.value == "" ||

pform.Produto.value == "" ||

pform.Valor.value == "" ||

pform.Descricao.value == "" ) {

alert( "Atenção!\nPreencha todos os campos." );

return false;

}

 

else {

 

pform.action="envia.asp";

 

return true;

}

 

}

 

//End Hiding -->

</script>

Formulário<br>

<form OnSubmit="java script:return CheckFields(this);" name="pform" enctype="text/plain">

Nome: <input name=Nome id=text1 maxlength=30 size=45>

E-mail: <input name=Email id=text2 maxlength=30 size=45>

Contato: <input name=Contato id=text3 maxlength=15 size=45>

Cidade: <input name=Cidade id=text4 maxlength=25 size=45>

Estado: <select id=text5 name=Estado>

<option value=" ">

<option value="PR">Paraná

<option value="AC">Acre

<option value="AL">Alagoas

<option value="AP">Amapá

</select>

Quero: <select id=text6 name=Quero>

<option value=" ">

<option value="Vendo">Vender

<option value="Troco">Trocar

</select>

Produto: <input name=Produto id=text7 maxlength=20 size=45>

Valor: <input name=Valor id=text8 maxlength=8 size=45>

Descrição: <textarea name=descricao id=textarea1 maxlength=500 rows=4 cols=38></textarea>

<input type="submit" value="Enviar recado" id=submit1 name=submit1>

<input type="reset" value="Limpar">

</form>

[/tr]

 

abaixo o código para envio: envia.asp

 

ASP [/tr][tr]<%

StrNome = replace(Request("Nome"),"'","''")

StrEmail = replace(Request("Email"),"'","''")

StrContato = replace(Request("Contato"),"'","''")

StrCidade = replace(Request("Cidade"),"'","''")

StrEstado = replace(Request("Estado"),"'","''")

StrQuero = replace(Request("Quero"),"'","''")

StrProduto = replace(Request("Produto"),"'","''")

StrValor = replace(Request("Valor"),"'","''")

StrDescricao = replace(Request("Descricao"),"'","''")

StrIP = replace(Request.ServerVariables("REMOTE_ADDR"),"'","''")

 

dbfile=Server.MapPath("banco.mdb")

 

Set OBJdbConnection=Server.CreateObject("ADODB.Connection")

OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile

 

sql_ins="INSERT into tabela (Nome, Email, Contato, Cidade, Estado, Quero, Produto, Valor, Descricao, IP) VALUES " & "('" & StrNome & "', '" & StrEmail & "', '" & StrContato & "', '" & StrCidade & "', '" & StrEstado & "', '" & StrQuero & "', '" & StrProduto & "', '" & StrValor & "', '" & StrDescricao & "', '" & StrIP & "') "

 

OBJdbConnection.Execute(sql_ins)

 

Response.Redirect("principal.asp")

%>

[/tr]

 

 

e aí??? o q tem de errado???

[rOcKLoCo 0]

veja se realmente ele está dando o Submit... e está direcionando pra página certa... qualquer coisa tente mudar o JS da sua página!falows

[DackAle 0]

da um response.write e ve se ele ta passando os valores pra proxima tela certinho pelo menos... ;)

[Mário Monteiro 179]

debuga pra ver o que ta acontecendo..