無標題文件

<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% Dim others__MMColParam others__MMColParam = "Telecom\Other" If (Request("MM_EmptyValue") <> "") Then others__MMColParam = Request("MM_EmptyValue") End If %> <% set others = Server.CreateObject("ADODB.Recordset") others.ActiveConnection = MM_Magnetic_STRING others.Source = "SELECT distinct DocNo, DocNoDescription, SeriesPdf FROM magnetic WHERE Application LIKE '%" + Replace(others__MMColParam, "'", "''") + "%' and SeriesPdf like '%.pdf' ORDER BY DocNo ASC" others.CursorType = 0 others.CursorLocation = 2 others.LockType = 3 others.Open() others_numRows = 0 %> <% Dim OtherSingle__MMColParam OtherSingle__MMColParam = "Telecom\Other" If (Request("MM_EmptyValue") <> "") Then OtherSingle__MMColParam = Request("MM_EmptyValue") End If %> <% set OtherSingle = Server.CreateObject("ADODB.Recordset") OtherSingle.ActiveConnection = MM_Magnetic_STRING OtherSingle.Source = "SELECT PN, PNDescription, SinglePdf FROM magnetic WHERE Application LIKE '%" + Replace(OtherSingle__MMColParam, "'", "''") + "%' and SinglePdf like '%.pdf' ORDER BY PN ASC" OtherSingle.CursorType = 0 OtherSingle.CursorLocation = 2 OtherSingle.LockType = 3 OtherSingle.Open() OtherSingle_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 others_numRows = others_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 OtherSingle_numRows = OtherSingle_numRows + Repeat2__numRows %> 無標題文件

Magnetic Components>>Telecommunications>>Others

<% While ((Repeat1__numRows <> 0) AND (NOT others.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 others.MoveNext() Wend %>

Doc/N	Description
<%=(others.Fields.Item("DocNo").Value)%>	<%=(others.Fields.Item("DocNoDescription").Value)%>	">

Single Data Sheet
<% While ((Repeat2__numRows <> 0) AND (NOT OtherSingle.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 OtherSingle.MoveNext() Wend %>

P/N	Description
<%=(OtherSingle.Fields.Item("PN").Value)%>	<%=(OtherSingle.Fields.Item("PNDescription").Value)%>	">

<% others.Close() %> <% OtherSingle.Close() %>