asp anlayan ustalar

arkadaşlar konu doğru yere açtımı bilmem ama yalnışsa özurdilerim
sorunum şu absolutepage

Verdiği hataaltta


Hata Tipi:
ADODB.Recordset (0x800A0CB3)
Geçerli Kayıt Dizisi yer işaretlerini desteklemiyor. Bu, sağlayıcının veya seçili kayıt kümesi türünün bir sınırlaması olabilir.
/vezi/indirmi.asp, line 31


Tarayıcı Tipi:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)

Sayfa:
GET /vezi/default.asp


Kodlarda altta

<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open="driver={mysql odbc 3.51 driver}; server=localhost; UID=root; pwd=; db=ayhan;"



%>
<%
maxid=Request.QueryString("maxid")
Set can = Server.CreateObject("ADODB.Recordset")
sor = "Select * from urun WHERE indirimli>0 order by tarih desc"

can.Open sor,Sur,1,3




%>
<%bol =3'


shf = Request.QueryString("shf")
if shf="" then
shf=1
end if
can.pagesize=2


can.absolutepage = shf
sayfala = can.pagecount 'sayfa sayysy

yuzde = CInt(100/bol) 'sütunlaryn geni?li?ini hesap
For I = 1 To can.pagesize %>
<% If not I mod bol = 0 Then %>
<% If not can.Eof Then %>

yardım ederseniz sevinirim
herkese kolay gelsin