%@LANGUAGE="VBSCRIPT"%> <% Dim rsTop5__MMColParam rsTop5__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then rsTop5__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsTop5 Dim rsTop5_numRows Set rsTop5 = Server.CreateObject("ADODB.Recordset") rsTop5.ActiveConnection = MM_conn_tubesdirect_STRING rsTop5.Source = "SELECT top5_sort, top51, top5, ProductName, Brand, ProductID FROM Product WHERE top5_sort = " + Replace(rsTop5__MMColParam, "'", "''") + " ORDER BY top5 ASC" rsTop5.CursorType = 0 rsTop5.CursorLocation = 2 rsTop5.LockType = 1 rsTop5.Open() rsTop5_numRows = 0 %>
![]() |
||||||||||||||||||||||||
![]() |
||||||||||||||||||||||||
TubesDirect Services |
||||||||||||||||||||||||
TubesDirect Affiliates
|
||||||||||||||||||||||||
![]() |
||||||||||||||||||||||||