|
<%
<%
'*********************************************************************************
' 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.
|
* Todos
os dados são de preenchimento obrigatório.
|
<%End If%>
|
|
 |
