Erro em código

[thicomp 0]

Pessoal, podem dar uma olhada neste código. É pra ler um arquivo txt e paginar os valores dele.

 

Me retorna o seguinte erro;:

 

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Texto'

 

/Cristalia/Desenvolvimento/teste.asp, line 29

 

<%

response.write "<table cellpadding=1 cellspacing=1 border=0 width=500>"

Const forReading=1, forWriting=2, forAppending=8

Dim objteste, objtextstream

Set Fso=CreateObject("Scripting.FileSystemObject")

Set ObjFile=Fso.GetFile("F:\Doc\historico\2006.txt")

Set ObjStream=ObjFile.OpenAsTextStream(forReading,false)

Dim num, num1, num2

Dim arrImage(15,200)

response.write "<tr><td>Produto<td>Nome<td>Setor<td>Documento<td>Data/Horário<td>Motivo<td>Número IP</tr>"

Texto=ObjStream.ReadAll

Dados=Split(Replace(Texto,Chr(13),""),Chr(10))

cont=0

pag=1

for x=0 to UBound(Dados)

cont=cont+1

arrImage(pag,10)=Dados(x)

if dados(x)="" then

response.write ""

response.write "<tr>"

else

response.write "<td>"&Dados (x)

end if

next

objStream.Close

Set Fso=nothing

Set objStream=nothing

maxRecords=10

MaxPages=Round(Texto/MaxRecords) 'linha 29

if request("pagi")="" then

pagi=1

else

pagi=request("pagi")

for j=1 to 10

response.write arrImage(pagi,j)

next

counter=1

Do While counter <= MaxPages

iStart=(((Counter - 1)*maxRecords)+1)

if cint(counter)=cint(pagi) then

ref=ref &"<strong>Anterior</strong>"

else

ref=ref & "Próxima"

if counter < MaxPages then

ref=ref&"|"

end if

end if

counter=counter+1

loop

response.write ref

end if

%>

[jothaz 1]

MaxPages=Round(Texto/MaxRecords) 'linha 29

O erro acontece pq você esta usando o conteúdo do arquivo texto que esta em "Texto" na divisão e você deve usar o a quantidade de linhas do arquivo texto.

 

O exemplo abaixo mostra com fazê-lo:

<%   dim Linha   dim Total   Linha = Split(Texto, vbCrlf)   Total = ubound(Linha)   MaxPages=Round(Total/MaxRecords)%>

 

 

T+

[thicomp 0]

É isso aí cara, vlw...O problema é que a paginação não tá dando certo... Teria alguma idéia??Abçs