<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% Dim leftMenu Dim leftMenu_numRows Set leftMenu = Server.CreateObject("ADODB.Recordset") leftMenu.ActiveConnection = MM_anpec_STRING leftMenu.Source = "SELECT Title, Level1, Level2, Link, IsLink, IsShow FROM Products WHERE (IsShow = 1) ORDER BY Level1, Level2" leftMenu.CursorType = 0 leftMenu.CursorLocation = 2 leftMenu.LockType = 1 leftMenu.Open() leftMenu_numRows = 0 %> <% Dim rs18__MMColParam rs18__MMColParam = "%" If (Request.QueryString("productno") <> "") Then rs18__MMColParam = Request.QueryString("productno") End If %> <% Dim rs18 Dim rs18_numRows Set rs18 = Server.CreateObject("ADODB.Recordset") rs18.ActiveConnection = MM_anpec_STRING rs18.Source = "SELECT * FROM VCD WHERE Part_NO LIKE '%" + Replace(rs18__MMColParam, "'", "''") + "%' ORDER BY Porder" rs18.CursorType = 0 rs18.CursorLocation = 2 rs18.LockType = 1 rs18.Open() rs18_numRows = 0 %> <% Dim rs19__MMColParam rs19__MMColParam = "%" If (Request.QueryString("productno") <> "") Then rs19__MMColParam = Request.QueryString("productno") End If %> <% Dim rs19 Dim rs19_numRows Set rs19 = Server.CreateObject("ADODB.Recordset") rs19.ActiveConnection = MM_anpec_STRING rs19.Source = "SELECT * FROM Stereo WHERE Part_NO LIKE '%" + Replace(rs19__MMColParam, "'", "''") + "%' ORDER BY Porder" rs19.CursorType = 0 rs19.CursorLocation = 2 rs19.LockType = 1 rs19.Open() rs19_numRows = 0 %> <% Dim rs20__MMColParam rs20__MMColParam = "%" If (Request.QueryString("productno") <> "") Then rs20__MMColParam = Request.QueryString("productno") End If %> <% Dim rs20 Dim rs20_numRows Set rs20 = Server.CreateObject("ADODB.Recordset") rs20.ActiveConnection = MM_anpec_STRING rs20.Source = "SELECT * FROM Active WHERE Part_NO LIKE '%" + Replace(rs20__MMColParam, "'", "''") + "%' ORDER BY Porder" rs20.CursorType = 0 rs20.CursorLocation = 2 rs20.LockType = 1 rs20.Open() rs20_numRows = 0 %> <% Dim rs21__MMColParam rs21__MMColParam = "%" If (Request.QueryString("productno") <> "") Then rs21__MMColParam = Request.QueryString("productno") End If %> <% Dim rs21 Dim rs21_numRows Set rs21 = Server.CreateObject("ADODB.Recordset") rs21.ActiveConnection = MM_anpec_STRING rs21.Source = "SELECT * FROM Notebook WHERE Part_NO LIKE '%" + Replace(rs21__MMColParam, "'", "''") + "%' ORDER BY Porder" rs21.CursorType = 0 rs21.CursorLocation = 2 rs21.LockType = 1 rs21.Open() rs21_numRows = 0 %> <% Dim Repeat18__numRows Dim Repeat18__index Repeat18__numRows = -1 Repeat18__index = 0 rs18_numRows = rs18_numRows + Repeat18__numRows %> <% Dim Repeat19__numRows Dim Repeat19__index Repeat19__numRows = -1 Repeat19__index = 0 rs19_numRows = rs19_numRows + Repeat19__numRows %> <% Dim Repeat20__numRows Dim Repeat20__index Repeat20__numRows = -1 Repeat20__index = 0 rs20_numRows = rs20_numRows + Repeat20__numRows %> <% Dim Repeat21__numRows Dim Repeat21__index Repeat21__numRows = -1 Repeat21__index = 0 rs21_numRows = rs21_numRows + Repeat21__numRows %> Anpec Electronics Corporation

 

<% If Not rs18.EOF Or Not rs18.BOF Then %>

Amplifier And Driver > Audio Amplifier > VCD Player Audio Driver

<% While ((Repeat18__numRows <> 0) AND (NOT rs18.EOF)) %> <% Repeat18__index=Repeat18__index+1 Repeat18__numRows=Repeat18__numRows-1 rs18.MoveNext() Wend %>
Part NO. Main App. Fields Package & Pins Supply Voltage (in Volts) NO. of Channel Voltage Gain
(in dB)
THD+N
(in %)
Mute /
Shutdown func
Status
<% If rs18.Fields.Item("link").Value<>"" Then %> " target="product"><%=(rs18.Fields.Item("Part_NO").Value)%> <% Else %> <%=(rs18.Fields.Item("Part_NO").Value)%> <% End If ' end rs18.EOF And rs18.BOF %> <%=(rs18.Fields.Item("Main").Value)%> <%=(rs18.Fields.Item("Package").Value)%> <%=(rs18.Fields.Item("Supply").Value)%> <%=(rs18.Fields.Item("Channel").Value)%> <%=(rs18.Fields.Item("Voltage").Value)%> <%=(rs18.Fields.Item("THD").Value)%> <%=(rs18.Fields.Item("Mute").Value)%> <%=(rs18.Fields.Item("Status").Value)%>
<% End If ' end Not rs18.EOF Or NOT rs18.BOF %> <% If Not rs19.EOF Or Not rs19.BOF Then %>

