Erro Em Código

[thicomp]

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

%>

[eddyboy]

Eu não entendi direito, você quer abrir um arquivo texto é paginar?

Se você já chamou o arquivo texto na tela, não tem o porque paginar.

Qual o motivo para isso?

porque ao invés de usar txt, use xml, bem + prático.

Eddy

[thicomp]

Preciso que ao abrir o txt, ele mostre na tela o arquivo e partes, pois contendo muitas informações, este seria melhor visualizado se fosse mostrado em páginas diferentes