% if Request("submit") <> "" then Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") Dim objCDOConf Set objCDOConf = Server.CreateObject("CDO.Configuration") With objCDOConf.Fields .Item(cdoSendUsingMethod) = 2 .Item(cdoSMTPServer) = "mail-fwd" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = objCDOConf ' Be sure to use a valid email addresses below: objCDO.From = "dayana@prusoft.com.br" objCDO.To = "comercial@prusoft.com.br" objCDO.cc = "cesar@prusoft.com.br" objCDO.Bcc = "prusoft@terra.com.br" objCDO.Subject = "Site Target " & Request.ServerVariables("URL") objCDO.TextBody = "Site Target " & Request.ServerVariables("URL") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Nome: " objCDO.TextBody = objCDO.TextBody & Request("nome") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Empresa: " objCDO.TextBody = objCDO.TextBody & Request("empresa") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Email: " objCDO.TextBody = objCDO.TextBody & Request("email") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Telefone: " objCDO.TextBody = objCDO.TextBody & Request("telefone") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Mensagem: " objCDO.TextBody = objCDO.TextBody & Request("mensagem") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.Send 'Clean-up Set objCDO = Nothing Set objCDOConf = Nothing ' Happy response. If you would rather, ' change the following to Response.Redirect "Contato.html" ' Response.Write "Your Message has been sent. Thank you!" Response.End end if %>