%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% Dim Current__MMColParam Current__MMColParam = "Current Sense" if (Request("MM_EmptyValue") <> "") then Current__MMColParam = Request("MM_EmptyValue") %> <% set Current = Server.CreateObject("ADODB.Recordset") Current.ActiveConnection = MM_Magnetic_STRING Current.Source = "SELECT distinct DocNo, DocNoDescription, SeriesPdf FROM magnetic WHERE Application LIKE '%" + Replace(Current__MMColParam, "'", "''") + "%' and SeriesPdf like '%.pdf' ORDER BY DocNo ASC" Current.CursorType = 0 Current.CursorLocation = 2 Current.LockType = 3 Current.Open() Current_numRows = 0 %> <% Dim CurrentSingle__MMColParam CurrentSingle__MMColParam = "Current Sense" if (Request("MM_EmptyValue") <> "") then CurrentSingle__MMColParam = Request("MM_EmptyValue") %> <% set CurrentSingle = Server.CreateObject("ADODB.Recordset") CurrentSingle.ActiveConnection = MM_Magnetic_STRING CurrentSingle.Source = "SELECT PN, PNDescription, SinglePdf FROM magnetic WHERE Application LIKE '%" + Replace(CurrentSingle__MMColParam, "'", "''") + "%' and SinglePdf like '%.pdf' ORDER BY PN ASC" CurrentSingle.CursorType = 0 CurrentSingle.CursorLocation = 2 CurrentSingle.LockType = 3 CurrentSingle.Open() CurrentSingle_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Current_numRows = Current_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 CurrentSingle_numRows = CurrentSingle_numRows + Repeat2__numRows %>
| Doc/N |
Description |
|
| <%=(Current.Fields.Item("DocNo").Value)%> | <%=(Current.Fields.Item("DocNoDescription").Value)%> |
| P/N |
Description |
|
| <%=(CurrentSingle.Fields.Item("PN").Value)%> | <%=(CurrentSingle.Fields.Item("PNDescription").Value)%> |
Copyright©2003 Universal Microelectronics.
For comments or questions about this site, contact us ![]()