<%option explicit%>
<%
Dim mDescrizione
Dim mParola
Dim mIndice
Dim mLocalita
Dim mGGInizio
Dim mMMInizio
Dim mAAAAInizio
Dim mGGFine
Dim mMMFine
Dim mAAAAFine
Dim mPrezzoIntero
Dim mPrezzoDecimale
Dim mFiltro
Dim mCriterioData1
Dim mCriterioData2
' ***********************************************************************************************************
' filtro descrizione
' ***********************************************************************************************************
if(param("Descrizione") <> vbNullString) then
mDescrizione = param("Descrizione")
mDescrizione = CompattaSpazi(mDescrizione)
for each mParola in split(mDescrizione, " ")
mFiltro = mFiltro & " AND Descrizione like '%" & replace(mParola, "'", "''") & "%'"
next
end if
' ***********************************************************************************************************
' filtro località
' ***********************************************************************************************************
if(param("Localita") <> vbNullString) then
mLocalita = param("Localita")
mFiltro = mFiltro & " AND Localita = '" & replace(mLocalita, "'", "''") & "'"
end if
' ***********************************************************************************************************
' filtro date
' ***********************************************************************************************************
mGGInizio = param("GGInizio")
mMMInizio = param("MMInizio")
mAAAAInizio = param("AAAAInizio")
mGGFine = param("GGFine")
mMMFine = param("MMFine")
mAAAAFine = param("AAAAFine")
if DataValorizzata(mGGInizio, mMMInizio, mAAAAInizio) then
if DataValida(mGGInizio, mMMInizio, mAAAAInizio) then
mCriterioData1 = mCriterioData1 & " DataInizioValidita < " & CreaDataDB(mGGInizio, mMMInizio, mAAAAInizio)
mCriterioData1 = mCriterioData1 & " AND "
mCriterioData1 = mCriterioData1 & " DataFineValidita < " & CreaDataDB(mGGInizio, mMMInizio, mAAAAInizio)
mCriterioData1 = "(" & mCriterioData1 & " ) "
else
end if
else
mCriterioData1 = "1=2"
end if
if DataValorizzata(mGGFine, mMMFine, mAAAAFine) then
if DataValida(mGGFine, mMMFine, mAAAAFine) then
mCriterioData2 = mCriterioData2 & " DataInizioValidita > " & CreaDataDB(mGGFine, mMMFine, mAAAAFine)
mCriterioData2 = mCriterioData2 & " AND "
mCriterioData2 = mCriterioData2 & " DataFineValidita > " & CreaDataDB(mGGFine, mMMFine, mAAAAFine)
mCriterioData2 = "(" & mCriterioData2 & " ) "
else
end if
else
mCriterioData2 = "1=2"
end if
mFiltro = mFiltro & "AND NOT (" & mCriterioData1 & " OR " & mCriterioData2 & ")"
' ***********************************************************************************************************
' filtro prezzo
' ***********************************************************************************************************
mPrezzoIntero = param("PrezzoIntero")
mPrezzoDecimale = param("PrezzoDecimale")
if(trim(mPrezzoIntero & mPrezzoDecimale) <> vbNullString) then
if(IsNumeric(mPrezzoIntero & mPrezzoDecimale)) then
if(ccur(mPrezzoIntero & mPrezzoDecimale) <> 0) then
mFiltro = mFiltro & " AND Prezzo <= " & CreaPrezzoDB(mPrezzoIntero, mPrezzoDecimale)
end if
end if
end if
' ***********************************************************************************************************
' ***********************************************************************************************************
' ***********************************************************************************************************
function DataValorizzata(pGG, pMM, pAAAA)
DataValorizzata = (Trim(pGG & pMM & pAAAA) <> vbNullString)
end function
%>
Balestra Viaggi - Homepage
