Brobst Violin Shop - Instruments for the Advancing Player

<%FUNCTION CleanString(stVAL) if stVAL<>"" or not isnull(stVal) then stVAL=Replace(stVAL,"'",CHR(250)) stVAL=Replace(stVAL,CHR(34),CHR(251)) stVAL=Replace(stVAL,";",CHR(252)) stVAL=Replace(stVAL,",",CHR(253)) end if CleanString=stVAL End Function %> <%FUNCTION DirtyString(stVAL) if stVAL<>"" or not isnull(stVal) then stVAL=Replace(stVAL,CHR(250), "'") stVAL=Replace(stVAL,CHR(251), CHR(34)) stVAL=Replace(stVAL,CHR(252), ";") stVAL=Replace(stVAL,CHR(253),",") end if DirtyString=stVAL End Function %> <%'//------------------------------------------------------END FUNCTIONS-----------------------%> <% master_id=request("mid") tablewidth = 650 sql = "Select master.*, IType.Itype as InstrumentCategory, category.category" sql = sql & " from master inner join IType on master.IType=IType.ITypeID " sql = sql & " inner join category on master.category_id=category.category_id " sql = sql & " where master.category_id>1 and master_id=" & master_id rs.open sql, conn, 3, 3 if rs.eof then rs.close conn.close response.redirect("index.asp") end if Category = rs.fields("Category").value InstrumentCategory = rs.fields("InstrumentCategory").value Maker = rs.fields("Maker").value AltTag = rs.fields("AltTag").value Specification = rs.fields("Specification").value description = DirtyString(rs.fields("description").value) if len(description)>0 then description = Replace(description, CHR(13), "
") Simage1 = rs.fields("Simage1").value Simage2 = rs.fields("Simage2").value Simage3 = rs.fields("Simage3").value Limage1 = rs.fields("Limage1").value Limage2 = rs.fields("Limage2").value Limage3 = rs.fields("Limage3").value HasImage = rs.fields("HasImage").value Price = rs.fields("PriceVal").value if int(Price)=0 then price="" if len(Price)>0 then Price = formatcurrency(Price) else Price = "Phone us for current price" end if %> Brobst Violin Shop - Instruments for the Advancing Player

Brobst Violin Shop

Fine Instruments and Bows

Instruments for the Advancing Player

<%if TRIM(Maker)<>TRIM(Category) then%> <%end if%> <%if rs.fields("HasImage").value="Y" then %> <%end if%>

<%=Category%>

<%=Maker%>

<%=InstrumentCategory%>

.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%>);">

View Picture

<%=alttag%>

<%=Price%>

<%=description%>

BACK

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