Rob Harari -
rob@harariville.com
Julie Harari -
julie@harariville.com
Telephone: (201) 863-4863
FAX: (201) 863-4872
BOOKING REQUEST FORM
<%
showform="y"
fromform = trim(request.form("fromform"))
if fromform = "y" then
showform="n"
strdate = now
strcontactname = trim(request.form("contactname"))
strContactOrganization = trim(request.form("ContactOrganization"))
strcontactworkphone= trim(request.form("contactworkphone"))
strcontactfax= trim(request.form("contactfax"))
strContactEmail = trim(request.form("ContactEmail"))
strContacturl = trim(request.form("Contacturl"))
strbookingdates = trim(request.form("bookingdates"))
strstudioa = trim(request.form("studioa"))
strstudiob = trim(request.form("studiob"))
strrecord = trim(request.form("record"))
strmix = trim(request.form("mix"))
stroverdub = trim(request.form("overdub"))
strother = trim(request.form("other"))
strhours = trim(request.form("hours"))
strcomments = trim(request.form("comments"))
if strcontactname = "" then
showform = "y"
end if
if strcontactworkphone = "" then
showform = "y"
end if
if strContactEmail = "" then
showform = "y"
end if
if strbookingdates = "" then
showform = "y"
end if
if strstudioa = "" and strstudiob = "" then
showform = "y"
end if
errormessage = " "
if strcontactEmail <> "" and test(strcontactEmail) = False then
showform = "y"
errormessage = "Please enter a valid email address.
"
end if
if strrecord = "" and strmix = "" and stroverdub ="" and strother = ""then
showform = "y"
end if
if showform = "y" then
errormessage = "Please complete the required fields. " & errormessage
else
'everything is good, send the email
'Change these email addresses to rob@harariville.com or whatever he wants it to be
strTo = "julie@harariville.com"
strfrom = "julie@harariville.com"
strSubject = "Booking Request From Website Submission on " & now
strBody = "Date: " & now & vbCrLf
strbody = strbody & "Contact Information" & vbCrLf
strbody = strbody & "Name: " & strcontactname & vbCrLf
strbody = strbody & "Organization: " & strcontactOrganization & vbCrLf
strbody = strbody & "Phone: " & strcontactworkphone & vbCrLf
strbody = strbody & "Fax: " & strcontactfax & vbCrLf
strbody = strbody & "Email: " & strcontactemail & vbCrLf
strbody = strbody & "Url: " & strcontacturl & vbCrLf & vbCrLf
strbody = strbody & "BookingDates: " & strbookingdates & vbCrLf & vbCrLf
strbody = strbody & "Studio(s)" & vbCrLf
if strstudioa <> "" then
strbody = strbody & "StudioA: Yes" & vbCrLf
end if
if strstudiob <> "" then
strbody = strbody & "StudioB: Yes" & vbCrLf
end if
strbody = strbody & vbCrLf & "Session(s)" & vbCrLf
if strrecord = "y" then
strbody = strbody & "Recording Session: Yes" & vbCrLf
end if
if strmix = "y" then
strbody = strbody & "Mix Session: Yes" & vbCrLf
end if
if stroverdub = "y" then
strbody = strbody & "Overdub Session: Yes" & vbCrLf
end if
if strother = "y" then
strbody = strbody & "Other Session: Yes" & vbCrLf
end if
strbody = strbody & vbCrLf & "Hours: " & strhours & vbCrLf
strbody = strbody & vbCrLf & "Comments/Questions:" & vbCrLf & strcomments & vbCrLf
Set objMessage = Server.CreateObject("CDO.Message")
objMessage.From = strfrom
objMessage.To = strTo
objMessage.Subject = strSubject
objMessage.textBody = strBody
objMessage.Send
Set objMessage = Nothing
end if
end if %>
<% if showform = "y" then %>
<%=errormessage%>
<% else %>
Thank you. Your request was submitted.
<% end if %>
|