Wm.S.Haynes Flute Company

<% if (Request.Form("submit")="Submit") then SET rs=SERVER.CREATEOBJECT("ADODB.RECORDSET") rs.open "select * from customer_information",con,3,3,1 rs.addnew rs("sitename") = "Haynes" rs("fname") = request.Form("fname") rs("lname") = request.Form("lname") rs("address") = request.Form("address") rs("city") = request.Form("city") If request.Form("country") = "USA" then rs("state") = request.Form("state") ElseIf request.Form("country") = "Canada" Then rs("state") = request.Form("state1") Else rs("state") = request.Form("otherstate") End if rs("zip") = request.Form("zip") rs("country") = request.Form("country") rs("email") = request.Form("email") rs("telephone") = request.Form("telephone") rs("sex") = request.Form("sex") If request.Form("age")<>"" then rs("age") = request.Form("age") End if If request.Form("years")<>"" then rs("years") = request.Form("years") End If rs("profession") = request.Form("profession") rs("schoolsattended") = request.Form("schoolsattended") rs("teachersstudied") = request.Form("teachersstudied") mstatus = request.Form("status") If mstatus <> "" Then aid=split(mstatus,",") if ubound(aid) > 0 then for i=0 to ubound(aid) if i < ubound(aid) then mstr="," else mstr="" end if response.write aid(i) & "
" If aid(i)="Educator" then rs("edu_contact") = request.Form("edu_mcontact") rs("edu_conother") = request.Form("edu_mconother") rs("edu_dealer") = request.Form("edu_dealer") rs("edu_city") = request.Form("edu_city") rs("edu_state") = request.Form("edu_state") End If If Trim(aid(i))="Performing Artist" then rs("pa_play") = request.Form("pa_play") rs("pa_ensemblenamegrp") = request.Form("pa_ensemblenamegrp") End if Next Else response.write aid(0) End If End if rs("musicstatus") = request.Form("status") 'rs("musicstatus") = request.Form("status") If request.Form("status")="Educator" then rs("edu_contact") = request.Form("edu_mcontact") rs("edu_conother") = request.Form("edu_mconother") rs("edu_dealer") = request.Form("edu_dealer") rs("edu_city") = request.Form("edu_city") rs("edu_state") = request.Form("edu_state") End If If request.Form("status")="Performing Artist" then rs("pa_play") = request.Form("pa_play") rs("pa_ensemblenamegrp") = request.Form("pa_ensemblenamegrp") End if rs("classical") = request.Form("Classical") rs("jazz") = request.Form("Jazz") rs("pop") = request.Form("Pop") rs("bigband") = request.Form("BigBand") rs("blues") = request.Form("Blues") rs("rock") = request.Form("Rock") rs("bebop") = request.Form("Be-Bop") rs("folk") = request.Form("Folk") rs("musiccountry") = request.Form("musiccountry") rs("othermus") = request.Form("Othermus") rs("othermusic") = request.Form("othermusic") rs("magazines") = request.Form("magazines") rs("purchasinginstrument") = request.Form("purchasinginstrument") rs("purchaseinstrumentin") = request.Form("purchaseinstrumentin") rs("telephone") = request.Form("telephone") 'rs("instrumentbrand") = request.Form("instrumentbrand") 'rs("serialno") = request.Form("serial") 'rs("fieldofinterest") = request.Form("fieldofinterest") rs("fieldofinterest") = request.Form("inst1") rs("instrumentbrand") = request.Form("make1") rs("serialno") = request.Form("serial1") rs("model0") = request.form("model1") rs("inst2") = request.Form("inst2") rs("make2") = request.Form("make2") rs("serial2") = request.Form("serial2") rs("model2") = request.form("model2") rs("inst3") = request.Form("inst3") rs("make3") = request.Form("make3") rs("serial3") = request.Form("serial3") rs("model3") = request.form("model3") rs("inst4") = request.Form("inst4") rs("make4") = request.Form("make4") rs("serial4") = request.Form("serial4") rs("model4") = request.form("model4") rs("inst5") = request.Form("inst5") rs("make5") = request.Form("make5") rs("serial5") = request.Form("serial5") rs("model5") = request.form("model5") rs("inst6") = request.Form("inst6") rs("make6") = request.Form("make6") rs("serial6") = request.Form("serial6") rs("model6") = request.form("model6") If request.Form("teach1") ="" Then thstr = "N" Else thstr = "Y" End If If request.Form("teach2") ="" Then thstr = thstr + ", N" Else thstr =thstr + ", Y" End If If request.Form("teach3") ="" Then thstr = thstr + ", N" Else thstr =thstr + ", Y" End If If request.Form("teach4") ="" Then thstr = thstr + ", N" Else thstr =thstr + ", Y" End If If request.Form("teach5") ="" Then thstr = thstr + ", N" Else thstr =thstr + ", Y" End If If request.Form("teach6") ="" Then thstr = thstr + ", N" Else thstr =thstr + ", Y" End If If request.Form("spec1") ="" Then spstr = "N" Else spstr = "Y" End If If request.Form("spec2") ="" Then spstr = spstr + ", N" Else spstr =spstr + ", Y" End If If request.Form("spec3") ="" Then spstr = spstr + ", N" Else spstr =spstr + ", Y" End If If request.Form("spec4") ="" Then spstr = spstr + ", N" Else spstr =spstr + ", Y" End If 'rs("teach") = request.Form("teach") 'rs("specialize") = request.Form("specialize") rs("teach") = thstr rs("specialize") = spstr rs("trial") = request.Form("trial") rs("dt") = Now 'rs("stname") = "Strings" rs.update rs.close response.redirect "thankyou.asp" end if response.flush %> Wm.S.Haynes Flute Company

Creators of the World's Finest Flutes
Since 1888.

Create Your Portfolio

Wm. S. Haynes Customer Portfolio

At Wm. S. Haynes we want to know about your preferences in musical instrument choice. As we develop new instruments and strive to serve our end users better, we like to utilize information from you, our valued customer. The information that you give us in this portfolio will help us send you information about new instruments, upcoming events, and also help your local dealer contact you about new /additional instrument purchase. As our company grows we want you to be able to update your portfolio and we will provide extra features to enable you to connect with the company.

Thank you for taking the time to complete this portfolio and welcome to the Wm. S. Haynes family.

First Name*

Last Name*

Address*

Email*

City*

State*

Zip/Postal Code*

Country*

Telephone*

Sex

Male Female

Age

Profession

Years Playing

School(s) attended

Teachers Studied with

Musical Status

Educator Performing Artist Student Part Time For Pleasure

* Please list only one instrument per line.
Instrument Played	Make	Model	Serial Number

Music Preference

Classical	Jazz	Pop	Big Band	Blues
Rock	Be-Bop	Folk	Country

Other

What magazines do you read?

Interested in purchasing an instrument

Yes No

If yes, when?

Interested in doing a trial?

Yes No

I teach:

Privately Elementary School Middle School High School College/University N/A

I specialize in:

Suzuki Classroom teaching Private Teaching N/A

Eastman Privacy Policy: We will never sell or share your personal information with anyone, ever. We will only store it for use in the unlikely event that you need to make a warranty related claim at some time in the future. The demographic and sales data we collect helps us with our future marketing efforts. With your permission, we might send information about new products, sales initiatives, or topics of general interest to musicians. However, you will always have the option to discontinue these occasional notices at any time. Thanks again!

George Barrere