<%Response.AddHeader "Content-Type", "text/html; charset=iso-8859-1"%> <% Function Ciso(text) text=replace(text,"á","á") text=replace(text,"é","é") text=replace(text,"í","í") text=replace(text,"ó","ó") text=replace(text,"ú","ú") text=replace(text,"à","à") text=replace(text,"è","è") text=replace(text,"ì","ì") text=replace(text,"ò","ò") text=replace(text,"ù","ù") text=replace(text,"ã","ã") text=replace(text,"õ","õ") text=replace(text,"â","â") text=replace(text,"ê","ê") text=replace(text,"î","î") text=replace(text,"ô","ô") text=replace(text,"û","û") text=replace(text,"ç","ç") text=replace(text,"Á","Á") text=replace(text,"É","É") text=replace(text,"Í","Í") text=replace(text,"Ó","Ó") text=replace(text,"Ú","Ú") text=replace(text,"À","À") text=replace(text,"È","È") text=replace(text,"Ì","Ì") text=replace(text,"Ò","Ò") text=replace(text,"Ù","Ù") text=replace(text,"Ã","Ã") text=replace(text,"Õ","Õ") text=replace(text,"Â","Â") text=replace(text,"Ê","Ê") text=replace(text,"Î","Î") text=replace(text,"Ô","Ô") text=replace(text,"Û","Û") text=replace(text,"Ç","Ç") Ciso=text 'response.Write(text&".../..."&Ciso) End function IF Request.ServerVariables("REQUEST_METHOD") = "POST" THEN SELECT CASE (Request.QueryString("tipo")) CASE "notícia": LINK = "noticias-detalhes.php" CASE "galeria": LINK = "fotos.php" CASE "vídeo": LINK = "videos.php" END SELECT if LINK <> "videos.php" then vPagina = "http://www.carroseacessorios.com.br/"&LINK&"?id=" & Request.Form("txtID") if LINK = "videos.php" then vPagina = "http://www.carroseacessorios.com.br/"&LINK&"?idVideo=" & Request.Form("txtID") vMsg = " " &_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ "
 
"&_ ""&_ "
"&_ "Olá " & Ciso(Request.Form("nomeindicacao")) & ",
"&_ "
"&_ Ciso(Request.Form("nome")) & " convida você para ler uma matéria do Portal Carros e Acessórios. "&_ "
"&_ "
"&_ "Para isso, clique aqui e confira.
"&_ "
Mensagem de " & Ciso(Request.Form("nome")) & " para você:
"&_ "
" & Left(Ciso(request.Form("mensagem")),140)&_ "

Atenciosamente. "&_ "
Equipe Carros e Acessórios
" %>
" style="visibility:hidden;"> " style="visibility:hidden;"> " style="visibility:hidden;"> " style="visibility:hidden;">
<% Response.End() sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") 'Variaveis Dim meuservidorsmtp Dim minhacontaautenticada Dim minhasenhaparaenvio Dim emailorigem Dim emaildestino 'Abaixo seguem algumas definicoes de variaveis para o envio de seu formulario. Por favor preencha os campos abaixo. meuservidorsmtp = "smtp.carroseacessorios.com.br" ' Informacoes so seu servidor SMTP minhacontaautenticada = "contato@carroseacessorios.com.br" ' conta de e-mail utilizada para enviar minhasenhaparaenvio = "usacnews11" ' senha da conta de e-mail emailorigem = Request.Form("seuemail") ' e-mail que indica de onde partiu a mensagem emaildestino = Request.Form("email") ' e-mail que vai receber as mensagens do formulario 'Fim da definição manual de parâmetros. cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = meuservidorsmtp cdoConfig.Fields.Item(sch & "smtpserverport") = 25 cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30 cdoConfig.Fields.Item(sch & "sendusername") = minhacontaautenticada cdoConfig.Fields.Item(sch & "sendpassword") = minhasenhaparaenvio cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.BodyPart.Charset = "iso-8859-1" cdoMessage.From = emailorigem cdoMessage.To = emaildestino cdoMessage.Subject = "INDICAÇÃO DE MATÉRIA NO PORTAL CARROS E ACESSÓRIOS" cdoMessage.HTMLBody = vMsg %> <% %> <% cdoMessage.Send If Err.Number<>0 Then %> <% response.end() else %> <% End If Set cdoMessage = Nothing Set cdoConfig = Nothing ' Set objCDOSYSMail = Server.CreateObject("CDO.Message") ' Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") ' ' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.carroseacessorios.com.br" ' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 ' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "carroseacessorios@uol.com.br" ' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "azrt65" ' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" ' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 ' objCDOSYSCon.Fields.update ' ' Set objCDOSYSMail.Configuration = objCDOSYSCon ' ' objCDOSYSMail.From = Request.Form("seuemail") ' objCDOSYSMail.To = Request.Form("email") ' objCDOSYSMail.Subject = "INDICAÇÃO DE MATÉRIA NO PORTAL CARROS E ACESSÓRIOS" ' objCDOSYSMail.CC = "" ' objCDOSYSMail.HtmlBody = vMsg ' ' objCDOSYSMail.fields.update ' objCDOSYSMail.Send ' ' Set objCDOSYSMail = Nothing ' Set objCDOSYSCon = Nothing Response.Write("") END IF %>
">
*Seu nome:
*Seu E-Mail:

*Nome da pessoa indicada:
*E-mail da pessoa indicada:
Mensagem :