erro muito estranho

[designmix 0]

galera um tempo atraz postei sobre um erro de paginação que esta acontecendo comigo ai dei um tempo para mexer ela de novo hoje tive que fazer outra paginção e o mesmo erro ocorreu so que baixei mais 2 script de paginação e deu o mesmo erro

Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A000D)Tipos incompatíveis/copa/paginacao.asp, line 35

a linha

 

sobra = NRecords mod 5 --- linha do erroIF sobra > 0 then paginas = int(NRecords / 5) + 1Elsepagina = NRecords / 5End Ifpagina = pagina + 1

São paginas totalmente diferendes

 

http://www.dtp.com.br/default_mostra_tudo.asp

http://www2.spasaopedro.com.br/fotos_p.asp?pagina=1

 

so que na web ela estava funcioando normal

ai fiz o teste com a outra

 

mesmo erro e a linha é

resto = numero_fotos mod 9 --- linha  if resto = 0 thennumero_paginas = numero_fotos / 9  elsenumero_paginas = cint((numero_fotos / 9) + 1)  end if

So que local da o mesmo erro eu uso MYSQL

 

grato pela ajuda

[designmix 0]

arrumei galera mais mesmo assim valeu fico assimresto = cint(NRecords) mod 6IF resto > 0 then paginas = (cint(NRecords) / 6) + 1Elsepaginas = NRecords / 6End Ifpagina = pagina + 1alguem sabe como posso separa os 2 primeiros caract que vem de um rs .tipo vem o tel 1140240125 gostaria que ficasse 11-40240125sera que tem como grato