<% Response.Buffer = True If (Request("Acao")) = "Enviar" Then sEmpresa = (Request("Empresa")) sNome = (Request("Nome")) sTelefone = (Request("Telefone")) sEmail = (Request("Email")) sAssunto = (Request("Assunto")) strFromName = "sensor@sensordobrasil.com.br" strToMail = "ricardo@sensordobrasil.com.br" strToMail = "erika@sensordobrasil.com.br" strSubject = (".:: Solicitação de visita - Site Newsletter::.") Set myMail=CreateObject("CDO.Message") myMail.Subject=strSubject myMail.From=strFromName myMail.To=strToMail myMail.CreateMHTMLBody ("http://www.sensordobrasil.com.br/sensornews/corposolicite.asp?Email="&sEmail&"&Nome="&sNome&"&Assunto="&sAssunto&"&Empresa="&sEmpresa&"&Telefone="&sTelefone) myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ ="mail.sensordobrasil.com.br" myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ =25 myMail.Configuration.Fields.Update myMail.Send Set myMail=Nothing End If %> <%If (Request("Acao")) <> "Enviar" Then%>
S
olicitaç
ão de visita técnica
Empresa:
*
Nome p/ contato:
*
Telefone:
*
E-mail:
*
Comentário:
*
Enviar
Fechar
<%Else%>
Mensagem enviada com sucesso!!!
Obrigado por utilizar nossos serviços!
Fechar
<%End If%>
