無標題文件

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

Magnetic Components>>Telecommunications>>ISDN

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

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

<% ISDN.Close() %>