<% <% '********************************************************************************* ' Página gerada pelo sistema da Tempo Digital '********************************************************************************* 'String de conexão para o banco de dados do Microsoft Access %> <% If Request.ServerVariables("REQUEST_METHOD")="POST" and Request.QueryString("cad")="s" then 'Inicia captura do dados Nome = Request.Form("nome") Email = Request.Form("email") Idade = Request.Form("idade") Cidade = Request.Form("cidade") Bairro = Request.Form("bairro") Mensagem = Request.Form("mensagem") DDD = Request.Form("ddd") Fone = Request.Form("telefone") Telefone = DDD & "-" & Fone 'Inicia o envio dos dados strEmailAdmin = Email strEmailDominios = "programacao@radioclube820.com.br" 'strEmailDominios = "gravacao@radioclube820.com.br" Set objMail = Server.CreateObject("CDONTS.NewMail") strMsgObrigado = "Prezado, Administrador!" & vbcrlf 'strMsgObrigado = strMsgObrigado & "Mensagem participante!" & vbcrlf strMsgObrigado = strMsgObrigado & "Nome: " & Nome & vbcrlf strMsgObrigado = strMsgObrigado & "E-Mail: " & Email & vbcrlf strMsgObrigado = strMsgObrigado & "Idade: " & Idade & vbcrlf strMsgObrigado = strMsgObrigado & "Telefone: " & Telefone & vbcrlf strMsgObrigado = strMsgObrigado & "Cidade: " & Cidade & vbcrlf strMsgObrigado = strMsgObrigado & "Bairro: " & Bairro & vbcrlf strMsgObrigado = strMsgObrigado & "Mensagem: " & Mensagem & vbcrlf strMsgObrigado = strMsgObrigado & "Powered by Tempo Digital" & vbcrlf objMail.From = strEmailAdmin objMail.To = strEmailDominios objMail.Subject = "Mensagem - Participante!" objMail.Body = strMsgObrigado objMail.Send 'Gera resposta de confirmação de envio Response.Write ("

Sua mensagem foi enviada com sucesso!

") Else '********************************************************************************* %>

Fale Conosco

Aqui é seu contato direto com a Rádio Clube AM !!!
Elogios, sugestões ou críticas você nos envia por aqui.

 

Nome* :
E-Mail* :
Idade* :
Cidade* :
Bairro* :
Telefone*: ()
Mensagem*:

 

* Todos os dados são de preenchimento obrigatório.

<%End If%>