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