<%
' definisco la data e l'ora odierna
myM =  cint(month(Date))
myY=   year(Date)
myD=   cint(day(Date))
myHours= Hour(Now())
myMinutes= Minute(Now())
mySeconds= Second(Now())
if myM < 10 then myM = "0" & myM end if
if myD < 10 then myD = "0"&  myD end if
if myHours < 10 then myHours = "0" & myHours end if
if myMinutes < 10 then myMinutes = "0" & myMinutes end if
if mySeconds < 10 then mySeconds = "0" & mySeconds end if
myDate= myD & "/" & myM & "/" & myY & " " & myHours & "." & myMinutes & "." & mySeconds
%>

<%
Dim RSmulti
Dim RSmulti_numRows

Set RSmulti = Server.CreateObject("ADODB.Recordset")
RSmulti.ActiveConnection = MM_MM_annunci_conn_STRING_STRING
RSmulti.Source = "SELECT * FROM offerte WHERE localita LIKE '%" + Replace(RSmulti__varlocalita, "'", "''") + "' AND tipologia LIKE '%" & RSmulti__vartipologia & "%' AND contratto LIKE '%" & RSmulti__varcontratto & "%' AND regione LIKE '%" & RSmulti__varregione & "%' AND provincia LIKE '%" & RSmulti__varprovincia & "%' AND prezzo BETWEEN 0 AND " & RSmulti__varprezzomax & " AND dataorapubblicazione <> NULL AND year(dataorascadenzaofferta) >= " & myY & " AND month(dataorascadenzaofferta) >= " & myM & " AND day(dataorascadenzaofferta) >= " & myD & " AND hour(dataorascadenzaofferta) >= " & myHours & " AND minute(dataorascadenzaofferta) >= " & myMinutes & " AND second(dataorascadenzaofferta) >= " & mySeconds & " ORDER BY dataorapubblicazione DESC"
'" & RSmulti__varSort & " " & RSmulti__varSort2 & "
RSmulti.CursorType = 1
RSmulti.CursorLocation = 2
RSmulti.LockType = 1
RSmulti.Open()

RSmulti_numRows = 0
%>

 AND dataorapubblicazione <> NULL AND year(dataorascadenzaofferta) >= " & myY & " AND month(dataorascadenzaofferta) >= " & myM & " AND day(dataorascadenzaofferta) >= " & myD & " AND hour(dataorascadenzaofferta) >= " & myHours & " AND minute(dataorascadenzaofferta) >= " & myMinutes & " AND second(dataorascadenzaofferta) >= " & mySeconds & "