Trabalhando com Funções.

[Ivan.Teles 23]

Para facilitar minha vida estou criando um arquivo com todas as funções de que necessito para se criar um site.

 

Porém esta me retornando um erro chamar a função de paginação:

 

Função para gerar o ìnicio da paginação

Function Inicio(nome) '=================================================================
Const NumPorPage = 5
Dim PagAtual
IF Request.QueryString("PagAtual") = "" Then
PagAtual = 1 
Else
PagAtual = Request.QueryString("PagAtual")
End If
nome.CacheSize = NumPorPage 
nome.MoveFirst 
nome.PageSize = NumPorPage 
Dim TotalPages 
TotalPages = nome.PageCount
nome.AbsolutePage = PagAtual 
Count = 0 
i = 0 

DO WHILE NOT nome.EOF And Count < nome.PageSize

End Function '============================================================================
===

Função que gera o fim da paginação

Function Fim(nome) '=======================================================================
i = i + 1
Count = Count + 1 
nome.MoveNext
LOOP 
End Function '============================================================================
=====

meu arquivo asp de teste.

<% call Inicio(rs) %>
	<tr>
	<td><a href="produto.asp?id_cat=<%= rs("id") %>"><%= rs("modelo") %></a></td>
	</tr>
<% call Fim(rs) %>

No caso rs é o nome do meu recordset que crio através de uma função tb.

O erro dado é esse:

Erro de compilação do Microsoft VBScript (0x800A0400)
Instrução esperada
/funcoes/funcoes.asp, line 40
End Function '============================================================================
===

Minha linha 40 é:

DO WHILE NOT nome.EOF And Count < nome.PageSize

 

-->End Function '=======================================================

[dark0 0]

amigo ..

 

olha isso:

 

Function Inicio(nome) '=================================================================

Const NumPorPage = 5

Dim PagAtual

IF Request.QueryString("PagAtual") = "" Then

PagAtual = 1

Else

PagAtual = Request.QueryString("PagAtual")

End If

nome.CacheSize = NumPorPage

nome.MoveFirst

nome.PageSize = NumPorPage

Dim TotalPages

TotalPages = nome.PageCount

nome.AbsolutePage = PagAtual

Count = 0

i = 0

 

DO WHILE NOT nome.EOF And Count < nome.PageSize

 

End Function & #39;============================================================================

 

===

Aquilo ali ..esta assim mesmo? com #39 depois de end function?

 

Se sim ..vai dar o erro mesmo ....

[Ivan.Teles 23]

cara isso ai é o forum que faz isso.

depois do end function tem é '=================

sacou?

[Mário Monteiro 179]

voce fechou o laço DO WHILE ?