Bloquear envio de dados em branco.

[Master_of_Word 0]

Pessoal sequinte. Meu formulário tem uma página de confirmação de envio do formulário, mas existe a possibilidade de que quando você entra direto na página de confirmação ela envia dados em branco para o banco de dados, então queria saber d e um codigo que possa bloquear essa ação.Olha o codigo da pagina de confirmação. Abraços.. B) B)

<!-- #include file="conexao_banco.asp" --><!-- #include file="adovbs.inc" --><%dim conexaoSession("nome") = Request.Form("nome")Session("email") = Request.Form("email")Session("assunto") = Request.Form("assunto")Session("profissao") = Request.Form("profissao")Session("mensagem") = Request.Form("mensagem")Session("idade")  = Request.Form("idade")Sub ProcessaDadosDim rsSet rs = Server.CreateObject("ADODB.Recordset")rs.open "dados", conexao, adOpenDynamic, adlockoptimistic, adcmdtablers.Addnewrs.fields("nome") = Session("nome")rs.fields("email") = Session("email")rs.fields("assunto") = Session("assunto")rs.fields("profissao") = Session("profissao")rs.fields("mensagem") = Session("mensagem")rs.fields("idade") = Session("idade")rs.updateend subProcessaDados%>

[Salgado 4]

você deve colocar um If verificando os Requests abraçando seu processamento:

<!-- #include file="conexao_banco.asp" -->
<!-- #include file="adovbs.inc" -->

<%dim conexao
If Request.Form("nome") <> "" And Request.Form("email") <> "" And Request.Form("assunto") <> "" And Request.Form("profissao") <> "" And Request.Form("mensagem") <> "" And Request.Form("idade") Then
Session("nome") = Request.Form("nome")
Session("email") = Request.Form("email")
Session("assunto") = Request.Form("assunto")
Session("profissao") = Request.Form("profissao")
Session("mensagem") = Request.Form("mensagem")
Session("idade")  = Request.Form("idade")

Sub ProcessaDados
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "dados", conexao, adOpenDynamic, adlockoptimistic, adcmdtable

rs.Addnew
 rs.fields("nome") = Session("nome")
 rs.fields("email") = Session("email")
 rs.fields("assunto") = Session("assunto")
 rs.fields("profissao") = Session("profissao")
 rs.fields("mensagem") = Session("mensagem")
 rs.fields("idade") = Session("idade")
rs.update
end sub
End If
ProcessaDados%>

[Master_of_Word 0]

Salgado, ta dando Erro interno do Servidor - HTTP 500 B) B)

[Salgado 4]

Opa, dá uma olhada aqui e depois retona qual foi o erro.

[Master_of_Word 0]

Desculpa ae Salgado mas o problema e que eu não coloquei o 'end If' no final do codigo. Isso já arrumei :wacko: Mas mesmo assim ainda são enviado dados em branco para o banco de dados. :( :(

[ska_ska 0]

<%dim conexaoerro = falsenome = Request.Form("nome")if trim(nome) = "" then erro = trueemail = Request.Form("email")if trim(email) = "" then erro = trueassunto = Request.Form("assunto")if trim(assunto) = "" then erro = trueprofissao = Request.Form("profissao")if trim(profissao) = "" then erro = truemensagem = Request.Form("mensagem")if trim(mensagem) = "" then erro = trueidade  = Request.Form("idade")if trim(idade) = "" then erro = trueif erro = true then      response.write "preencha todos os campos obrigatorios"else     Dim rs     Set rs = Server.CreateObject("ADODB.Recordset")     rs.open "dados", conexao, adOpenDynamic, adlockoptimistic, adcmdtable     rs.Addnew      rs.fields("nome") = Session("nome")      rs.fields("email") = Session("email")      rs.fields("assunto") = Session("assunto")      rs.fields("profissao") = Session("profissao")      rs.fields("mensagem") = Session("mensagem")      rs.fields("idade") = Session("idade")      rs.updateend if%>

[Master_of_Word 0]

Valeu Salgado, Ska_Ska, pela ajuda. Obigado mesmo B) B)