MotoSpace

Tudo sobre Motos

Condições de Uso do Site
Direitos autorais reservados © MotoSpace.com.br, Design Alpha Studio
function Aviso Dim strSqlpiada Dim rstpiada Dim intLido Dim strHtml strCor = "#ffffff" Dim MyCDONTSMail,i 'Create the e-mail server object Set CDOSYSMail = Server.CreateObject("CDO.Message") Set CDOSYSCon = Server.CreateObject("CDO.Configuration") 'Out going SMTP server CDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.motospace.com.br" CDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 CDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 CDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 CDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 CDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mail@motospace.com.br" CDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "superamigos1402" CDOSYSCon.Fields.Update 'Update the CDOSYS Configuration Set CDOSYSMail.Configuration = CDOSYSCon CDOSYSMAIL.To = "costamatrix@gmail.com" CDOSYSMAIL.cc = "feturco@gmail.com" CDOSYSMail.From="mail@motospace.com.br" CDOSYSMail.Subject = "Novo comentario no forum MotoSpace.com.br - " CDOSYSMail.TextBody="http://www.motospace.com.br/" & replace(fabricante," ","-") & "/" & replace(modelo," ","-") & vbcrlf & vbcrlf & reqform("texto") CDOSYSMail.Send Set CDOSYSMail = Nothing Set CDOSYSCon = Nothing end function