<%
nome = "luis"
email = "tiagopereira1@msn.com"
fone = "fone"
endereco = "tiagopereira1@msn.com"
cidade = "nelas"
estado = "solteiro"
mensagem = "todo bom"
'Agora vamos criar o objeto Cdonts e enviar a mensagem
Set msg = Server.CreateObject("CDONTS.NewMail")
msg.From = email
msg.To="tiagopereira1@msn.com"
msg.Subject = Contato
texto = texto&"O usuário "&nome&" lhe enviou a mensagem abaixo:"
texto = texto&"Telefone: "&fone&""
texto = texto&"Endereço: "&endereco&""
texto = texto&"Cidade: "&cidade&""
texto = texto&"Estado: "&estado&""
texto = texto&"Mensagem: "&mensagem&""
texto = texto&"Email: "&email&""
msg.Body = texto
'*** Os valores para BodyFormat são 0 p/ HTML e 1 p/ texto !! *** '
msg.BodyFormat = 0
msg.MailFormat = 0
msg.Send
Set msg = Nothing
response.Redirect("obrigado.htm")
%>
e ao compilar na internet da-m o seguinte erro:
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/qwert/12.asp, line 20
800401f3
a linha 20 e esta:
Set msg = Server.CreateObject("CDONTS.NewMail")
nao sei o k se passa... por favor ajudem-m e urgente
