%@LANGUAGE="VBSCRIPT"%> <% Dim rsDesigns__MMColParam rsDesigns__MMColParam = "1" If (Request.QueryString("Web_Budget") <> "") Then rsDesigns__MMColParam = Request.QueryString("Web_Budget") End If %> <% Dim rsDesigns Dim rsDesigns_numRows imagepathLO = "Renderings_LO/" imagepathMD = "Renderings_MD/" imagepathHI = "Renderings_HI/" imagepathTH = "Renderings_TH/" imagepathZIP = "Renderings_ZIP/" Set rsDesigns = Server.CreateObject("ADODB.Recordset") rsDesigns.ActiveConnection = MM_AbexDesignsNew_STRING rsDesigns.Source = "SELECT * FROM Table_Renderings WHERE Web_Budget = '" + 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 = 25 Repeat1__index = 0 rsDesigns_numRows = rsDesigns_numRows + Repeat1__numRows %>
![]() |
||||||||||||||||||||||||||||||||||
|
Exhibiting Tips Upcoming Shows |
|
|||||||||||||||||||||||||||||||||