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