<% 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 %>

Thank you!

Your site submission has been sent. It should be processed within 14 days.

Use the Back button to back out, or click to go to:
    Add your site
    Info Home

 

Why not add your web site to LocalDirect as well? Click the banner...

LocalDirect

<% 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 %>