Type mismatch

Microsoft VBScript runtime error '800a000d'

Type mismatch

/paging.asp, line 15

Testar denna kod som LarsG har skrivit, men varför blir det fel?
Rad 15 är pages = (rs(0)-1)/pageSize + 1

pageSize = 10
page = request.querystring("page")
if page = "" then page = 1
Set MinConn = Server.CreateObject("Adodb.Connection")
MinConn.open = "driver={MySQL ODBC 3.51 Driver}; server=xx.se; uid=xx; pwd=xx; database=xx; option=3"
sql = "select count(*) from T_List" 
'behövs för att beräkna antal sidor
set rs = MinConn.execute(SQL)
pages = (rs(0)-1)/pageSize + 1

SQL = "Select * from T_List order by ID desc limit " & (page-1)*pagesize & "," & pageSize

Set Rs = MinConn.Execute(SQL)

Do until Rs.Eof

response.write ""& RS("ID") &" <br>"

RS.movenext
loop
RS.close : Set Rs = Nothing
MinConn.close : Set MinConn = Nothing
'skriv ut länkar

if  page > 1 then
    response.write "<a href='paging.asp?page=" & page - 1 & "'>Bakåt </a>"
end if

if page < pages then
response.write "<a href=paging.asp?page=" & page + 1 & ">Framåt </a>"
end if