<%@ Language=VBScript %> <% option explicit %> <% dim sArea, sError sArea = Request.QueryString("area") sError = "" dim sName, sEmail, sPhone, sInterests, sInstruments, bHomeLessons, bMailingList, sComments dim clName, clEmail const ACTIONREGISTER = "Register Now" bMailingList = "Yes" clName = "form-input" clEmail = "form-input" if Request.Form("action") = ACTIONREGISTER then 'get values sName = Trim(Request.Form("Name")) sEmail = Trim(Request.Form("Email")) sPhone = Trim(Request.Form("Phone")) sArea = Trim(Request.Form("CityState")) sInterests = Trim(Request.Form("TopicsOfInterest")) sInstruments = Trim(Request.Form("Instruments")) bHomeLessons = Request.Form("HomeLessons") bMailingList = Request.Form("MailingList") sComments = Trim(Request.Form("Comments")) 'validate if sName = "" then sError = sError & "
Please enter Your Name" clName = "form-missed" end if if sEmail = "" then sError = sError & "
Please enter Your E-Mail Address" clEmail = "form-missed" else if not EmailValidation(sEmail) then sError = sError & "
Please check Your E-Mail Address for correct spelling" clEmail = "form-missed" end if end if if sError = "" then 'register dim objMsg, strFrom, strTo, strSubject, strBody dim lngImportance, lngMsgFormat, lngMsgEncode strFrom = "postmaster@4GuitarLessons.com" strSubject = "Submition From The L.A. West Coast Music Registration Form:" lngImportance = 1 lngMsgFormat = 1 lngMsgEncode = 0 strBody = "This message has been generated by on-line Registration Form:" strBody = strBody & chr(13) & chr(13) strBody = strBody & "Name: " & sName & chr(13) strBody = strBody & "E-Mail: " & sEmail & chr(13) strBody = strBody & "E-Mail: " & sPhone & chr(13) strBody = strBody & "City/State: " & sArea & chr(13) strBody = strBody & "Topics Of Interest: " & sInterests & chr(13) strBody = strBody & "Instruments Of Interest: " & sInstruments & chr(13) strBody = strBody & "Interested In Home Lessons: " & bHomeLessons & chr(13) strBody = strBody & "Wants to be on Mailing List: " & bMailingList & chr(13) strBody = strBody & "Comments: " & sComments & chr(13) & chr(13) strBody = strBody & "Date/Time: " & Now() strTo = "Go4Lessons@aol.com" Set objMsg = Server.CreateObject("CDONTS.NewMail") objMsg.From = strFrom objMsg.To = strTo objMsg.Subject = strSubject objMsg.Importance = lngImportance objMsg.BodyFormat = lngMsgFormat objMsg.MailFormat = lngMsgEncode objMsg.Body = strBody objMsg.Send set objMsg = Nothing 'success Response.Redirect("/ThankYou.htm") end if 'end sError end if 'end ACTIONREGISTER ' ~~~~~~~~~~~~~~ email validation ~~~~~~~~~~~~~~~~~~~~~ function EmailValidation(email) EmailValidation = false dim iStart, iCount, sWord, iWholeWord dim intAt, intDot intAt = 0 intDot = 0 iWholeWord = Len(email) iStart = 1 for iCount = iStart to iWholeWord if Mid(email,iCount,1) = "@" then intAt = iCount iStart = intAt end if next for iCount = iStart to iWholeWord if Mid(email,iCount,1) = "." then intDot = iCount end if next if intAt <> 0 and intDot <> 0 and (intDot+1) < iWholeWord then EmailValidation = true end if end function %> Registration Page

4Guitarlessons.com

Guitar Lessons & Instructional Tools

Discounts & Links

About Us

Areas Covered

guitar lessons | music lessons | guitar instruction | los angeles guitar lessons | los angeles guitar instruction | hollywood guitar lessons

<% if sError <> "" then %> <% end if %>

Could not accept your Registration because you missed some required fields:<%=sError%>

los angeles guitar lessons guitar instruction music lessons guitar lessons los angeles guitar instruction hollywood guitar lessons

JAZZ, BLUES PLUS ELECTRIC GUITAR LESSONS AND MORE!

Please note:

Registration is risk free. You will be notified about upcoming events such as free lectures, clinics and classes. As noted below you will receive important information on how to improve as a musician.

LA West Coast Music Welcomes You To
The Registration Page!

THE LA WEST COAST MUSIC REGISTRATION FORM:

Your Name:

E-Mail Address:

Phone Number: (optionall)

City/State:

Topics Of Interest:

Instruments:::Of Interest:

Are You Interested in Home Lessons?

> Yes > No
Los Angeles area only

Your Comments:

Ethics and Respect

We are strong believers in ethical internet practices. One quick e-mail is all that is required to be removed from our list. Information will be kept confidential for private use only.

Lessons In Your Home

Studying at home is a convenient option that some students prefer. Our database includes a good number of music instructors who teach in and around the Los Angeles Area. If you are interested in pursuing this option please indicate this in the comments section of the registration form below. Please include your zip code.

4GuitarLessons.com offers top quality music lessons at reasonable rates. For more information about our music lessons, go to the links just above. If you find it helpful you may refer to one of the following categories in the subject heading of your e-mail: Los Angeles guitar lessons for individuals or groups. If this does not apply, try Hollywood guitar lessons for individuals and groups.