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?