Brobst Violin Shop - Fine Violins

<% S = Request.QueryString("S") PrevN = Request.QueryString("P") category = request("cid") itype = request("itype") if category="1" then response.redirect("http://www.brobstviolins.com/gallery/gallery.asp") %> Brobst Violin Shop - Fine Violins <% if IsNull(S) or S="" then S=0 PageN = S bodypic="../images/LgtRose.JPG" if not category="" then sql = "Select * from category where category_id=" & category rs.open sql, conn, 3, 3 title1=rs.fields("category").value rs.close criteria = " master.category_id=" & category end if if not itype="" then sql = "select * from IType where ITypeID=" & itype rs.open sql, conn, 3, 3 title1=rs.fields("Itype").value rs.close if right(title1, 4)="Bass" then title1=title1 & "es" else if right(title1,1)<>"s" then title1=title1 & "s" end if end if criteria = " master.IType=" & itype end if criteria = " master.category_id>1 and " & criteria 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 " & Criteria 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 " & Criteria sql = sql & " ORDER BY ITypeID, master.SortOrder desc" rs.Open sql, conn, 3, 3 On Error Resume Next rs.MoveFirst for i=1 to ItemsPerPage * PageN rs.MoveNext next %>

Brobst Violin Shop

Instruments for the Advancing Player

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

<%=Title1%>

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

<% linst="NONE" On Error Resume Next if rs.eof then response.write(" <%linst=rs.fields("IType").value else 'if IType<>"" and i=1 then response.write("") end if%> <%else%> <% end if rs.MoveNext end if next %>

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 RecCount>6 then %> <%if rs.fields("IType").value<>Linst and IType="" then%>

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

"><%=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.fields("IType").value%> - <%=rs.fields("AltTag").value%>

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

[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.