<% strName= Request.form("Name") strCompany= Request.form("Company") 'strPosition= Request.form("Position") strEmail= Request.form("Email") strPhone= Request.form("Phone") strFax= Request.form("Fax") strInquiry= Request.form("Inquiry") strMessage= "This inquiry generated by your Info Blue Mountains website, at " & vbCrLf & _ "http://InfoBlueMountains.net.au/nswtoyrail" & vbCrLf & _ "Webmaster David Martin " & vbCrLf & _ "Phone 4751-5198, Mob 0421-607-382" strHeader= "Leuralla (InfoBM) web site inquiry" strRecipient1 = "info@infobluemountains.net.au" strRecipient2 = "leuralla@bigpond.com" strRecipient3 = "emevatt@bigpond.com" strBody = "Name: " & strName & vbCrLf & _ "Organisation: " & strCompany & vbCrLf & _ "E-mail: " & strEmail & vbCrLf & _ "Phone: " & strPhone & vbCrLf & _ "Fax: " & strFax & vbCrLf & _ "Inquiry: " & vbCrLf & _ strInquiry & vbCrLf & vbCrLf & _ "------------------------------------------------" & vbCrLf & _ strMessage set msg = Server.CreateObject("JMail.Message") msg.Logging = True msg.silent = true msg.From = strEmail msg.FromName = strName msg.AddRecipient strRecipient1 'msg.AddRecipient strRecipient2 'msg.AddRecipient strRecipient3 msg.Subject = strHeader msg.body = strBody If not msg.Send("mail.infobluemountains.net.au") then Result= msg.log Else Result= "Message sent. Thank you!" End If Set msg = nothing %>

 Inquiries - Thank you!

<%= Result %>
In a few minutes, you will receive an e-mailed confirmation of your message.
In the event that you are not contacted within 3 working days, please re-send your inquiry.

 

 
Name:  <% Response.write strName %>
Organisation: <% Response.write strCompany %>
E-mail address:  <% Response.write strEmail %>
Phone: <% Response.write strPhone %>
Fax: <% Response.write strFax %>
Inquiry:  <% Response.write strInquiry %>
 

Return to Home Page...

 

Mountains of Blue Mountains info

<% strBody= "This is an automated response. Thank you for contacting the New South Wales Toy and Railway Museum." & vbCrLf & _ "We aim to reply to inquiries within 3 working days." & vbCrLf & _ "A copy of your message is included below, for your records." & vbCrLf & _ "------------------------------------------------" & vbCrLf & _ strBody response.write(strConfirm) strHeader= "Confirmation of message to NSW Toy & Railway Museum" strRecipient= strEmail strSender= "leuralla@bigpond.com" set msg = Server.CreateObject("JMail.Message") msg.Logging = True msg.silent = true msg.From = strSender msg.FromName = "NSW Toy & Railway Museum" msg.AddRecipient strRecipient msg.Subject = strHeader msg.body = strBody If not msg.Send("mail.infobluemountains.net.au") then Result= msg.log Else Result= "Message sent. Thank you!" End If Set msg = nothing %>