Brobst Violin Shop - Fine Violins

<% Maker=Request.QueryString("M") Country=Request.QueryString("C1") TimeP=Request.QueryString("D") IType=Request.QueryString("T") Cat=Request.QueryString("C") PriceRange=Request.QueryString("PR") MIX = Request.QueryString("MIX") if not MIX="" then if left(MIX, 1)="C" then Cat=right(MIX,len(MIX)-1) end if if left(MIX, 1)="T" then IType=right(MIX,len(MIX)-1) end if end if if right(MIX, 3)="Bow" then bodypic="../images/DblBluGrd.JPG" else bodypic="../images/DblTaupGrd.JPG" end if I=Request.QueryString("I") Pic=Request.QueryString("G") S = Request.QueryString("S") PrevN = Request.QueryString("P") if IsNull(S) or S="" then S=0 PageN = S criteria="" qString="" title1="" title2="" title3="" if not Country="" then criteria = criteria & " AND Country='" & Country & "'" qstring=qstring & "&C1=" & Country title1=Country & " " end if if not IType="" then criteria = criteria & " AND IType.IType='" & IType & "' " qstring=qstring & "&MIX=T" & IType title1 = title1 & IType if right(IType, 4)="Bass" then title1=title1 & "es" else if right(Itype,1)<>"s" then title1=title1 & "s" end if end if end if if not Cat="" then criteria = criteria & " And IType.Category='" & Cat & "' " qstring=qstring & "&MIX=C" & Cat title1 = title1 & Cat if right(Cat,1)<>"s" then title1=title1 & "s" end if if not PriceRange="" then sql = "SELECT LowerBound, UpperBound from Price where PRID=" & PriceRange rs.Open sql, conn, 3, 3 if rs.fields("LowerBound").value<>0 then criteria = criteria & " AND PriceVal>=" & rs.fields("LowerBound").value title3 = title3 & "$" & formatnumber(rs.fields("LowerBound").value,2) & " - " else title3 = title3 & "up to " end if if rs.fields("UpperBound").value<>0 then criteria = criteria & " AND PriceVal<=" & rs.fields("UpperBound").value title3 = title3 & "$" & formatnumber(rs.fields("UpperBound").value,2) else title3 = title3 & "or more " end if rs.close qstring=qstring & "&PR=" & PriceRange end if if not maker="" then criteria = criteria & " AND master.Maker='"& Maker & "' " qstring = qstring & "&M=" & maker end if if not TimeP="" then criteria = criteria & " AND Year<>'' " sql = "SELECT StartYear, EndYear from TimeP where TID=" & TimeP rs.Open sql, conn, 3, 3 if rs.fields("StartYear").value<>0 then criteria = criteria & " AND master.Year>=" & rs.fields("StartYear").value title2 = title2 & rs.fields("StartYear").value & " - " else title2 = title2 & "before " end if if rs.fields("EndYear").value<>0 then criteria = criteria & " AND master.Year<=" & rs.fields("EndYear").value title2 = title2 & rs.fields("EndYear").value else title2 = title2 & " or later " end if rs.close qstring=qstring & "&D=" & TimeP end if if not Pic="" then criteria = criteria & " AND IIf(isnull([Image1]),'N','Y')='" & Pic & "' " qstring=qstring & "&G=" & Pic end if if not I="" then criteria = criteria & " AND Left(LastName,1)='" & I & "' " qstring=qstring & "&I=" & I end if if Title1="" then title1="The Gallery" title1=title1 & "
" if title3<>"" then title2=title2 & "
" end if qstring=replace(qstring, " ", "+") %> <% sql = "SELECT IperPage from Parameter" rs.Open sql, conn, 3, 3 ItemsPerPage=rs.fields("IperPage").value rs.close %> <% sql = "SELECT count(*) as count" sql = sql & " FROM IType INNER JOIN master ON IType.ITypeID = master.IType " sql = sql & " WHERE master.category_id=1 " & Criteria sql = sql & " ORDER BY ITypeID, master.SortOrder " rs.Open sql, conn, 3, 3 rs.MoveFirst RecCount=rs.fields("Count").value rs.close %> <% sql = "SELECT master_ID, master.SortOrder, master.Description, IType.ITypeID, " sql = sql & " IType.IType, IType.Category, AltTag, " sql = sql & " master.Maker, Decade, HasImage" sql = sql & " FROM IType INNER JOIN master ON IType.ITypeID = master.IType " sql = sql & " WHERE master.category_id=1 " & Criteria sql = sql & " ORDER BY ITypeID, master.SortOrder " rs.Open sql, conn, 3, 3 On Error Resume Next rs.MoveFirst for i=1 to ItemsPerPage * PageN rs.MoveNext next %>

Brobst Violin Shop

Fine Instruments and Bows

Click here for Advanced Search

Please click on Advanced Search to find instruments/bows in your price range
and to specify country of origin and period of maker.

<%=Title1%><%=Title2%><%=Title3%>

<%if PageN<>0 then%><<Previous<%end if%>

Click on the to see a picture
Click on the to read about the item

<%if RecCount>ItemsPerPage*(PageN+1) then%>Next>><%end if%>

<% linst="NONE" On Error Resume Next if rs.eof then response.write("

No Items were found on our web site that match your request.
At this time, we do not list our entire inventory in the gallery. Please call our store to check availablity.
") end if for i=1 to ItemsPerPage if not rs.eof then %> <%if rs.fields("IType").value<>Linst and IType="" then%>

<%=rs.fields("IType").value%>s

<%linst=rs.fields("IType").value else if IType<>"" and i=1 then response.write("

") end if%> <%=rs.fields("AltTag").value%> <%if rs.fields("HasImage").value="Y" then %> .asp?I=<%=rs.fields("master_ID").value%>&V=1', <%if instr(rs.fields("IType").value, "Bow") then response.write("2") else response.write("1") end if%>);">

<%end if%> <%if len(trim(rs.fields("Description").value))<>0 then%> ', 1);">

<%end if%>

<% rs.MoveNext end if next %>

<% rs.close conn.close %>

<%if PageN<>0 then%><<Previous<%end if%>

<%if cnt>20 then%>^Top^<%end if%>

<%if RecCount>(ItemsPerPage*(PageN+1)) then%>Next>><%end if%>

<% set rs=Nothing set conn=Nothing %>

[Welcome to Brobst] [Fine Instruments] [Fine Bows] [Instruments for Advancing Players] [Rental/Purchase Plan] [Sheet Music for Strings] [David Brobst] [Visit Us] [Home]

Web Site Development by
ArcByte, Inc.

This site utilizes Dynamic HTML. Download Internet Explorer 6+ or Netscape 7+ for best viewing results.