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