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