Erro No Where

[smez]

                <%'limpando 
                    set foi(9) = nothing 
                    set numero = nothing 
                    set controle = nothing 
                    end sub 
                    
                Sub procura() 
                
                var1="4"
                var2="5"
                var3="6"
                var4="7"
                var5="8"

LiNHA de ERRO

sql = "SELECT * FROM produtos WHERE cat<>'"&var&"' or cat<>'"&var&"' or cat<>'"&var&"' or cat<>'"&var&"' or cat<>'"&var&"'"

                    rs.open sql, db, 3, 3 
                    controle=0 
                    randomize 
                    numero = (RND * rs.recordcount)\1 
                    do while numero <> controle 
                    controle=controle+1 
                    rs.MoveNext 
                    loop 
                    end sub 
                %>

da o seguinte erro.

Tipo de erro:

Microsoft JET Database Engine (0x80040E07)

Tipo de dados imcompatível na expressão de critério.

/mc/Default.asp, line 410

[.Andreia.]

você está tratando tudo como texto, deve ter algum que seja número

[Guest Visitante]

estão todos em numeros

[.Andreia.]

sql = "SELECT * FROM produtos WHERE cat<>"&var&" or cat<>"&var&" or cat<>"&var&" or cat<>"&var&" or cat<>"&var