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