Ciclo IF

[nm2002]

Ho un ciclo IF che mi dà questo errore

Microsoft VBScript runtime error '800a01a8'
Object required

category.asp, line 138

----------------------------------------------------------------
I record che metto in relazione esistono perchè
vengono stampati a video:

Sconto1: <%= Rs("sconto1")%>

Sconto2: <%= Rs("sconto2")%>

Prezzo pieno: <%=Rs("pricex")%>

----------------------------------------------------------------

<%
dim prezzofinale
If Rs("sconto1") is null or Rs("sconto1")= 0 then
prezzofinale= rs("price2")
else if Rs("sconto2") is null or Rs("sconto2")= 0 then
prezzofinale= rs("sconto")
else
prezzofinale= rs("pricex")
end if
end if
%>
Il Prezzo finale è:
<%
response.write prezzofinale
%>

----------------------------------------------------------------
Dov'è l'errore?

[Umanista]

Controlla che il recordset sia correttamente istanziato

[motogpdesmo16]

controlla la definizione del recordset e poi, quale sarebbe di quella che hai posato, la line 138?

[nm2002]

..ah ciao umanista hai cambiato la tua immagine..

devo ancora ringraziarti per il tuo aiuto di ieri...THANKS!

la select definitiva (almeno spero) che sto utilizzando è:
-------------------------
Set Rs = Server.CreateObject("ADODB.Recordset")

sql1= "SELECT products.price, (price*(100-scontoperc))/100 AS sconto1, (price*(100-scontopercat))/100 AS sconto2, products.productid, products.price AS pricex, products.catcode AS catcodex, products.name AS namex FROM (products LEFT JOIN clientiart ON products.productid = clientiart.productid) LEFT JOIN clienticategoria ON products.catcode = clienticategoria.catcode WHERE (((products.catcode)="&catcode&") OR ((clienticategoria.custid)="&custid&") AND ((clientiart.custid)="&custid&"))"

RS.Open sql1, ecc.......
-----------------------------------

Ho messo in grassetto quelli che metto in relazione

La riga 138 è:
If Rs("sconto1") is null or Rs("sconto1")= 0 then

[motogpdesmo16]

Originariamente inviato da nm2002
..ah ciao umanista hai cambiato la tua immagine..

devo ancora ringraziarti per il tuo aiuto di ieri...THANKS!

la select definitiva (almeno spero) che sto utilizzando è:
-------------------------
Set Rs = Server.CreateObject("ADODB.Recordset")

sql1= "SELECT products.price, (price*(100-scontoperc))/100 AS sconto1, (price*(100-scontopercat))/100 AS sconto2, products.productid, products.price AS pricex, products.catcode AS catcodex, products.name AS namex FROM (products LEFT JOIN clientiart ON products.productid = clientiart.productid) LEFT JOIN clienticategoria ON products.catcode = clienticategoria.catcode WHERE (((products.catcode)="&catcode&") OR ((clienticategoria.custid)="&custid&") AND ((clientiart.custid)="&custid&"))"

RS.Open sql1, ecc.......
-----------------------------------

Ho messo in grassetto quelli che metto in relazione

La riga 138 è:
If Rs("sconto1") is null or Rs("sconto1")= 0 then

non so se è contemplata questa operazione in asp. Prova a riscriverla come:

If Rs("sconto1")="" or Rs("sconto1")= 0 then

[santino83]

if isNull(rs("sconto1"))...

[kalosjo]

Originariamente inviato da nm2002
Ho un ciclo IF che mi dà questo errore

If non è un ciclo, ma una espressione condizionale...

[nm2002]

Santino ..e altri
mi servirebbe la sintassi per
diverso da NULL

una cosa tipo

If Rs("sconto1")<> null

oppure

If Rs("sconto1")is not null

La tua sintassi forse fuinziona ma è negativa la condizione io
la vorrei positiva

if isNull(rs("sconto1"))...

[nm2002]

kalosjo

thanks!!!!

[nm2002]

QUESTO PARE FUNZIONARE ALLA PERFEZIONE,
MANCA SOLO LA CAONDIZIONE NOT NULL CHE HOS CHIESOT PRIMA...

________________________________________

<%
dim prezzofinale
If Rs("sconto1")<>"" or Rs("sconto1")<> 0 then
prezzofinale= rs("sconto1")
elseif Rs("sconto1")="" or Rs("sconto1")= 0 or isNull(rs("sconto1")) and Rs("sconto2")="" or Rs("sconto2")= 0 or isNull(rs("sconto2")) then
prezzofinale= rs("pricex")
else
prezzofinale= rs("sconto2")
end if
%>
Il Prezzo finale è:
<%
response.write prezzofinale
%>
________________________________________

Grazie a tutti