%@LANGUAGE="VBSCRIPT"%> <% Dim expo__MMColParam expo__MMColParam = "ally" If (Request("MM_EmptyValue") <> "") Then expo__MMColParam = Request("MM_EmptyValue") End If %> <% Dim expo Dim expo_numRows Set expo = Server.CreateObject("ADODB.Recordset") expo.ActiveConnection = MM_narda_STRING expo.Source = "SELECT * FROM expo WHERE nome = '" + Replace(expo__MMColParam, "'", "''") + "' ORDER BY dataexpo DESC" expo.CursorType = 0 expo.CursorLocation = 2 expo.LockType = 1 expo.Open() expo_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 expo_numRows = expo_numRows + Repeat1__numRows %>
![]() |
![]() |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||