Condizioni ElseIf

[[trodat]]

... oggi è impossibile...

Ho questo codice:

campo1 = request.querystring("campo1")
campo2 = request.querystring("campo2")

if campo1 = 0 and campo2 = "0" then
SQL = "SELECT * FROM programma_campo1 where id_campo1 = "&id&" order by id_campo1 "
elseif campo1 <> 0 then
SQL = "SELECT * FROM programma_campo1 where id_campo1 = "&campo1&" ORDER BY campo1 asc"
elseif campo2 <> "0" then
SQL = "SELECT * FROM programma_campo1 where chiave = '"&campo2&"' ORDER BY campo1 asc"
end if

set rs = server.createObject("ADODB.Recordset")
rs.open SQL, cn, 1, 3

if rs.eof then

response.write "K.O."

else

Se lo scrivo così pur avendo dei records nella tabella programma_campo1 mi risponde con "K.O.".

Mentre se lo scrivo così:

if campo1 = 0 and campo2 = 0 then
SQL = "SELECT * FROM programma_campo1 where id_campo1 = "&id&" order by id_campo1 "
elseif campo1 <> 0 then
SQL = "SELECT * FROM programma_campo1 where id_campo1 = "&campo1&" ORDER BY campo1 asc"
elseif campo2 <> "0" then
SQL = "SELECT * FROM programma_campo1 where chiave = '"&campo2&"' ORDER BY campo1 asc"
end if

la query di estrazione funziona bene...

Se lo scrivo così:

if campo1 = 0 and campo2 = "0" then
SQL = "SELECT * FROM programma_campo1 where id_campo1 = "&id&" order by id_campo1 "
elseif campo1 <> 0 then
SQL = "SELECT * FROM programma_campo1 where id_campo1 = "&campo1&" ORDER BY campo1 asc"
elseif campo2 <> 0 then
SQL = "SELECT * FROM programma_campo1 where chiave = '"&campo2&"' ORDER BY campo1 asc"
end if

mi va in errore

Error Type:
Microsoft VBScript runtime (0x800A000D)
Tipo non corrispondente.: '[string: "SP02"]'

dov'è l'inghippo???

Grazie