<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% Dim RF__MMColParam RF__MMColParam = "RF/PULSE Transformers" if (Request("MM_EmptyValue") <> "") then RF__MMColParam = Request("MM_EmptyValue") %> <% set RF = Server.CreateObject("ADODB.Recordset") RF.ActiveConnection = MM_Magnetic_STRING RF.Source = "SELECT distinct DocNo, DocNoDescription, SeriesPdf FROM magnetic WHERE (Application like '%" + Replace(RF__MMColParam, "'", "''") + "%') and (SeriesPdf like '%.pdf') ORDER BY DocNo ASC" RF.CursorType = 0 RF.CursorLocation = 2 RF.LockType = 3 RF.Open() RF_numRows = 0 %> <% Dim RFSingle__MMColParam RFSingle__MMColParam = "RF/PULSE Transformers" if (Request("MM_EmptyValue") <> "") then RFSingle__MMColParam = Request("MM_EmptyValue") %> <% set RFSingle = Server.CreateObject("ADODB.Recordset") RFSingle.ActiveConnection = MM_Magnetic_STRING RFSingle.Source = "SELECT PN, PNDescription, SinglePdf,application FROM magnetic WHERE (Application like '%" + Replace(RFSingle__MMColParam, "'", "''") + "%') and (SinglePdf like '%.pdf') ORDER BY PN ASC" RFSingle.CursorType = 0 RFSingle.CursorLocation = 2 RFSingle.LockType = 3 RFSingle.Open() RFSingle_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RF_numRows = RF_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 RFSingle_numRows = RFSingle_numRows + Repeat2__numRows %> 無標題文件
Magnetic Components>>RF/PULSE Transformers

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

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

<% End If ' end Not RFSingle.EOF Or NOT RFSingle.BOF %>

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

<% RF.Close() %> <% RFSingle.Close() %>