<% 'get variables... sender_name = request.form("name") email = request.form("email") lodge = request.form("lodge") sender = request.form("sender") subject = request.form("subject") message = request.form("message") recipient = "" sender_designation = "" extramessage = "" 'format variables... 'this makes the proper Name prefix... brother or layman if sender = "layman" then sender_designation = "Mr. " sender = "interested in joining" elseif sender = "brother" then sender_designation = "Brother " sender = "a brother" else sender_designation = "Mr. " sender = "neither a travelling brother or an interested layman" end if 'this makes the proper adjustment to the resulting page and 'also appends the proper e-mail address for each lodge... Select Case lodge case "grandlodge" lodge = "The Grand Lodge" recipient = "dale.palileo@gmail.com" case "hawaiian" lodge = "Hawaiian Lodge" recipient = "secretary@hawaiianlodge.org" case "honolulu" lodge = "Honolulu Lodge" recipient = "monty_glover@hotmail.com" case "kauai" lodge = "Kauai Lodge" recipient = "karvel.rose@verizon.net" case "kilauea" lodge = "Kilauea Lodge" recipient = "cysumnyhunny@aol.com" case "kona" lodge = "Kona Lodge" recipient = "secretary@konalodge.com" 'change this later case "koolau" lodge = "Ko'olau Lodge" recipient = "scott@kailua-electric.com" case "leeward" lodge = "Leeward Lodge" recipient = "dale.palileo@gmail.com" case "leprogres" lodge = "Lodge Le Progres de l'Oceanie" recipient = " jameswilligjr@hotmail.com" case "maui" lodge = "Lodge Maui" recipient = "office@lodgemaui.org" case "pearlharbor" lodge = "Pearl Harbor Lodge" recipient = "info@pearlharborlodge.com" case "schofield" lodge = "Schofield Lodge" recipient = "dale.palileo@gmail.com" 'change this later case "WebMaster" lodge = "The Grand Lodge WebMaster" recipient = "dale.palileo@gmail.com" case else lodge = "The Grand Lodge" recipient = "dale.palileo@gmail.com" end select if sender = "a brother" then extramessage = "Also, please extend our warmest Aloha and fraternal greetings to the Master and brethren of your lodge. " & vbCrLf else extramessage = " " & vbCrLF end if 'message content layman = "Thank you for your interest." & vbCrLf layman = layman & " " & vbCrLf & vbCrLF layman = layman & "You have received this e-mail message because you have requested information from our website. " layman = layman & "Do not respond to this letter for it is automatically generated. " layman = layman & "This e-mail is sent to you to give you confirmation that we have received your information. You will " layman = layman & "receive a response from " & lodge & " as soon as possible. If you want to follow up on your request, please " layman = layman & "send an e-mail message to info@hawaiifreemason.org." layman = layman & " " & vbCrLF & vbCrLF layman = layman & "You can also contact us via telephone and facsimile. These numbers are 808.531.9050 and 808.531.8217 respectively. " layman = layman & " " & vbCrLF & vbCrLf layman = layman & extramessage layman = layman & " " & vbCrLF layman = layman & "Sincerely, " & vbCrLF layman = layman & " " & vbCrLF layman = layman & "HawaiiFreemason.org" & vbCrLf layman = layman & "The Official Website of" & vbCrLf layman = layman & "The Most Worshipful Grand Lodge of Free & Accepted Masons" & vbCrLf layman = layman & "in the State of Hawaii" & vbCrLf layman = layman & "e-mail: info@hawaiifreemason.org" layman = layman & " " 'perform e-mail transmission to lodge... set lodgeMail = createObject("CDONTS.newMail") lodgeMail.to = recipient lodgeMail.from = "inforequest@hawaiifreemason.org" lodgeMail.subject = "New Information Request from HawaiiFreemason.org" tbody = " " & vbCrLf tbody = tbody & sender_designation & sender_name & " has requested more information about " & lodge & ". The details are as follows: " & vbCrLf tbody = tbody & " " & vbCrLf tbody = tbody & " " & vbCrLf tbody = tbody & "Name: " & sender_name & vbCrLf tbody = tbody & "E-Mail Address: " & email & vbCrLF tbody = tbody & "To: " & lodge & vbCrLF tbody = tbody & "He is " & sender & vbCrLF tbody = tbody & "Message Subject: " & subject & vbCrLf tbody = tbody & "Message is as follows: " & vbCrLf tbody = tbody & message & vbCrLf tbody = tbody & " " & vbCrLf tbody = tbody & " " & vbCrLf tbody = tbody & "Please respond to " & sender_designation & sender_name & " accordingly." & vbCrLf lodgeMail.body = tbody lodgeMail.send set lodgeMail = nothing 'perform e-mail transmission copy to GL... if recipient = "dale.palileo@gmail.com" then bing = "" else set GLMail = createObject("CDONTS.newMail") GLMail.to = "dale.palileo@gmail.com" GLMail.from = "inforequest@hawaiifreemason.org" GLMail.subject = "New Information Request from HawaiiFreemason.org" tbody = "the following was sent to " & lodge & " and is being sent to the Grand Lodge for informational purposes. NO ACTION IS REQUIRED." & vbCrLF tbody = tbody & " " & vbCrLf tbody = tbody & sender_designation & sender_name & " has requested more information. The details are as follows: " & vbCrLf tbody = tbody & " " & vbCrLf tbody = tbody & " " & vbCrLf tbody = tbody & "Name: " & sender_name & vbCrLf tbody = tbody & "E-Mail Address: " & email & vbCrLF tbody = tbody & "To: " & lodge & vbCrLF tbody = tbody & "He is " & sender & vbCrLF tbody = tbody & "Message Subject: " & subject & vbCrLf tbody = tbody & "Message is as follows: " & vbCrLf tbody = tbody & message & vbCrLf tbody = tbody & " " & vbCrLf tbody = tbody & " " & vbCrLf tbody = tbody & "The above information was sent to " & lodge & " and they are requested to reply to " & sender_designation & sender_name & " accordingly." & vbCrLf GLMail.body = tbody GLMail.send set GLMail = nothing end if 'perform e-mail transmission to sender... set taskMail = createObject("CDONTS.newMail") taskMail.to = email taskMail.from = "inforequest@hawaiifreemason.org" taskMail.subject = "AUTORESPONDER: Your Information Request from HawaiiFreemason.org" tbody = " " & vbCrLf tbody = tbody & sender_designation & sender_name & "," & vbCrLf tbody = tbody & " " & vbCrLf tbody = tbody & layman taskMail.body = tbody taskmail.send set taskMail = nothing %>

Layman's QuickLinks:

 

Information Request Section

Thank you for using our Information Request Section. Your request is now being sent to <%=lodge%>. You should be hearing from <%=lodge%> shortly.

An automated message was also sent to your e-mail account for your reference. If the information you have requested requires urgent attention, it would be best if you contact the Grand Lodge through telephone at 808.531.9050.

Again, thank you.