Formail

Galera Boa Tarde!

eu tenho um formulário em flash q envia pra esta pg mail conforme o código abaixo pra funcionar no ig eu consegui arrumar só q pro terra não consigo

alguem por favor me ajuda

ASP

<%
'cria o objeto para o envio de e-mail

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
 
'cria o objeto para configuração do SMTP

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
 
'SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.igempresas.ig.com.br"
 
'porta do SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 
'porta do CDO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
'timeout
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
 
objCDOSYSCon.Fields.update
 
'atualiza a configuração do CDOSYS para o envio do e-mail

Set objCDOSYSMail.Configuration = objCDOSYSCon
 
'e-mail do remetente
objCDOSYSMail.From = request.Form("email")

'e-mail do destinatário
objCDOSYSMail.To = "miottoautocenter@miottoautocenter.com.br"
 
'assunto da mensagem
objCDOSYSMail.Subject = request.Form("assunto")

'conteúdo da mensagem  
strBody = "Dados" & vbCrLf & vbCrLf & _

"Nome: "& Request("nome") & vbCrLf & _

"E-Mail: "& Request("email") & vbCrLf & _

"Telefone: "& "(" & Request("ddd") & ")" & Request("telefone") & vbCrLf & _

"Mensagem: "& Request("msg")
strBody = strBody & "."
 
objCDOSYSMail.TextBody = strBody  
'para envio da mensagem no formato html altere o TextBody para HtmlBody
'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS"
 
'objCDOSYSMail.fields.update
 
'envia o e-mail
objCDOSYSMail.Send
 
'destrói os objetos

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

Response.write "status=MENSAGEM ENVIADA COM SUCESSO.<br>    OBRIGADO! EM BREVE, ENTRAREMOS EM CONTATO"

%>