%@LANGUAGE="VBSCRIPT"%> <% Dim rsDesigns__MMColParam rsDesigns__MMColParam = "1" If (Request.QueryString("Web_Product") <> "") Then rsDesigns__MMColParam = Request.QueryString("Web_Product") End If %> <% Dim rsDesigns Dim rsDesigns_numRows Set rsDesigns = Server.CreateObject("ADODB.Recordset") rsDesigns.ActiveConnection = MM_AbexDesigns_STRING rsDesigns.Source = "SELECT * FROM Table_Renderings WHERE Web_Product LIKE '%" + Replace(rsDesigns__MMColParam, "'", "''") + "%' ORDER BY Project DESC" rsDesigns.CursorType = 0 rsDesigns.CursorLocation = 2 rsDesigns.LockType = 1 rsDesigns.Open() rsDesigns_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 99 Repeat1__index = 0 rsDesigns_numRows = rsDesigns_numRows + Repeat1__numRows %>
![]() |
||||||||||||||||||||||||||||||||||
|
Exhibiting Tips Upcoming Shows |
|
|||||||||||||||||||||||||||||||||