%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsSwiperSub Dim rsSwiperSub_numRows Set rsSwiperSub = Server.CreateObject("ADODB.Recordset") rsSwiperSub.ActiveConnection = MM_dbase1_STRING rsSwiperSub.Source = "SELECT * FROM QueryProductDetails" rsSwiperSub.CursorType = 0 rsSwiperSub.CursorLocation = 2 rsSwiperSub.LockType = 1 rsSwiperSub.Open() rsSwiperSub_numRows = 0 %> <% Dim rsSwiperMain Dim rsSwiperMain_numRows Set rsSwiperMain = Server.CreateObject("ADODB.Recordset") rsSwiperMain.ActiveConnection = MM_dbase1_STRING rsSwiperMain.Source = "SELECT * FROM QueryDistinctCategory" rsSwiperMain.CursorType = 0 rsSwiperMain.CursorLocation = 2 rsSwiperMain.LockType = 1 rsSwiperMain.Open() rsSwiperMain_numRows = 0 %> <% Dim localTime Dim localTime_numRows Set localTime = Server.CreateObject("ADODB.Recordset") localTime.ActiveConnection = MM_dbase1_STRING localTime.Source = "SELECT * FROM QueryTimeDate" localTime.CursorType = 0 localTime.CursorLocation = 2 localTime.LockType = 1 localTime.Open() localTime_numRows = 0 %> <% Dim productInfo__MMColParam productInfo__MMColParam = "1" If (Request.QueryString("productInfoID") <> "") Then productInfo__MMColParam = Request.QueryString("productInfoID") End If %> <% Dim productInfo Dim productInfo_numRows Set productInfo = Server.CreateObject("ADODB.Recordset") productInfo.ActiveConnection = MM_dbase1_STRING productInfo.Source = "SELECT * FROM QueryProductInfo WHERE productInfoID = " + Replace(productInfo__MMColParam, "'", "''") + "" productInfo.CursorType = 0 productInfo.CursorLocation = 2 productInfo.LockType = 1 productInfo.Open() productInfo_numRows = 0 %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||