<% If IsEmpty( Request.Form("submit") ) Then %> ">

Para receber aviso de atualizações do site preencha o formulário abaixo

 

Para iniciar preenchimento responda antes a pergunta abaixo.

Quer receber informações de atualizações do TR?

Sim Não
Nome:
E-mail:
Cidade:
Estado:  
Profissao:
Observacao:

<% Else If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("nome")) <> "" AND Trim(Request.Form("email")) <> "" AND Trim(Request.Form("cidade")) <> "" AND Trim(Request.Form("estado")) <> "" AND Trim(Request.Form("profissao")) <> "" AND Trim(Request.Form("observacao")) <> "" Then Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("email.mdb") ComandoSQL = "INSERT INTO cadastro (nome, email, cidade, estado, profissao, observacao)" ComandoSQL = ComandoSQL & " VALUES (" ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nome")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("email")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("cidade")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("estado")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("profissao")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("observacao")) & "')" Set bd = Conexao.Execute(ComandoSQL) Conexao.Close Set bd = Nothing Set Conexao = Nothing %>

Os dados foram enviados com sucesso!
Clique aqui para continuar
<% Else %>

Atenção: Alguns dados necessário não foram preenchidos corretamente
Clique aqui para voltar
<% End If End If %>