codice:
Dim ConnDown
Set ConnDown=Server.CreateObject("ADODB.Connection")
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"upload.mdb")
Dim strDenominazione
strDenominazione = Replace(Request("cp"), "_", " ")
Dim strSQL, strREC, REC
if (CAT = 0 and UOAT = 0 and ucase(trim(cp)) = "TUTTI") then
strSQL = "SELECT ListFiles.* from ListFiles LEFT JOIN Analisi ON ListFiles.Stato = Analisi.Stato WHERE ListFiles.Stato IS NULL"
elseif (CAT <> 0 and UOAT <> 0 and ucase(trim(cp)) <> "TUTTI") then
strSQL = "SELECT ListFiles.* from ListFiles LEFT JOIN Analisi ON (ListFiles.Stato = Analisi.Stato and ListFiles.ID_CAT = "& CAT &" and ListFiles.ID_UOAT = "& UOAT &" and ListFiles.CABINA_PRIMARIA = '"& strDenominazione &"') WHERE ListFiles.Stato IS NULL"
elseif (CAT <> 0 and UOAT <> 0) then
strSQL = "SELECT ListFiles.* from ListFiles LEFT JOIN Analisi ON (ListFiles.Stato = Analisi.Stato and ListFiles.ID_CAT = "& CAT &" and ListFiles.ID_UOAT = "& UOAT &") WHERE ListFiles.Stato IS NULL"
elseif (CAT <> 0) then
strSQL = "SELECT ListFiles.* from ListFiles LEFT JOIN Analisi ON (ListFiles.Stato = Analisi.Stato and ListFiles.ID_CAT = "& CAT &") WHERE ListFiles.Stato IS NULL"
elseif (UOAT <> 0) then
strSQL = "SELECT ListFiles.* from ListFiles LEFT JOIN Analisi ON (ListFiles.Stato = Analisi.Stato and ListFiles.ID_UOAT = "& UOAT &") WHERE ListFiles.Stato IS NULL"
elseif (ucase(trim(cp)) <> "TUTTI") then
strSQL = "SELECT ListFiles.* from ListFiles LEFT JOIN Analisi ON (ListFiles.Stato = Analisi.Stato and ListFiles.CABINA_PRIMARIA = '"& strDenominazione &"') WHERE ListFiles.Stato IS NULL"
end if
Set strREC = ConnDown.Execute(strSQL)