Notícias com paginas

Tenho um sistema de notícias ele funcionava corretamente até que precisei mas não esta dando certo vocês podem me ajudar..

Aqui esta o meu codigo

<%
'AQUI VOCE VAI CONFIGURAR O NUMERO DE GRAVACOES DO BANCO QUE SERA EXIBIDO POR CADA PAGINA
Const GravacoesPorPagina = 9 'MUDE AQUI SE QUISER

If Request.QueryString("PaginaAtual") = "" Then
PosicaoDaPagina = 1

Else
PosicaoDaPagina = CInt(Request.QueryString("PaginaAtual"))
End If

%>
<%
Set con = Server.CreateObject("ADODB.Connection")
Set nt1 = Server.CreateObject("ADODB.Recordset")

 nt1.Open "SELECT * from noticias order by id desc", DB

 Do while not nt1.Eof
 Topico = nt1("Topico")
 Classe1 = nt1("Classe1")
 Classe = nt1("Classe")
 Palavra = nt1("Palavra")
 Data = nt1("Data")
 Horas = nt1("Horas")
 id = nt1("id")
 Classe1 = "Artigos"
 TotalDEGravacoes = nt1.RecordCount

TotalDePaginas = int(TotalDEGravacoes/GravacoesPorPagina)
If TotalDEPaginas MOD GravacoesPorPagina <> 0 Then
TotalDEPaginas = TotalDePaginas + 1
end if
%>

 <table width="99%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
 <%
 nt1.PageSize = GravacoesPorPagina
 If NOT nt1.EOF Then nt1.AbsolutePage = PosicaoDaPagina
 For RepeteGravacoes = 1 to GravacoesPorPagina
	If nt1.EOF Then Exit For

%>

 <tr>
 <td align="left" valign="middle" bgcolor="#FFFFFF"><span class="fonte12_005100-bold"> <a href='mostra.asp?noticias=<%=nt1("id")%>&Classe=<%Response.Write Classe%>' class="fonte13_005100-bold">
 <%Response.Write Palavra%>
 </a></span><br />
 <span class="fonte12_000000-normal">
 <a href="artigos.asp?noticias=<%=nt1("id")%>&Classe=<%Response.Write Classe%>">
 <%Response.Write Topico%>
 </a></span><br /> </td>
 </tr>
 <tr>
 <td align="left" valign="middle" bgcolor="#FFFFFF"><table width="100%">
 <tr>
 <td width="24%" style="background-color:#f1f1f1"><div id="link">
 <%
 'CRIA UM LINK PARA A PAGINA ANTERIOR SE A PAGINA FOR MAIOR QUE 1
 If PosicaoDaPagina > 1 Then
 Response.Write "	<a href=""mensagem.asp?PaginaAtual=" & PosicaoDaPagina - 1 & """ target=""_self""><<< Voltar </a>"
 End If
 %>
 </div></td>
 <td width="50%" align="center" valign="top" style="font-weight:bold;color:#ff0000;background-color:#f1f1f1;padding:3"><div id="pagina">
 <%
 If TotalDePaginas > 1 Then
 Response.Write "	Páginas dos Artigos "
 End If
 %>
 <br />
 <%
 atual = request.querystring("PaginaAtual")
 For paginass = 1 to TotalDEPaginas
 If paginass = PosicaoDaPagina then
 Response.Write " <span style=""padding:3;font-family:arial;text-decoration:none;font-size:11;font-weight:bold"">"
 else
 Response.Write " <a onmouseover=""window.status='Clique para ir à página: " & paginass & "';return true"" href=""mensagem.asp?PaginaAtual=" & Paginass & """>"
 end if
 Response.Write Paginass
 If paginass = PosicaoDaPagina then
 Response.Write "</span> "
 else
 Response.write "</a> "
 end if
 Next
 %>
 </div></td>
 <td width="26%" style="background-color:#f1f1f1"><div id="link">
 <div align="right">
 <%
 'CRIA UM LINK PARA A PROXIMA PAGINA SE EXISTIR A TAL
 If NOT rs.EOF then
 Response.Write "	<a href=""mensagem.asp?PaginaAtual=" & PosicaoDaPagina + 1 & """ target=""_self"">Avançar >>></a>"
 End If
 %>
 </div>
 </div></td>
 </tr>
 </table> </td>
 </tr>
 </table>
 <%

'Reseta os objetos do servidor
Set con = Nothing
nt1.Close
Set nt1 = Nothing
%>
Este é o erro:

>
Erro de compilação do Microsoft VBScript erro '800a03fc'

'Next' esperado

/fabi/pt/artigos/default.asp, line 199

O que esta ocorrendo,

Obrigado pela força que todos tem me dado.

Abs http://forum.imasters.com.br/public/style_emoticons/default/blush.gif