%@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 rs12__MMColParam
rs12__MMColParam = "%"
If (Request.QueryString("productno") <> "") Then
rs12__MMColParam = Request.QueryString("productno")
End If
%>
<%
Dim rs12
Dim rs12_numRows
Set rs12 = Server.CreateObject("ADODB.Recordset")
rs12.ActiveConnection = MM_anpec_STRING
rs12.Source = "SELECT * FROM Power WHERE Part_NO LIKE '%" + Replace(rs12__MMColParam, "'", "''") + "%' AND Type_No='TO-252/263' ORDER BY Porder"
rs12.CursorType = 0
rs12.CursorLocation = 2
rs12.LockType = 1
rs12.Open()
rs12_numRows = 0
%>
<%
Dim rs28__MMColParam
rs28__MMColParam = "%"
If (Request.QueryString("productno") <> "") Then
rs28__MMColParam = Request.QueryString("productno")
End If
%>
<%
Dim rs28
Dim rs28_numRows
Set rs28 = Server.CreateObject("ADODB.Recordset")
rs28.ActiveConnection = MM_anpec_STRING
rs28.Source = "SELECT * FROM Power WHERE Part_NO LIKE '%" + Replace(rs28__MMColParam, "'", "''") + "%' AND Type_No='TO-220' ORDER BY Porder"
rs28.CursorType = 0
rs28.CursorLocation = 2
rs28.LockType = 1
rs28.Open()
rs28_numRows = 0
%>
<%
Dim rs13__MMColParam
rs13__MMColParam = "%"
If (Request.QueryString("productno") <> "") Then
rs13__MMColParam = Request.QueryString("productno")
End If
%>
<%
Dim rs13
Dim rs13_numRows
Set rs13 = Server.CreateObject("ADODB.Recordset")
rs13.ActiveConnection = MM_anpec_STRING
rs13.Source = "SELECT * FROM Power WHERE Part_NO LIKE '%" + Replace(rs13__MMColParam, "'", "''") + "%' AND Type_No='SOT-223' ORDER BY Porder"
rs13.CursorType = 0
rs13.CursorLocation = 2
rs13.LockType = 1
rs13.Open()
rs13_numRows = 0
%>
<%
Dim rs14__MMColParam
rs14__MMColParam = "%"
If (Request.QueryString("productno") <> "") Then
rs14__MMColParam = Request.QueryString("productno")
End If
%>
<%
Dim rs14
Dim rs14_numRows
Set rs14 = Server.CreateObject("ADODB.Recordset")
rs14.ActiveConnection = MM_anpec_STRING
rs14.Source = "SELECT * FROM Power WHERE Part_NO LIKE '%" + Replace(rs14__MMColParam, "'", "''") + "%' AND Type_No='SOT-89' ORDER BY Porder"
rs14.CursorType = 0
rs14.CursorLocation = 2
rs14.LockType = 1
rs14.Open()
rs14_numRows = 0
%>
<%
Dim rs15__MMColParam
rs15__MMColParam = "%"
If (Request.QueryString("productno") <> "") Then
rs15__MMColParam = Request.QueryString("productno")
End If
%>
<%
Dim rs15
Dim rs15_numRows
Set rs15 = Server.CreateObject("ADODB.Recordset")
rs15.ActiveConnection = MM_anpec_STRING
rs15.Source = "SELECT * FROM Power WHERE Part_NO LIKE '%" + Replace(rs15__MMColParam, "'", "''") + "%' AND Type_No='SOP-8' ORDER BY Porder"
rs15.CursorType = 0
rs15.CursorLocation = 2
rs15.LockType = 1
rs15.Open()
rs15_numRows = 0
%>
<%
Dim rs16__MMColParam
rs16__MMColParam = "%"
If (Request.QueryString("productno") <> "") Then
rs16__MMColParam = Request.QueryString("productno")
End If
%>
<%
Dim rs16
Dim rs16_numRows
Set rs16 = Server.CreateObject("ADODB.Recordset")
rs16.ActiveConnection = MM_anpec_STRING
rs16.Source = "SELECT * FROM Power WHERE Part_NO LIKE '%" + Replace(rs16__MMColParam, "'", "''") + "%' AND Type_No='TSSOP-8' ORDER BY Porder"
rs16.CursorType = 0
rs16.CursorLocation = 2
rs16.LockType = 1
rs16.Open()
rs16_numRows = 0
%>
<%
Dim rs17__MMColParam
rs17__MMColParam = "%"
If (Request.QueryString("productno") <> "") Then
rs17__MMColParam = Request.QueryString("productno")
End If
%>
<%
Dim rs17
Dim rs17_numRows
Set rs17 = Server.CreateObject("ADODB.Recordset")
rs17.ActiveConnection = MM_anpec_STRING
rs17.Source = "SELECT * FROM Power WHERE Part_NO LIKE '%" + Replace(rs17__MMColParam, "'", "''") + "%' AND Type_No='SOT-23' ORDER BY Porder"
rs17.CursorType = 0
rs17.CursorLocation = 2
rs17.LockType = 1
rs17.Open()
rs17_numRows = 0
%>
<%
Dim rs18
Dim rs18_numRows
Set rs18 = Server.CreateObject("ADODB.Recordset")
rs18.ActiveConnection = MM_anpec_STRING
rs18.Source = "SELECT * FROM Power WHERE Part_NO LIKE '%" + Replace(rs18__MMColParam, "'", "''") + "%' AND Type_No='SOT-25' ORDER BY Porder"
rs18.CursorType = 0
rs18.CursorLocation = 2
rs18.LockType = 1
rs18.Open()
rs18_numRows = 0
%>
<%
Dim rs19
Dim rs19_numRows
Set rs19 = Server.CreateObject("ADODB.Recordset")
rs19.ActiveConnection = MM_anpec_STRING
rs19.Source = "SELECT * FROM Power WHERE Part_NO LIKE '%" + Replace(rs19__MMColParam, "'", "''") + "%' AND Type_No='SC-70' ORDER BY Porder"
rs19.CursorType = 0
rs19.CursorLocation = 2
rs19.LockType = 1
rs19.Open()
rs19_numRows = 0
%>
<%
Dim rs20
Dim rs20_numRows
Set rs20 = Server.CreateObject("ADODB.Recordset")
rs20.ActiveConnection = MM_anpec_STRING
rs20.Source = "SELECT * FROM Power WHERE Part_NO LIKE '%" + Replace(rs20__MMColParam, "'", "''") + "%' AND Type_No='PDIP-8' 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 Power WHERE Part_NO LIKE '%" + Replace(rs12__MMColParam, "'", "''") + "%' AND Type_No='TO-251' ORDER BY Porder"
rs21.CursorType = 0
rs21.CursorLocation = 2
rs21.LockType = 1
rs21.Open()
rs21_numRows = 0
%>
<%
Dim rs22__MMColParam
rs22__MMColParam = "%"
If (Request.QueryString("productno") <> "") Then
rs22__MMColParam = Request.QueryString("productno")
End If
%>
<%
Dim rs22
Dim rs22_numRows
Set rs22 = Server.CreateObject("ADODB.Recordset")
rs22.ActiveConnection = MM_anpec_STRING
rs22.Source = "SELECT * FROM Power WHERE Part_NO LIKE '%" + Replace(rs22__MMColParam, "'", "''") + "%' AND Type_No='JSC70-8' ORDER BY Porder"
rs22.CursorType = 0
rs22.CursorLocation = 2
rs22.LockType = 1
rs22.Open()
rs22_numRows = 0
%>
<%
Dim rs23__MMColParam
rs23__MMColParam = "%"
If (Request.QueryString("productno") <> "") Then
rs23__MMColParam = Request.QueryString("productno")
End If
%>
<%
Dim rs23
Dim rs23_numRows
Set rs23 = Server.CreateObject("ADODB.Recordset")
rs23.ActiveConnection = MM_anpec_STRING
rs23.Source = "SELECT * FROM Power WHERE Part_NO LIKE '%" + Replace(rs23__MMColParam, "'", "''") + "%' AND Type_No='JSOT-6' ORDER BY Porder"
rs23.CursorType = 0
rs23.CursorLocation = 2
rs23.LockType = 1
rs23.Open()
rs23_numRows = 0
%>
<%
Dim rs24__MMColParam
rs24__MMColParam = "%"
If (Request.QueryString("productno") <> "") Then
rs24__MMColParam = Request.QueryString("productno")
End If
%>
<%
Dim rs24
Dim rs24_numRows
Set rs24 = Server.CreateObject("ADODB.Recordset")
rs24.ActiveConnection = MM_anpec_STRING
rs24.Source = "SELECT * FROM Power WHERE Part_NO LIKE '%" + Replace(rs24__MMColParam, "'", "''") + "%' AND Type_No='KPAK' ORDER BY Porder"
rs24.CursorType = 0
rs24.CursorLocation = 2
rs24.LockType = 1
rs24.Open()
rs24_numRows = 0
%>
<%
Dim rs25__MMColParam
rs25__MMColParam = "%"
If (Request.QueryString("productno") <> "") Then
rs25__MMColParam = Request.QueryString("productno")
End If
%>
<%
Dim rs25
Dim rs25_numRows
Set rs25 = Server.CreateObject("ADODB.Recordset")
rs25.ActiveConnection = MM_anpec_STRING
rs25.Source = "SELECT * FROM Power WHERE Part_NO LIKE '%" + Replace(rs24__MMColParam, "'", "''") + "%' AND Type_No='PDIP-8' ORDER BY Porder"
rs25.CursorType = 0
rs25.CursorLocation = 2
rs25.LockType = 1
rs25.Open()
rs25_numRows = 0
%>
<%
Dim rs26__MMColParam
rs26__MMColParam = "%"
If (Request.QueryString("productno") <> "") Then
rs26__MMColParam = Request.QueryString("productno")
End If
%>
<%
Dim rs26
Dim rs26_numRows
Set rs26 = Server.CreateObject("ADODB.Recordset")
rs26.ActiveConnection = MM_anpec_STRING
rs26.Source = "SELECT * FROM Power WHERE Part_NO LIKE '%" + Replace(rs26__MMColParam, "'", "''") + "%' AND Type_No='JSOT-8' ORDER BY Porder"
rs26.CursorType = 0
rs26.CursorLocation = 2
rs26.LockType = 1
rs26.Open()
rs26_numRows = 0
%>
<%
Dim rs27__MMColParam
rs27__MMColParam = "%"
If (Request.QueryString("productno") <> "") Then
rs27__MMColParam = Request.QueryString("productno")
End If
%>
<%
Dim rs27
Dim rs27_numRows
Set rs27 = Server.CreateObject("ADODB.Recordset")
rs27.ActiveConnection = MM_anpec_STRING
rs27.Source = "SELECT * FROM Power WHERE Part_NO LIKE '%" + Replace(rs27__MMColParam, "'", "''") + "%' AND Type_No='SOT-23-6' ORDER BY Porder"
rs27.CursorType = 0
rs27.CursorLocation = 2
rs27.LockType = 1
rs27.Open()
rs27_numRows = 0
%>
<%
Dim rs29__MMColParam
rs29__MMColParam = "%"
If (Request.QueryString("productno") <> "") Then
rs29__MMColParam = Request.QueryString("productno")
End If
%>
<%
Dim rs29
Dim rs29_numRows
Set rs29 = Server.CreateObject("ADODB.Recordset")
rs29.ActiveConnection = MM_anpec_STRING
rs29.Source = "SELECT * FROM Power WHERE Part_NO LIKE '%" + Replace(rs29__MMColParam, "'", "''") + "%' AND Type_No='DIP-8' ORDER BY Porder"
rs29.CursorType = 0
rs29.CursorLocation = 2
rs29.LockType = 1
rs29.Open()
rs29_numRows = 0
%>
<%
Dim Repeat12__numRows
Dim Repeat12__index
Repeat12__numRows = -1
Repeat12__index = 0
rs12_numRows = rs12_numRows + Repeat12__numRows
%>
<%
Dim Repeat28__numRows
Dim Repeat28__index
Repeat28__numRows = -1
Repeat28__index = 0
rs28_numRows = rs28_numRows + Repeat28__numRows
%>
<%
Dim Repeat13__numRows
Dim Repeat13__index
Repeat13__numRows = -1
Repeat13__index = 0
rs13_numRows = rs13_numRows + Repeat13__numRows
%>
<%
Dim Repeat14__numRows
Dim Repeat14__index
Repeat14__numRows = -1
Repeat14__index = 0
rs14_numRows = rs14_numRows + Repeat14__numRows
%>
<%
Dim Repeat15__numRows
Dim Repeat15__index
Repeat15__numRows = -1
Repeat15__index = 0
rs15_numRows = rs15_numRows + Repeat15__numRows
%>
<%
Dim Repeat16__numRows
Dim Repeat16__index
Repeat16__numRows = -1
Repeat16__index = 0
rs16_numRows = rs16_numRows + Repeat16__numRows
%>
<%
Dim Repeat17__numRows
Dim Repeat17__index
Repeat17__numRows = -1
Repeat17__index = 0
rs17_numRows = rs17_numRows + Repeat17__numRows
%>
<%
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
%>
<%
Dim Repeat22__numRows
Dim Repeat22__index
Repeat22__numRows = -1
Repeat22__index = 0
rs22_numRows = rs22_numRows + Repeat22__numRows
%>
<%
Dim Repeat23__numRows
Dim Repeat23__index
Repeat23__numRows = -1
Repeat23__index = 0
rs23_numRows = rs23_numRows + Repeat23__numRows
%>
<%
Dim Repeat24__numRows
Dim Repeat24__index
Repeat24__numRows = -1
Repeat24__index = 0
rs24_numRows = rs24_numRows + Repeat24__numRows
%>
<%
Dim Repeat25__numRows
Dim Repeat25__index
Repeat25__numRows = -1
Repeat25__index = 0
rs25_numRows = rs25_numRows + Repeat25__numRows
%>
<%
Dim Repeat26__numRows
Dim Repeat26__index
Repeat26__numRows = -1
Repeat26__index = 0
rs26_numRows = rs26_numRows + Repeat26__numRows
%>
<%
Dim Repeat27__numRows
Dim Repeat27__index
Repeat27__numRows = -1
Repeat27__index = 0
rs27_numRows = rs27_numRows + Repeat27__numRows
%>
<%
Dim Repeat29__numRows
Dim Repeat29__index
Repeat29__numRows = -1
Repeat29__index = 0
rs29_numRows = rs29_numRows + Repeat29__numRows
%>