Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Dias Sanches

Notícias com paginas

Por , em ASP Clássico

Recommended Posts

Dias Sanches    0

Dias Sanches
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Dias Sanches    0

Dias Sanches
Postado

Consegui arrumar ele está funcionando direitinho,

 

Mas agora preciso de uma grande ajuda de vocês agora.

 

Gostaria de separar por categorias.

 

Por exemplo: Apenas os Artigos registrados no BD gostaria que aparece-se

 

Como faço para ele puxar a categoria (Classe1 = "Artigos")

 

Este é o codigo com as notícias funcionando

 

<%
'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 rs = Server.CreateObject("ADODB.Recordset")
'Abre conexao com o banco de dados
livro = "DRIVER={Microsoft Access Driver (*.mdb)};"
livro = livro & "DBQ=" & Server.MapPath("../../dados/dados.mdb")
SQL = "SELECT * FROM Noticias ORDER By id DESC"
rs.Open SQL, livro, 3


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

%>
			  <table width="445" border="0" cellspacing="2" cellpadding="0">
				<tr>
				  <td align="center" valign="top"><table width="442" border="0" cellspacing="0" cellpadding="0">
					  <tr>
						<td background="../detalhes/detalhe_r4_c4.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
							<tr>
							  <td width="10"> </td>
							  <td width="432" align="left" valign="middle" class="Texto13Preto"><strong><em>Artigos</em></strong></td>
							</tr>
						</table></td>
					  </tr>
					</table>
					  <table width="100%" border="0" cellspacing="1" cellpadding="0">
						<tr>
						  <td align="left" valign="middle"><img src="../detalhes/detalhe_r8_c4.gif" width="77" height="1" /></td>
						</tr>
						<tr>
						  <td height="2" align="left" valign="middle"><img src="../detalhes/detalhe_r10_c4.gif" width="95%" height="1" /></td>
						</tr>
					  </table>
					<table width="99%" colspan="2">
						<%
   rs.PageSize = GravacoesPorPagina
   If NOT rs.EOF Then rs.AbsolutePage = PosicaoDaPagina
   For RepeteGravacoes = 1 to GravacoesPorPagina
	If rs.EOF Then Exit For
%>
						<tr>
						  <td align="left" valign="middle"><a href="ver.asp?id=<%=rs("id")%>" class="Texto11Pretobold"><%=rs("Palavra")%></a></td>
						</tr>
						<tr>
						  <td align="left" valign="middle"><a href="ver.asp?id=<%=rs("id")%>" class="Texto11Preto"><%=rs("Topico")%></a></td>
						</tr>
						<tr>
						  <td align="left" valign="middle"><img src="http://www.fabioporta.com/detalhes/detalhe_r10_c4.gif" border=0></td>
						</tr>
						<%
rs.MoveNext
Next%>
						<tr>
						  <td><table width="100%">
							  <tr>
								<td width="50%" id="link" valign="middle" align="center" bgcolor="#FFFFFF"> </td>
								<td width="50%" id="link" valign="middle" align="center" bgcolor="#FFFFFF"> </td>
							  </tr>
							</table>
							  <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
rs.Close
Set rs = Nothing	   
%>

 

Obrigado pela ajuda http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito