[Resolvido] Problema sério com AbsolutePage

[Vinícius Siller 0]

Pessoal estou com problemas seríssimos.

Hoje qdo fui abrir um site em localhost apareceu a seguinte mensagem quando tentei acessar uma página onde os registros deveriam ser paginados:

 

Tipo de erro:

ADODB.Recordset (0x800A0BB9)

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

 

A linha do erro é a seguinte:

rs.AbsolutePage = intPagina

 

Isso derepente começou acontecer com todas as páginas que fazem paginação de registros, sendo que um dia antes ainda funcionava perfeitamente.

Outra coisa que me assustou foi quando acessei o site no servidor web e ocorreu o mesmo erro, sendo que antes ele funcionava perfeitamente.

 

Alguém tem ideia do que pode ter ocorrido?

[jrcardozo 4]

como está a abertura do recordset? a conexao está com o cursor para 3? qual banco de dados? forçou a variavel intPagina para Cint(intPagina)?

[xanburzum 169]

o CursorLocation pode ter 2 valores, adUseServer e adUseClient, ao usar o adUseServer , o recordset utiliza o cursor fornecido pelo provedor de dados, ja usando o adUseClient permite ao recordset usar o cursordo lado cliente, dependendo do tipo utilizado teremos acesso a certas funcionalidades, para por exemplo usar Find,Sortupdate em batch,etc

 

2 : Modo servidor

3 : Modo cliente (o mais rapido)

 

 

Conexao.CursorLocation = 3

 

depois de um response.write na variavel para ver o k esta sendo passada...

[Vinícius Siller 0]

jonathandj, o banco é Access e o recordset está assim:

 

<%
if intPagina = "" then intPagina = 1
Set rs = Server.Createobject("ADODB.RECORDSET")
Set rs.ActiveConnection = Conexao
QtdRegistro = 15
rs.CursorType = 3
rs.PageSize = QtdRegistro
if id_not = "" then
strSQL = "SELECT id_not, titulo_not, dia_not, mes_not, ano_not, status_not FROM tbl_noticias where status_not = 1 ORDER BY id_not DESC;"
else
strSQL = "SELECT id_not, titulo_not, dia_not, mes_not, ano_not, status_not FROM tbl_noticias where status_not = 1 and id_not <> "& id_not &" ORDER BY id_not DESC;"
end if
rs.Open strSQL, Conexao
if rs.BOF and rs.EOF then
response.write("Não há notícias cadastradas...")
else
if Int(intPagina) > rs.PageCount then intPagina = 1
rs.AbsolutePage = intPagina
x = 0
Do While Not rs.EOF and x < rs.PageSize
x = x + 1 
id_not = rs("id_not")
titulo_not = rs("titulo_not")
status_not = rs("status_not")
var_data = rs("dia_not")&"/"&rs("mes_not")&"/"&rs("ano_not")
%>

==================================================================

 

xanburzum, estou utilizando:

 

rs.CursorType = 3

 

O que me assustou é que eu sempre utilizei essa estrutura para os sites que faço e além do mais, estava funcionando um dia antes.

O script q eu ja tinha enviado e testado no servidor um dia antes tbm funcionava e parou de funcionar.

 

O que pode ter acontecido?

[xanburzum 169]

naun será erro no server !?!?!

[Vinícius Siller 0]

Pessoal, agradeço a atenção. Retirei uma nova função que adicionei na lib. Ela era a causadora do erro, vejam:

 

Função que causou erro:

Function numerico(texto)
	
		IF texto = Empty OR texto = Null THEN texto = "0"
	
		Set objRegExp = New RegExp
			objRegExp.Pattern = "([^0-9])*"
			objRegExp.IgnoreCase = True
			objRegExp.Global = True
			numerico = objRegExp.Replace(texto, "")
		Set objRegExp = Nothing
	
		IF Len(numerico) = 0 OR numerico = "" OR numerico = Null OR numerico = Empty THEN numerico = 0
		
		numerico = Int(numerico)
		
End Function

Função que n]ao causa erro:

Function numerico(strNumero) 
Set regexHex = New RegExp 
regexHex.Pattern = "([^0-9])*" 
regexHex.IgnoreCase = True 
regexHex.Global = True 
Matches = regexHex.Replace(strNumero,"") 
numerico = Matches
Set regexHex = Nothing 
End Function

Se vocês quiserem desvendar o problema beleza, senão podem encerrar o tópico.

Grande abraço mais uma vez pessoal, vocês são show!

[Patrique 0]

Velho qual o erro aparece?

[Vinícius Siller 0]

Aqui Patrique!