<%@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 rs2__MMColParam rs2__MMColParam = "%" If (Request.QueryString("productno") <> "") Then rs2__MMColParam = Request.QueryString("productno") End If %> <% Dim rs2 Dim rs2_numRows Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.ActiveConnection = MM_anpec_STRING rs2.Source = "SELECT * FROM Shunt WHERE Part_NO LIKE '%" + Replace(rs2__MMColParam, "'", "''") + "%' ORDER BY Porder" rs2.CursorType = 0 rs2.CursorLocation = 2 rs2.LockType = 1 rs2.Open() rs2_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rs2_numRows = rs2_numRows + Repeat2__numRows %> Anpec Electronics Corporation

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

Power Management Products > Shunt Regulators

<% While ((Repeat2__numRows <> 0) AND (NOT rs2.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rs2.MoveNext() Wend %>
Part NO. Main App. Fields Package & Pins Input Voltage
(in Volts)
Output Current
(in mA)
Accuracy Voltage
(in %)
Reference Voltage
(in Volts)
Min Load Curren
(in mA)
Status
<% If rs2.Fields.Item("link").Value<>"" Then %> " target="product"><%=(rs2.Fields.Item("Part_NO").Value)%> <% Else %> <%=(rs2.Fields.Item("Part_NO").Value)%> <% End If ' end rs2.EOF And rs2.BOF %> <%=(rs2.Fields.Item("Main").Value)%> <%=(rs2.Fields.Item("Package").Value)%> <%=(rs2.Fields.Item("Input").Value)%> <%=(rs2.Fields.Item("Output").Value)%> <%=(rs2.Fields.Item("Accuracy").Value)%> <%=(rs2.Fields.Item("Reference").Value)%> <%=(rs2.Fields.Item("Min").Value)%> <%=(rs2.Fields.Item("Status").Value)%>
<% End If ' end Not rs2.EOF Or NOT rs2.BOF %>

   
   
 
 
<% rs2.Close() Set rs2 = Nothing %>