oq é isso?

pessoal gostaria da ajuda de todos para resulver o problema do sequinte codigoo erro esta dando na segundo linha " rs.AbsolutePage = pag", não sei oq esta acontecendoSub MostraCab() rs.AbsolutePage = pag response.write "<font color='#000000'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>Foram encontrados " & cstr(rs.recordcount) & " BLs. Mostrando Página " & cstr(pag) & " de " & cstr(rs.PageCount) & "</font></b> </font>" response.write "<table width='100%' border='0' cellspacing='1' cellpadding='0'>" response.write "<tr bgcolor='#2463A2'>" response.write "<td width='10%' bgcolor='#2463A2'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#FFFFFF'>Manifesto</font></b></td>" response.write "<td width='28%' bgcolor='#2463A2'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#FFFFFF'>Número do BL</font></b></td>" response.write "<td width='24%'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#FFFFFF'>Porto de Origem</font></b></td>" response.write "<td width='13%'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#FFFFFF'>Situação</font></b></td>" response.write "<td width='14%'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#FFFFFF'>Tipo</font></b></td>" response.write "<td width='11%'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#FFFFFF'>Últ. Alteração </font></b></td></tr></table>" end Sub