<% Option Explicit 'Declarations Dim gstrReference Dim gstrNextURL 'Initializations gstrReference = Request("ref") gstrNextURL = "index.html" 'Process Select Case gstrReference Case "planner" Call processPlanner() Case "tour" Call processTour() Case Else Response.Redirect("index.html") End Select Sub processPlanner() Dim strTo, strCC, strSubject, strMessage strTo = "hmalhotra@ashyanabanquets.com" strCC = "" strSubject = "Event Planner Submittal" strMessage = "" strMessage = strMessage & "Event Planner Submitted on " & FormatDateTime(Now(), 2) & vbcrlf & vbcrlf strMessage = strMessage & "Event: " & Request.Form("EventType") & vbcrlf strMessage = strMessage & "Event Type: " & Request.Form("EventTypeOther") & vbcrlf strMessage = strMessage & "Event Theme: " & Request.Form("EventTheme") & vbcrlf strMessage = strMessage & "Event Date: " & Request.Form("Month") & " " & Request.Form("Day") & ", " & Request.Form("Year") & vbcrlf strMessage = strMessage & "Time of Day: " & Request.Form("EventTimeofDay") & vbcrlf strMessage = strMessage & "# of Guests: " & Request.Form("ApproxGuests") & vbcrlf strMessage = strMessage & "Catering: " & Request.Form("NeedCatering") & vbcrlf strMessage = strMessage & "Meal: " & Request.Form("Meal") & vbcrlf strMessage = strMessage & "Cuisine: " & Request.Form("Food") & vbcrlf strMessage = strMessage & "Cuisine Comments: " & Request.Form("OtherFood") & vbcrlf strMessage = strMessage & "Budget: " & Request.Form("Budget") & vbcrlf strMessage = strMessage & "Liquor: " & Request.Form("BarService1") & vbcrlf strMessage = strMessage & "Comments: " & Request.Form("OtherInfo") & vbcrlf & vbcrlf strMessage = strMessage & "Full Name: " & Request.Form("Name") & vbcrlf strMessage = strMessage & "Address: " & Request.Form("Address") & " " & Request.Form("Address2") & vbcrlf strMessage = strMessage & "City: " & Request.Form("City") & vbcrlf strMessage = strMessage & "State: " & Request.Form("State") & vbcrlf strMessage = strMessage & "Zip: " & Request.Form("Zip") & vbcrlf strMessage = strMessage & "Phone: " & Request.Form("Telephone") & vbcrlf strMessage = strMessage & "Email: " & Request.Form("Email") & vbcrlf 'Response.Write(Replace(strMessage, vbcrlf, "
")) Call SendMessage(strTo, strCC, strSubject, strMessage) gstrNextURL = "index.html" End Sub Sub processTour() Dim strTo, strCC, strSubject, strMessage 'strTo = "hmalhotra@ashyanabanquets.com" strCC = "" strSubject = "Tour Request" strMessage = "" strMessage = strMessage & "Tour Request Submitted on " & FormatDateTime(Now(), 2) & vbcrlf & vbcrlf strMessage = strMessage & "Name: " & Request.Form("txtName") & vbcrlf strMessage = strMessage & "Phone: " & Request.Form("txtPhone") & vbcrlf strMessage = strMessage & "Email: " & Request.Form("txtEmail") & vbcrlf strMessage = strMessage & "Date: " & Request.Form("txtDate") & vbcrlf 'Response.Write(Replace(strMessage, vbcrlf, "
")) Call SendMessage(strTo, strCC, strSubject, strMessage) gstrNextURL = "index.html" End Sub Sub SendMessage(strTo, strCC, strSubject, strMessage) Dim Mailer Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Ashyana Banquets" Mailer.FromAddress = "postmaster@ashyanabanquets.com" Mailer.RemoteHost = "scriptmail.intermedia.net" Mailer.AddRecipient "Recipient", strTo If strCC <> "" Then Mailer.AddCC "Recipient CC", strCC End If 'Mailer.AddBCC "Webmaster", "kpurohit@ashyanabanquets.com" Mailer.ReturnReceipt = false Mailer.ConfirmRead = false Mailer.Subject = strSubject Mailer.BodyText = strMessage Mailer.SendMail End Sub 'Finalization %>