無標題文件

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

Magnetic Components>>Telecommunications>>XDSL

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

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

<% XDSL.Close() %>