Santa Barbara Organizing

Personal, Business and Home Organizing Services in Santa Barbara

services about testimonials prices contact home

<%=msg%> Please fill in the form below to contact us:

Name: <% If InStr(mbList, "formName") > 0 Then Response.Write ">>" end if %>
Phone Number: <% If InStr(mbList, "formPhone") > 0 Then Response.Write ">>" end if %>
E-mail Address: <% If InStr(mbList, "formEMail_Address") > 0 Then Response.Write ">>" end if %>
Area of Interest: <% If InStr(mbList, "formComments") > 0 Then Response.Write ">>" end if %>
<% Response.Buffer = True Server.Scripttimeout = 30 err.clear on error resume next 'Page Routine Variables lf = Chr(13) & Chr(10) 'Data Defaults & Form Field Variables formName = trim(Request.Form("formName")) formPhone = trim(Request.Form("formPhone")) formEMail_Address = trim(Request.Form("formEMail_Address")) formComments = trim(Request.Form("formComments")) 'Form Actions if Request.QueryString("Action") = "Validate" then msg = "" mbFields = "" mbList = "" If trim(formName) = "" then mbFields = mbFields & " Name," mbList = mbList & "formName," end if If trim(formPhone) = "" then mbFields = mbFields & " Phone," mbList = mbList & "formPhone," end if If trim(formEMail_Address) = "" then mbFields = mbFields & " EMail Address," mbList = mbList & "formEMail_Address," end if If trim(formComments) = "" then mbFields = mbFields & " Comments," mbList = mbList & "formComments," end if If trim(mbFields) = "" then 'Form validations has cleared. 'prepare the email bodyMessage = "Dear Blair, " & lf & lf bodyMessage = bodyMessage & "The information below was just entered at SantaBarbaraOrganizing.com: " & lf & lf bodyMessage = bodyMessage & "Name: " & formName & lf bodyMessage = bodyMessage & "Phone: " & formPhone & lf bodyMessage = bodyMessage & "EMail Address: " & formEMail_Address & lf bodyMessage = bodyMessage & "Comments: " & formComments & lf bodyMessage = bodyMessage & lf & "Sincerely," & lf bodyMessage = bodyMessage & "Online Systems @ SantaBarbaraOrganizing.com" & lf & lf Set Mailer = Server.CreateObject("CDONTS.NewMail") Mailer.From = "webserver@SantaBarbaraOrganizing.com" Mailer.To = "blair@santabarbaraorganizing.com" Mailer.Subject = "Inquiry from SantaBarbaraOrganizing.com" Mailer.Body = bodyMessage Mailer.Send if err.number = 0 then page = "http://www.SantaBarbaraOrganizing.com/thanks.htm" Response.Redirect(page) else msg = "There has been a serious error. Please contact www.artemisstudios.com." end if else 'the user did not pass validations. mbMyTemp = trim(msg) x = len(mbFields) temp = Left(mbFields, (x-1)) mbFields = temp & "." msg = "Please review the following fields: "& mbFields end if end if %>