C
Chris
I get the follow error on a linux box that is running sun asp:
CDONTS.NewMail.1 error '80020009' unable to connect to server
The error occurs when the Send Command is Executed.
Here is my code
Dim objCDO 'CDO object
' Send it to ...
SendTo = "(e-mail address removed)"
MailSubject = "WaterSavers Custormer Service Inquiry"
' Read in the values entered
CompanyName = Request( Trim( "companyName" ) )
YourName = Request( Trim( "yourName" ) )
YourTitle = Request( Trim( "yourTitle" ) )
YourMail = Request( Trim( "yourMail" ) )
YourPhone = Request( Trim( "yourPhone" ) )
QuestionQuery = Request( Trim( "question_query" ) )
' Body of Email
MailBody = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0
Transitional//EN"">" & vbCrLf _
& "<html>" & vbCrLf _
& "<head>" & vbCrLf _
& " <title>Customer Service Inquiry</title>" & vbCrLf _
& " <meta http-equiv=Content-Type content=""text/html;
charset=iso-8859-1"">" & vbCrLf _
& "</head>" & vbCrLf _
& "<body bgcolor=""#FFFFFF"">" & vbCrLf _
& " <h2>Customer Service Inquiry</h2>" & vbCrLf _
& " <p>" & vbCrLf _
& " <b>Company Name:</b> " & CompanyName & "<br>" & vbCrLf _
& " <b>Name:</b> " & YourName & "<br>" & vbCrLf _
& " <b>Title:</b> " & YourTitle & "<br>" & vbCrLf _
& " <b>EMail:</b> " & YourMail & "<br>" & vbCrLf _
& " <b>Phone Number:</b> " & YourPhone & "<br>" & vbCrLf _
& " <b>Questions/Queries:</b> " & QuestionQuery & "<br>" & vbCrLf _
& "</body>" & vbCrLf _
& "</html>" & vbCrLf
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = YourMail
objCDO.To = SendTo
objCDO.Subject = MailSubject
objCDO.Body = MailBody
' Send the message!
objCDO.Send 'error occurs here
Set objCDO = Nothing
Any help would be appreciated. Thanks
CDONTS.NewMail.1 error '80020009' unable to connect to server
The error occurs when the Send Command is Executed.
Here is my code
Dim objCDO 'CDO object
' Send it to ...
SendTo = "(e-mail address removed)"
MailSubject = "WaterSavers Custormer Service Inquiry"
' Read in the values entered
CompanyName = Request( Trim( "companyName" ) )
YourName = Request( Trim( "yourName" ) )
YourTitle = Request( Trim( "yourTitle" ) )
YourMail = Request( Trim( "yourMail" ) )
YourPhone = Request( Trim( "yourPhone" ) )
QuestionQuery = Request( Trim( "question_query" ) )
' Body of Email
MailBody = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0
Transitional//EN"">" & vbCrLf _
& "<html>" & vbCrLf _
& "<head>" & vbCrLf _
& " <title>Customer Service Inquiry</title>" & vbCrLf _
& " <meta http-equiv=Content-Type content=""text/html;
charset=iso-8859-1"">" & vbCrLf _
& "</head>" & vbCrLf _
& "<body bgcolor=""#FFFFFF"">" & vbCrLf _
& " <h2>Customer Service Inquiry</h2>" & vbCrLf _
& " <p>" & vbCrLf _
& " <b>Company Name:</b> " & CompanyName & "<br>" & vbCrLf _
& " <b>Name:</b> " & YourName & "<br>" & vbCrLf _
& " <b>Title:</b> " & YourTitle & "<br>" & vbCrLf _
& " <b>EMail:</b> " & YourMail & "<br>" & vbCrLf _
& " <b>Phone Number:</b> " & YourPhone & "<br>" & vbCrLf _
& " <b>Questions/Queries:</b> " & QuestionQuery & "<br>" & vbCrLf _
& "</body>" & vbCrLf _
& "</html>" & vbCrLf
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = YourMail
objCDO.To = SendTo
objCDO.Subject = MailSubject
objCDO.Body = MailBody
' Send the message!
objCDO.Send 'error occurs here
Set objCDO = Nothing
Any help would be appreciated. Thanks