UTILIZAÇÃO DO CDOSYS:
A Nova Host utiliza em seus servidores windows a versão "Windows 2003 Web Edition" e em nessa versão a própria MICROSOFT desabilitou o componete que CDONTS, o qual é utilizados por muitos progradores ASP. Em seu lugar eles disponibilizaram o CDOSYS, que além de
fazer as funções normais do CDONTS possiu novas aplicações.
Abaixo colocamos a sua disposição um exemplo de utilização do CDOSYS:
<%Response.buffer = true%>
<%
vnome=Request.Form("nome")
vemail=Request.Form("email")
vassunto=Request.Form("assunto")
vmensagem=Request.Form("mensagem")
%>
<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "localhost"
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = vemail
.To = "nome@seudominio.com.br"
.Subject = vassunto
.TextBody = vmensagem
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
<%Response.redirect "obrigado.asp"%>
E substituir pelos dados corretos para seu caso.
