Qual o erro aqui

Erro de tempo de execução do Microsoft VBScript erro '800a01b6' Esta propriedade ou método não tem suporte do objeto: 'objMail.Logon' /webmail/index.asp, line 9

 
<%
strServidorPOP = "pop.poa.terra.com.br"
strEmail = request.form("Email")
strSenha = request.form("Senha")
 
strCkless = strServerPOP  + vbLf + strEmail + vbLf + strSenha
Set objMail = Server.CreateObject("CDONTS.Session")
objMail.Logon , , , true, , true, strCkless
 
Set Entrada = objMail.Inbox
Set Mensagens = Entrada.Messages
 

msgId = Trim(Request.QueryString("MsgId"))
If msgId = "" Then
For Each Mensagem In Mensagens
i = i + 1
Response.Write "<a href='recebendo.asp?MsgId=" & i & ">" & Mensagens.Subject & "</a>"
Response.Write " enviado por " & Mensagens.Sender
Response.Write "<BR>"
Next
' Fim da leitura das mensagens
Else
 
Set Mensagem = Mensagens(msgId)
Response.Write "<b>Assunto:</b> " & Mensagem.Subject & "<br>"
Response.Write "<b>Por:</b> " & Mensagem.Sender & "<br>"
Response.Write "<b>Mensagem:</b> " & Mensagem.Text
End If
objMail.Logoff
%>

:: http://www.asp10.net
==================================================
:: Solu��es simples para problemas complexos
:: Sistemas de Links, Not�cias, Faq, Loja,
:: Estat�sticas, Artigos, Mural e muito mais.
==================================================
:: Para entrar, sair ou ver o hist�rico da lista
:: Asp10.net visite http://www.asp10.net
==================================================


clique aqui Grupos.com.br
p�gina do grupo diret�rio de grupos diret�rio de pessoas cancelar assinatura

Responder a