Amplifier And Driver > Audio Amplifier > Stereo Headphone Drivers

<% While ((Repeat19__numRows <> 0) AND (NOT rs19.EOF)) %> <% Repeat19__index=Repeat19__index+1 Repeat19__numRows=Repeat19__numRows-1 rs19.MoveNext() Wend %>
Part NO. Main App. Fields Package & Pins Supply Voltage
(in Volts)
NO. of Channel Output Current
(in mA)
Output Power
(in Watts)
THD+N (in %) Mute / Shutdown func. Status
<% If rs19.Fields.Item("link").Value<>"" Then %> " target="product"><%=(rs19.Fields.Item("Part_NO").Value)%> <% Else %> <%=(rs19.Fields.Item("Part_NO").Value)%> <% End If ' end rs19.EOF And rs19.BOF %> <%=(rs19.Fields.Item("Main").Value)%> <%=(rs19.Fields.Item("Package").Value)%> <%=(rs19.Fields.Item("Supply").Value)%> <%=(rs19.Fields.Item("Channel").Value)%> <%=(rs19.Fields.Item("Output").Value)%> <%=(rs19.Fields.Item("Power").Value)%> <%=(rs19.Fields.Item("THD").Value)%> <%=(rs19.Fields.Item("Mute").Value)%> <%=(rs19.Fields.Item("Status").Value)%>
<% End If ' end Not rs19.EOF Or NOT rs19.BOF %> <% If Not rs20.EOF Or Not rs20.BOF Then %>

Amplifier And Driver > Audio Amplifier > Active Speaker Application

<% While ((Repeat20__numRows <> 0) AND (NOT rs20.EOF)) %> <% Repeat20__index=Repeat20__index+1 Repeat20__numRows=Repeat20__numRows-1 rs20.MoveNext() Wend %>
Part NO. Main App. Fields Package & Pins Supply Voltage
(in Volts)
NO. of Channel Closed Loop Voltage Gain
(in dB)
Output Power
(in Watts)
THD+N
(in %)
Mute / Shutdown func. Status
<% If rs20.Fields.Item("link").Value<>"" Then %> " target="product"><%=(rs20.Fields.Item("Part_NO").Value)%> <% Else %> <%=(rs20.Fields.Item("Part_NO").Value)%> <% End If ' end rs20.EOF And rs20.BOF %> <%=(rs20.Fields.Item("Main").Value)%> <%=(rs20.Fields.Item("Package").Value)%> <%=(rs20.Fields.Item("Supply").Value)%> <%=(rs20.Fields.Item("Channel").Value)%> <%=(rs20.Fields.Item("Closed").Value)%> <%=(rs20.Fields.Item("Output").Value)%> <%=(rs20.Fields.Item("THD").Value)%> <%=(rs20.Fields.Item("Mute").Value)%> <%=(rs20.Fields.Item("Status").Value)%>
<% End If ' end Not rs20.EOF Or NOT rs20.BOF %> <% If Not rs21.EOF Or Not rs21.BOF Then %>

Amplifier And Driver > Audio Amplifier > Notebook PC / LCD Monitor Application

<% While ((Repeat21__numRows <> 0) AND (NOT rs21.EOF)) %> <% Repeat21__index=Repeat21__index+1 Repeat21__numRows=Repeat21__numRows-1 rs21.MoveNext() Wend %>
Part NO. >Main App. Fields Package & Pins Supply Voltage
(in Volts)
NO. of Channel Output Power
(in Watts)
Volume Control THD+N (in %) Mute / Shutdown func. Status
<% If rs21.Fields.Item("link").Value<>"" Then %> " target="product"><%=(rs21.Fields.Item("Part_NO").Value)%> <% Else %> <%=(rs21.Fields.Item("Part_NO").Value)%> <% End If ' end rs21.EOF And rs21.BOF %> <%=(rs21.Fields.Item("Main").Value)%> <%=(rs21.Fields.Item("Package").Value)%> <%=(rs21.Fields.Item("Supply").Value)%> <%=(rs21.Fields.Item("Channel").Value)%> <%=(rs21.Fields.Item("Output").Value)%> <%=(rs21.Fields.Item("Volume").Value)%> <%=(rs21.Fields.Item("THD").Value)%> <%=(rs21.Fields.Item("Mute").Value)%> <%=(rs21.Fields.Item("Status").Value)%>
<% End If ' end Not rs21.EOF Or NOT rs21.BOF %>

   
   
 
 
<% rs18.Close() Set rs18 = Nothing %> <% rs19.Close() Set rs19 = Nothing %> <% rs20.Close() Set rs20 = Nothing %> <% rs21.Close() Set rs21 = Nothing %>