Error Type: 
Microsoft VBScript runtime (0x800A01FB) 
An exception occurred: 'Execute' 
/non_analizzati.asp, line 221 

Browser Type: 
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) 

Page: 
GET /spec/screening/non_analizzati.asp?cat=0&uoat=42&CP=TUTTI 

Time: 
giovedì 7 ottobre 2004, 9.53.01 

line 221 = Set strREC = ConnDown.Execute(strSQL) 

Set RECDown = ConnDown.Execute(SQLDown)

Dim ConnDown
Set ConnDown=Server.CreateObject("ADODB.Connection")

ConnDown.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.MapPath(path&"upload.mdb")

Dim strDenominazione 
strDenominazione = Replace(Request("cp"), "_", " ") 

Dim SQLDown, RECDown

if (CAT = 0 and UOAT = 0 and ucase(trim(cp)) = "TUTTI") then
SQLDown = "SELECT ListFiles.* from ListFiles LEFT JOIN Analisi ON ListFiles.Stato = Analisi.Stato WHERE ListFiles.Stato IS NULL"
response.write SQLDown &"<br>"
response.write "qui1" &"<br>"


elseif (CAT <> 0 and UOAT <> 0 and ucase(trim(cp)) <> "TUTTI") then
SQLDown = "SELECT ListFiles.* from ListFiles LEFT JOIN Analisi ON (ListFiles.Stato = Analisi.Stato and ListFiles.ID_CAT = "& CAT &" and ListFiles.ID_UOAT = "& UOAT &" and ListFiles.Rsist = '"& strDenominazione &"') WHERE ListFiles.Stato IS NULL"
response.write SQLDown &"<br>"
response.write "qui2a" &"<br>"


elseif (CAT <> 0 and UOAT <> 0) then
SQLDown = "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"
response.write SQLDown &"<br>"
response.write "qui2" &"<br>"


elseif (CAT <> 0) then
SQLDown = "SELECT ListFiles.* from ListFiles LEFT JOIN Analisi ON (ListFiles.Stato = Analisi.Stato and ListFiles.ID_CAT = "& CAT &") WHERE ListFiles.Stato IS NULL"
response.write SQLDown &"<br>"
response.write "qui3"


elseif (UOAT <> 0) then
SQLDown = "SELECT ListFiles.* from ListFiles LEFT JOIN Analisi ON (ListFiles.Stato = Analisi.Stato and ListFiles.ID_UOAT = "& UOAT &") WHERE ListFiles.Stato IS NULL"
response.write SQLDown &"<br>"
response.write "qui4"


elseif (ucase(trim(cp)) <> "TUTTI") then
SQLDown = "SELECT ListFiles.* from ListFiles LEFT JOIN Analisi ON (ListFiles.Stato = Analisi.Stato and ListFiles.Rsist = '"& strDenominazione &"') WHERE ListFiles.Stato IS NULL"
response.write SQLDown &"<br>"
response.write "qui5"

Set RECDown = ConnDown.Execute(SQLDown)

end if