<%@ Language=VBScript %> <% 'on error resume next Dim sPage, sBrandId, sMarketId sPage="partlist.asp" %> <% sBrandId=Request.QueryString("BrandId") sMarketId=Request.QueryString("MarketId") Dim EPart Dim TempRs Set EPart = Server.CreateObject("eCommWeb.clsPart") EPart.Accounts = Session("eAccount") If sBrandId<>"" then If Trim(Request.QueryString("Parts")) = "" then Set TempRs = EPart.GetPartList(sBrandId,sMarketId) End if End if sUrl="&BrandId=" & sBrandId & "&MarketId=" & sMarketId %>

Welcome to HarmanAudio.com! For the best deals in audio equipment, browse our site or use the menus below to jump to component you want.

<%If sBrandId<>"" then If EPart.ErrorMessage <> "" Then iPos=Instr(EPart.ErrorMessage,"User Id") If iPos>0 then Response.Write Left(EPart.ErrorMessage,iPos-1) else Response.Write EPart.ErrorMessage End if Response.Write EPart.ErrorMessage else If isObject(TempRs)=True then if not TempRs is nothing then If TempRs.EOF = False Then %> Harman has made the following accessories available for purchasing online. If you are unable to find your model number below, please contact us via e-mail at parts@harman.com. <% End If End If End If If Trim(Request.QueryString("Parts")) = "" and sBrandId="" Then %> <%end if%> International Support Links   TO BEGIN, SELECT THE BRAND OF YOUR PRODUCT: <% Call NavMenuEnd() %> <% If isObject(TempRs) then Set TempRs = Nothing End if If isObject(EPart) then Set EPart = Nothing End if If Err.number<>0 then Response.Write "Error: " & Err.Description & " Error source: " & Err.Source End if %>