I have the following script that is processing a form. It works fine if I remove everything from Set JMail on, but as soon as I add the Jmail part in, it fails to run and displays a Page Cannot Be Displayed message. What is missing here. I am running IIS5 and have installed JMail on the server. I have substituted anyserver.com in place of my server.
<%
Dim url1
Dim url2
Dim url3
Dim url4
Dim url5
url1="url2="url3="url4="url5="
response.write "<a href='"&url1&"'>Track 1</a><br>"
response.write "<a href='"&url2&"'>Track 2</a><br>"
response.write "<a href='"&url3&"'>Track 3</a><br>"
response.write "<a href='"&url4&"'>Track 4</a><br>"
response.write "<a href='"&url5&"'>Track 5</a><br>"
Set JMail = Server.CreateObject("JMail.SMTPMail"
' This is my local SMTP server
JMail.ServerAddress = "mail.anyserver.com"
' This is me....
JMail.Sender = "info@anyserver.com"
JMail.Subject = "Free "
JMail.AddRecipient = "chris@anyserver.com"
JMail.Body = "The Following Tracks have been downloaded from the FreeMusic4Video Program." & vbCrLf &Request.Form("Company"
& vbCrLf &Request.Form("Name"
& vbCrLf &Request.Form("Address"
& vbCrLf &Request.Form("Address2"
& vbCrLf &Request.Form("City"
& vbCrLf &Request.Form("State"
& vbCrLf &Request.Form("ZipCode"
& vbCrLf &Request.Form("Phone"
& vbCrLf &Request.Form("Fax"
& vbCrLf &Request.Form("Email"
& vbCrLf &Request.Form("Contact_Method"
& vbCrLf &Request.Form("Job_Function"
& vbCrLf &Request.Form("Primary_Business"
& vbCrLf &Request.Form("Number_of_Employees"
& vbCrLf &Request.Form("Hear"
& vbCrLf &Request.Form("Title"
& vbCrLf &Request.Form("Copyright_Owner"
& vbCrLf &Request.Form("Broadcast"
& vbCrLf &Request.Form("Retail_Sale"
& vbCrLf &Request.Form("Length"
& vbCrLf &Request.Form("Completion_Date"
& vbCrLf &Request.Form("Current_Ntrax_User"
& vbCrLf &"Volume:"&Request.Form("Selection1_volume"
& "Track:"&Request.Form("Selection1_Track"
&".mp3"
& vbCrLf &"Volume:"&Request.Form("Selection2_volume"
& "Track:"&Request.Form("Selection2_Track"
&".mp3"
& vbCrLf &"Volume:"&Request.Form("Selection3_volume"
& "Track:"&Request.Form("Selection3_Track"
&".mp3"
& vbCrLf &"Volume:"&Request.Form("Selection4_volume"
& "Track:"&Request.Form("Selection4_Track"
&".mp3"
& vbCrLf &"Volume:"&Request.Form("Selection5_volume"
& "Track:"&Request.Form("Selection5_Track"
&".mp3"
JMail.Priority = 3
JMail.AddHeader "Originating-IP",
Request.ServerVariables("REMOTE_ADDR"
JMail.Execute
<%
Dim url1
Dim url2
Dim url3
Dim url4
Dim url5
url1="url2="url3="url4="url5="
response.write "<a href='"&url1&"'>Track 1</a><br>"
response.write "<a href='"&url2&"'>Track 2</a><br>"
response.write "<a href='"&url3&"'>Track 3</a><br>"
response.write "<a href='"&url4&"'>Track 4</a><br>"
response.write "<a href='"&url5&"'>Track 5</a><br>"
Set JMail = Server.CreateObject("JMail.SMTPMail"
' This is my local SMTP server
JMail.ServerAddress = "mail.anyserver.com"
' This is me....
JMail.Sender = "info@anyserver.com"
JMail.Subject = "Free "
JMail.AddRecipient = "chris@anyserver.com"
JMail.Body = "The Following Tracks have been downloaded from the FreeMusic4Video Program." & vbCrLf &Request.Form("Company"
& vbCrLf &"Volume:"&Request.Form("Selection1_volume"
& vbCrLf &"Volume:"&Request.Form("Selection2_volume"
& vbCrLf &"Volume:"&Request.Form("Selection3_volume"
& vbCrLf &"Volume:"&Request.Form("Selection4_volume"
& vbCrLf &"Volume:"&Request.Form("Selection5_volume"
JMail.Priority = 3
JMail.AddHeader "Originating-IP",
Request.ServerVariables("REMOTE_ADDR"
JMail.Execute