<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% Dim Lan__MMColParam Lan__MMColParam = "LAN" If (Request("MM_EmptyValue") <> "") Then Lan__MMColParam = Request("MM_EmptyValue") End If %> <% set Lan = Server.CreateObject("ADODB.Recordset") Lan.ActiveConnection = MM_Magnetic_STRING Lan.Source = "SELECT distinct DocNo, DocNoDescription, SeriesPdf FROM magnetic WHERE Application LIKE '%" + Replace(Lan__MMColParam, "'", "''") + "%' and SeriesPdf like '%.pdf' ORDER BY DocNo ASC" Lan.CursorType = 0 Lan.CursorLocation = 2 Lan.LockType = 3 Lan.Open() Lan_numRows = 0 %> <% Dim LanSingle__MMColParam LanSingle__MMColParam = "LAN" If (Request("MM_EmptyValue") <> "") Then LanSingle__MMColParam = Request("MM_EmptyValue") End If %> <% set LanSingle = Server.CreateObject("ADODB.Recordset") LanSingle.ActiveConnection = MM_Magnetic_STRING LanSingle.Source = "SELECT PN, PNDescription, SinglePdf FROM magnetic WHERE Application LIKE '%" + Replace(LanSingle__MMColParam, "'", "''") + "%' and SinglePdf like '%.pdf' ORDER BY PN ASC" LanSingle.CursorType = 0 LanSingle.CursorLocation = 2 LanSingle.LockType = 3 LanSingle.Open() LanSingle_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Lan_numRows = Lan_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 LanSingle_numRows = LanSingle_numRows + Repeat2__numRows %> 無標題文件
Magnetic Components>>Telecommunications>>LAN

<% While ((Repeat1__numRows <> 0) AND (NOT Lan.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Lan.MoveNext() Wend %>
Doc/N
Description
<%=(Lan.Fields.Item("DocNo").Value)%> <%=(Lan.Fields.Item("DocNoDescription").Value)%>

<% If Not LanSingle.EOF Or Not LanSingle.BOF Then %> Single Data Sheet
<% While ((Repeat2__numRows <> 0) AND (NOT LanSingle.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 LanSingle.MoveNext() Wend %>
P/N
Description
<%=(LanSingle.Fields.Item("PN").Value)%> <%=(LanSingle.Fields.Item("PNDescription").Value)%>
<% End If ' end Not LanSingle.EOF Or NOT LanSingle.BOF %>


Copyright©2003 Universal Microelectronics.
For comments or questions about this site, contact us

<% Lan.Close() %> <% LanSingle.Close() %>