oq o codigo esta fazendo

[Giba 0]

e ai pessoal eu sou novo em asp mas ja estou com um pinino grande.A pagina esta dando o erro "0x800A0BB9 " com o seguinte testo "Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another./mattoso/mani/pagina.asp, line 68."só que a linha 68 é a "rs.AbsolutePage = pag" , eu não sei oq ela faz direto, pra mim ela resgata o valor da pagina atual, so que no codigo não tem nenhun contrador de pagina?

[nostrinkes 0]

é sua paginação, coloca todo o codigo.

[Giba 0]

não entendi esse esquema a paginação, oq é isso e aonde eu a encontro

[Giba 0]

tai o codigo <!-- #include file = "geral.inc" --><% Sub MostraDados() response.write "<table width='100%' border='0' cellspacing='1' cellpadding='0'>" strlinha = "" for n = 1 to 30 if (n mod 2) <> 0 then cor = "#E1F0FF" else cor = "#FFFFFF" end if strlinha = strlinha & "<tr bgcolor='" & cor & "'>" strlinha = strlinha & "<td width='10'><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#333333'>" strlinha = strlinha & left(rs("ManifestoNumero"),4) & "/" & right(rs("ManifestoNumero"),5) & "</font></td>" strlinha = strlinha & "<td width='28%'><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#333333'>" strlinha = strlinha & "<a href='" & MontaLinkBL(Rs("MANIFESTONUMERO"),Rs("BLNUMERO1"),Rs("BLSEQUENCIA1")) & "'>" & Rs("BLNumero1") & "</a></font></td>" strlinha = strlinha & "<td width='24%'><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#333333'>" strlinha = strlinha & NomeLocalidade(Rs("BLOrigemCodLocal"),Rs("BLOrigemCodPais")) & "</font></td>" strlinha = strlinha & "<td width='13%'><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#333333'>" strlinha = strlinha & NomeSituacao(Rs("BLSituacao")) & "</font></td>" strlinha = strlinha & "<td width='14%'><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#333333'>" strlinha = strlinha & NomeTipoBL(Rs("BLTipo")) & "</font></td>" strlinha = strlinha & "<td width='11%'><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#333333'>" strlinha = strlinha & FormataData(Rs("BLDataBaixa")) & "</font></td></tr>" rs.movenext if rs.eof then exit for end if next response.write strlinha response.write "</table><br><hr noshade>" response.write "<table width='100%' border='0' cellspacing='1' cellpadding='0'>" response.write "<tr bgcolor='#FFFFFF'>" response.write "<td width='50%'><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#333333'>" if pag <> 1 then response.write "<a href='ListaBls.asp?prmbl=" & bl & "&prmmf=" & mf & "&prmcnt=" & cnt & "&Pagina=" & cstr(pag - 1) & "'> Anterior</a>" End If if rs.pagecount > 1 then for n = 1 to rs.PageCount if n <> cint(pag) then response.write " <a href='ListaBls.asp?prmbl=" & bl & "&prmmf=" & mf & "&prmcnt=" & cnt & "&Pagina=" & cstr(n) & "'>" & cstr(n) & "</a>" else response.write "<font color='#000000'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'> " & cstr(n) & "</font></b> </font>" end if next If pag <> rs.PageCount then response.write " <a href='ListaBls.asp?prmbl=" & bl & "&prmmf=" & mf & "&prmcnt=" & cnt & "&Pagina=" & cstr(pag + 1) & "'> Proxima</a>" End If end if End Sub Sub MostraCab() rs.AbsolutePage = pag "aqui de da o erro" <!-- 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 Sub MostraErro() response.write "<font color='#000000'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>Desculpe, não foi encontrado nenhum BL.</font></b></font><br>" end sub%><% Dim strsql, strlinha Dim mf, bl, sq, n Dim pag Dim prx, ant mf = Request("Prmmf") bl = Request("Prmbl") cnt = Request("PrmCnt") pag = Request("Pagina") Set Conex= Server.CreateObject("ADODB.Connection") Conex.CursorLocation = 3 Conex.Open "Provider=Microsoft.Jet.OleDB.4.0;Data Source=D:\manifesto\backup\Manifest.mdb","","" Set Conexger=Server.CreateObject("ADODB.Connection") Conexger.Open "Provider=Microsoft.Jet.OleDB.4.0;Data Source=D:\Manifesto\backup\bdgeral.mdb","","" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.CacheSize = 30 Rs.PageSize = 30 if (cnt <> "" ) then strsql = "SELECT bl.ManifestoNumero, bl.BLNumero1, bl.BLSequencia1, bl.BLOrigemCodLocal,bl.BLOrigemCodPais,bl.BLSituacao,bl.BLTipo,bl.BLDataBaixa,[Container].ContainerNumero FROM bl INNER JOIN [Container] ON (bl.BLSequencia1 = [Container].BLSequencia1) AND (bl.BLNumero1 = [Container].BLNumero1) AND (bl.ManifestoNumero = [Container].ManifestoNumero) WHERE ((([Container].ContainerNumero)='" & cnt & "')) " if (mf <> "") then strsql = strsql & " AND (bl.ManifestoNumero = '" & mf & "')" end if if (bl <> "") then strsql = strsql & " AND bl.BLNumero1 = '" & bl & "'" end if else strsql = "SELECT ManifestoNumero, BLNumero1, BLSequencia1, BLOrigemCodLocal, BLOrigemCodPais, BLSituacao, BLTipo, BLDataBaixa FROM bl " if (mf <> "") then strsql = strsql & " WHERE (bl.ManifestoNumero = '" & mf & "')" if (bl <> "") then strsql = strsql & " AND bl.BLNumero1 = '" & bl & "'" end if else if (bl <> "") then strsql = strsql & " WHERE bl.BLNumero1 = '" & bl & "'" end if end if end if strsql = strsql & " ORDER BY BL.blnumero1, BL.ManifestoNumero" Rs.Open strsql,conex,3,3 if rs.recordcount > 0 then MostraCab() MostraDados() else MostraErro() end if%>