need to email user name & password, get CDO.Message.1 error '8004020c'

[dhdweb]

I am using the following code to send lost passwords to group, but get "CDO.Message.1 error '8004020c' " as an error.
<%
Dim LostPassword__EmailParam
LostPassword__EmailParam = "me@mysite.com"
If (Request.Form("EmailAddress") <> "") Then
LostPassword__EmailParam = Request.Form("EmailAddress")
End If
%>
<%
Dim LostPassword
Dim LostPassword_numRows
Set LostPassword = Server.CreateObject("ADODB.Recordset")
LostPassword.ActiveConnection = MM_myconnection_STRING
LostPassword.Source = "SELECT UserName, UserPassword FROM Users WHERE UserEmail = '" + Replace(LostPassword__EmailParam, "'", "''") + "'"
LostPassword.CursorType = 0
LostPassword.CursorLocation = 2
LostPassword.LockType = 1
LostPassword.Open()
LostPassword_numRows = 0
%>
<!--#include file="adovbs.inc" -->
<%
Dim strTo
Dim ConfirmMessage
ConfirmMessage = ""
IF (NOT LostPassword.EOF) THEN
set sysMail = Server.CreateObject("CDO.Message")
strTo = Request.Form("EmailAddress")
sysMail.Configuration.Fields("

http://schemas.microsoft.com/cdo/configuration/smtpserver")

="smtp.nyaapor.net"
sysMail.Configuration.Fields("

http://schemas.microsoft.com/cdo/configuration/sendusing")

= 2
sysMail.Configuration.Fields("

http://schemas.microsoft.com/cdo/configuration/sendusername")

= ""
sysMail.Configuration.Fields("

http://schemas.microsoft.com/cdo/configuration/sendpassword")

= ""
sysMail.Configuration.Fields.Update
sysMail.From = "me@mysite.com"
sysMail.To = strTo
sysMail.Subject = "Re:Your Login Information"
sysMail.TextBody = "UserName: " & LostPassword.Fields("UserName").value & vbCrlf & "Password: " & LostPassword.Fields("UserPassword").value
sysMail.Send
ConfirmMessage = "Your login information has been sent to: " & cStr(Request("EmailAddress"))
END IF
%>

PLEASE HELP!!!!

 

[espar]

the error msg is that ur missing some CDO interface setup.

try adding the port - also i think you can leave out the username and pwd entirely rather than leave them blank:

myMail.Configuration.Fields.Item _
("

http://schemas.microsoft.com/cdo/configuration/smtpserverport")

_
=25