%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsPRDetail__MMColParam rsPRDetail__MMColParam = "1" If (Request.QueryString("LIB_ID") <> "") Then rsPRDetail__MMColParam = Request.QueryString("LIB_ID") End If %> <% Dim rsPRDetail Dim rsPRDetail_numRows Set rsPRDetail = Server.CreateObject("ADODB.Recordset") rsPRDetail.ActiveConnection = MM_upData_STRING rsPRDetail.Source = "SELECT * FROM PR_ACP WHERE LIB_ID = " + Replace(rsPRDetail__MMColParam, "'", "''") + "" rsPRDetail.CursorType = 0 rsPRDetail.CursorLocation = 2 rsPRDetail.LockType = 1 rsPRDetail.Open() rsPRDetail_numRows = 0 %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||