無標題文件

<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% Dim Modem__MMColParam Modem__MMColParam = "Modem" if (Request("MM_EmptyValue") <> "") then Modem__MMColParam = Request("MM_EmptyValue") %> <% set Modem = Server.CreateObject("ADODB.Recordset") Modem.ActiveConnection = MM_Magnetic_STRING Modem.Source = "SELECT distinct DocNo, DocNoDescription, SeriesPdf FROM magnetic WHERE Application LIKE '%" + Replace(Modem__MMColParam, "'", "''") + "%' and SeriesPdf like '%.pdf' ORDER BY DocNo ASC" Modem.CursorType = 0 Modem.CursorLocation = 2 Modem.LockType = 3 Modem.Open() Modem_numRows = 0 %> <% Dim ModemSingle__MMColParam ModemSingle__MMColParam = "Modem" if (Request("MM_EmptyValue") <> "") then ModemSingle__MMColParam = Request("MM_EmptyValue") %> <% set ModemSingle = Server.CreateObject("ADODB.Recordset") ModemSingle.ActiveConnection = MM_Magnetic_STRING ModemSingle.Source = "SELECT PN, PNDescription, SinglePdf FROM magnetic WHERE Application LIKE '%" + Replace(ModemSingle__MMColParam, "'", "''") + "%' and SinglePdf like '%.pdf' ORDER BY PN ASC" ModemSingle.CursorType = 0 ModemSingle.CursorLocation = 2 ModemSingle.LockType = 3 ModemSingle.Open() ModemSingle_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Modem_numRows = Modem_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 ModemSingle_numRows = ModemSingle_numRows + Repeat2__numRows %> 無標題文件

Magnetic Components>>Telecommunications>>Modem Fax Transformers

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

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

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

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

<% Modem.Close() %> <% ModemSingle.Close() %>