arkadaşlar böyle bir kod var ve

Hata Tipi:
ADODB.Field (0x800A0BCD)
Ya BOF ya da EOF Doğru veya geçerli kayıt silinmiş. İstenen işlem geçerli bir kayıt gerektiriyor.

bu hatayı veriyor bu kod da ta paket adına denk gelıyor ama db de boş deil dolu içi ben sadece tip=1 olmasını istedim ekledim ama böyle bir hata alıyorum.

üstadlar ne diyorsunuz bu işe

<%
SET HOSTING_LISTESI = SERVER.CREATEOBJECT("ADODB.RECORDSET")
STRSQL = "SELECT * FROM HOSTING WHERE KULLANICI_ID="& SESSION("ID")&" ORDER BY BITIS_TARIHI"
SET HOSTING_LISTESI= DB_BAGLANTISI.EXECUTE(STRSQL)
WHILE NOT  HOSTING_LISTESI.EOF

DOMAIN = HOSTING_LISTESI("HOSTING")
UZANTI = HOSTING_LISTESI("UZANTI")
ALANADI = DOMAIN & UZANTI
AKTIF = HOSTING_LISTESI("DURUM")
LOGINID =   HOSTING_LISTESI("LOGINID")
BITISTARIHI = HOSTING_LISTESI("BITIS_TARIHI")

SET PAKET = SERVER.CREATEOBJECT("ADODB.RECORDSET")
STRSQL = "select * from hosting_paketleri where tip = 1 and id ="&hosting_listesi("hosting_paketi")&""
SET PAKET= DB_BAGLANTISI.EXECUTE(STRSQL)

PAKETADI = PAKET("PAKET_ADI")
STATS = PAKET("STATS")


SET SIPARIS = SERVER.CREATEOBJECT("ADODB.RECORDSET")
STRSQL = "SELECT * FROM SIPARISLER WHERE ID="& HOSTING_LISTESI("SIPARIS_ID")
SET SIPARIS= DB_BAGLANTISI.EXECUTE(STRSQL)

ODEME = SIPARIS("DURUM")


SAYI=1
SAYINE=SAYI+SAYINE
IF  len(SAYINE/2)>2 THEN
RENK="FFFFFF"
ELSE
RENK="F7F5E8"
END IF

%>