%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 |
"
%>
<%
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
%>