jlsmithhartfiel
Programmer
Hi!
A few people are having problems sending an email from my registration page. Not everyone is having a problem. I haven't been able to discern a pattern as of yet.
Any ideas would be appreciated!
The error is as follows:
The code at line 141 is the .Send below:
Jessica
A few people are having problems sending an email from my registration page. Not everyone is having a problem. I haven't been able to discern a pattern as of yet.
Any ideas would be appreciated!
The error is as follows:
Code:
The page cannot be displayed There is a problem with the page you are trying to reach and it cannot be displayed.
Technical Information (for support personnel)
· Error Type:
(0x8004020F)
/saveinfowebgh.asp, line 141
· Browser Type:
Mozilla/4.0 (compatible; MSIE 5.5; Windows 95)
· Page:
POST 184 bytes to /saveinfowebgh.asp
· POST Data:
demodate=Sep+23&demodate=Sep+24&fname=MyName&lname=MyLastName&company=MyCompany&email=me@nowhere.com&phone=800-555-1212&reference=abc&submit1=Submit
· Time:
Wednesday, August 13, 2003, 8:56:20 AM
· More information:
Microsoft Support
The code at line 141 is the .Send below:
Code:
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Const cdoSendUsingPort = 2
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' Set the CDOSYS configuration fields to use port 25 on the SMTP server.
With Flds
.Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusing")[/URL] = cdoSendUsingPort
'ToDo: Enter name or IP address of remote SMTP server.
.Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserver")[/URL] = "our.mail.server"
.Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")[/URL] = 10
.Update
End With
' Build HTML for message body.
strHTML = "<HTML>"
<snipped rest of email body>
' Apply the settings to the message.
With iMsg
Set .Configuration = iConf
.To = strEmail
.BCC = strBCC
.From = strFrom
.Subject = strSubject
.HTMLBody = strHTML
.Send
End With
' Clean up variables.
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
Jessica