Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

JMail Question 1

Status
Not open for further replies.

chellweg

IS-IT--Management
Dec 8, 2003
20
US
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=&quot;url2=&quot;url3=&quot;url4=&quot;url5=&quot;
response.write &quot;<a href='&quot;&url1&&quot;'>Track 1</a><br>&quot;
response.write &quot;<a href='&quot;&url2&&quot;'>Track 2</a><br>&quot;
response.write &quot;<a href='&quot;&url3&&quot;'>Track 3</a><br>&quot;
response.write &quot;<a href='&quot;&url4&&quot;'>Track 4</a><br>&quot;
response.write &quot;<a href='&quot;&url5&&quot;'>Track 5</a><br>&quot;

Set JMail = Server.CreateObject(&quot;JMail.SMTPMail&quot;)

' This is my local SMTP server
JMail.ServerAddress = &quot;mail.anyserver.com&quot;

' This is me....
JMail.Sender = &quot;info@anyserver.com&quot;
JMail.Subject = &quot;Free &quot;
JMail.AddRecipient = &quot;chris@anyserver.com&quot;
JMail.Body = &quot;The Following Tracks have been downloaded from the FreeMusic4Video Program.&quot; & vbCrLf &Request.Form(&quot;Company&quot;)& vbCrLf &Request.Form(&quot;Name&quot;)& vbCrLf &Request.Form(&quot;Address&quot;)& vbCrLf &Request.Form(&quot;Address2&quot;)& vbCrLf &Request.Form(&quot;City&quot;)& vbCrLf &Request.Form(&quot;State&quot;)& vbCrLf &Request.Form(&quot;ZipCode&quot;)& vbCrLf &Request.Form(&quot;Phone&quot;)& vbCrLf &Request.Form(&quot;Fax&quot;)& vbCrLf &Request.Form(&quot;Email&quot;)& vbCrLf &Request.Form(&quot;Contact_Method&quot;)& vbCrLf &Request.Form(&quot;Job_Function&quot;)& vbCrLf &Request.Form(&quot;Primary_Business&quot;)& vbCrLf &Request.Form(&quot;Number_of_Employees&quot;)& vbCrLf &Request.Form(&quot;Hear&quot;)& vbCrLf &Request.Form(&quot;Title&quot;)& vbCrLf &Request.Form(&quot;Copyright_Owner&quot;)& vbCrLf &Request.Form(&quot;Broadcast&quot;)& vbCrLf &Request.Form(&quot;Retail_Sale&quot;)& vbCrLf &Request.Form(&quot;Length&quot;)& vbCrLf &Request.Form(&quot;Completion_Date&quot;)& vbCrLf &Request.Form(&quot;Current_Ntrax_User&quot;)
& vbCrLf &&quot;Volume:&quot;&Request.Form(&quot;Selection1_volume&quot;)& &quot;Track:&quot;&Request.Form(&quot;Selection1_Track&quot;)&&quot;.mp3&quot;
& vbCrLf &&quot;Volume:&quot;&Request.Form(&quot;Selection2_volume&quot;)& &quot;Track:&quot;&Request.Form(&quot;Selection2_Track&quot;)&&quot;.mp3&quot;
& vbCrLf &&quot;Volume:&quot;&Request.Form(&quot;Selection3_volume&quot;)& &quot;Track:&quot;&Request.Form(&quot;Selection3_Track&quot;)&&quot;.mp3&quot;
& vbCrLf &&quot;Volume:&quot;&Request.Form(&quot;Selection4_volume&quot;)& &quot;Track:&quot;&Request.Form(&quot;Selection4_Track&quot;)&&quot;.mp3&quot;
& vbCrLf &&quot;Volume:&quot;&Request.Form(&quot;Selection5_volume&quot;)& &quot;Track:&quot;&Request.Form(&quot;Selection5_Track&quot;)&&quot;.mp3&quot;




JMail.Priority = 3
JMail.AddHeader &quot;Originating-IP&quot;,
Request.ServerVariables(&quot;REMOTE_ADDR&quot;)
JMail.Execute
 
Thank You very much. That showed me where the error was, and worked as soon as I fixed the error!
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top