<%@LANGUAGE="VBSCRIPT"%>
<%
Dim ultime__MMColParam
ultime__MMColParam = "vendita"
If (Request("MM_EmptyValue") <> "") Then
ultime__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim ultime
Dim ultime_cmd
Dim ultime_numRows
Set ultime_cmd = Server.CreateObject ("ADODB.Command")
ultime_cmd.ActiveConnection = MM_centroaffitti_STRING
ultime_cmd.CommandText = "SELECT * FROM case WHERE tipologia = ? AND attiva = 's' ORDER BY ordine ASC"
ultime_cmd.Prepared = true
ultime_cmd.Parameters.Append ultime_cmd.CreateParameter("param1", 200, 1, 255, ultime__MMColParam) ' adVarChar
Set ultime = ultime_cmd.Execute
ultime_numRows = 0
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = 3
Dim HLooper1__index
HLooper1__index = 0
ultime_numRows = ultime_numRows + HLooper1__numRows
%>