HOME    STUDIOS    DESIGN    CREDITS    VILLAGERS    NEWS    SALES    LOCATION    CONTACT   




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

  Contact Information:

Name (required)
Organization
Phone (required)
FAX
E-mail (required)
URL

  Requested Booking Dates:

(required)

  Desired Studio: (required)

checked<% end if%>> Studio A
checked<% end if%>> Studio B

  Session Type: (required)

checked<% end if%>> Record
checked<% end if%>> Mix
checked<% end if%>> Overdub
checked<% end if%>> Other

  Number of Hours (per day):


  Additional Questions or Comments:


            
<% else %>

Thank you. Your request was submitted.

<% end if %>
   
 

 

 

     


© 2003 Spike Web Design / HarariVille, Inc. All Rights Reserved.