[Resolvido] sistema de jornal

lezão · Novembro 28, 2008

Ola galera estou a procura de sugestões http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

estou com um trampo de um jornal em minha cidade mas meu cliente quer q no seu site obtenha edição passada ...

sabe os clientes dele poderão ver a edição anterior..

alguem tem alguma sugestão ?

apenas estou com problemas com o bd naun sei como fazer ele voltar a edição anterior .....

Ted k' · Novembro 28, 2008

cadastre todas as noticias com suas respectivas datas de cadastro, quando ele quiser buscar, irá procurar pela data da noticia ou pela chamada

desisto · Novembro 28, 2008

ja que vai fazer link pra edicao anterior, nao podera esquecer um link pra edicao seguinte

acho que seria facil de fazer com id+1 e/ou id-1

so depende de como é a sua logica

xanburzum · Novembro 28, 2008

use o mesmo sistema que é usado em blogs, para manter as edições anterios e proximas

Vagner Bucioli Scala · Novembro 29, 2008

procure por "paginação ASP", tem bastante código pronto que funciona redondinho!

xanburzum · Novembro 29, 2008

tenho um sistema de blog ótimo para esse fim, se quiser me manda um email que para fins didáticos te envio e você pode alterá-lo como quiser...

mostra as noticias do jeito que você quer

lezão · Novembro 29, 2008

Ola Vagner Bucioli Scala...

Cara encontrei uns realmente são bons mesmo,

mas é o seguinte gostaria q en vez de ficar assim [1] [2], gostaria q ficasse assim um botão anterior outro botão Próximo tem como fazer neste script

paginação.asp

<% registros = 1
pagina = Request.QueryString("pagina")
If pagina = "" Then
pagina = 1
End If

'Efetuando a conexão com a base de dados criada -----------------------
Set conexao = Server.CreateObject("AdoDb.Connection")
conexao.provider="Microsoft.Jet.OLEDB.4.0"
conexao.connectionstring=Server.Mappath("dados/cadastro.mdb")
conexao.open

Set rs = Server.Createobject("ADODB.RECORDSET")
set rs.ActiveConnection = Conexao
rs.CursorType = 3
rs.PageSize = registros

sql = "SELECT * FROM home ORDER BY id DESC"
rs.Open sql
If rs.EOF Then
Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=java script:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"

Else	
rs.AbsolutePage = pagina	
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
		<head>
				<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
				<title>princ</title>
				<style type="text/css">
<!--
body {
		font-family: Verdana;
		margin: 0;
		font-size: 80%;
		font-weight:;
		background: #FFF;
		}

h2 {
		font: bold 14px Verdana;
		color: #000;
		margin: 0px;
		padding: 0px 0px 0px 15px;
}

ul {
		list-style: none;
		margin: 0;
		padding: 0;
		}

img {
	border: none;
}

/*- Menu 4--------------------------- */

#menu4 {
		width: 200px;
		margin: 0px;
		border-style: solid solid none solid;
		border-color: #000;
		border-size: 1px;
		border-width: 1px;
		}

#menu4 li a {
		height: 32px;
		  voice-family: "\"}\"";
		  voice-family: inherit;
		  height: 24px;
		text-decoration: none;
		}

#menu4 li a:link, #menu4 li a:visited {
		color: #CCC;
		display: block;
		background:  url(menu4.gif);
		padding: 8px 0 0 10px;
		}

#menu4 li a:hover, #menu4 li #current {
		color: #FFF;
		background:  url(menu4.gif) 0 -32px;
		padding: 8px 0 0 10px;
		}
-->
</style>
				<STYLE type=text/css>

A:link { text-decoration: none}
A:visited { text-decoration: none}


</STYLE>


</head>

<body topmargin="0" leftmargin="0" link="#000000" vlink="#000000" alink="#000000">

<table cellspacing="0" cellpadding="0" width="985" height="257">
<% While Not rs.EOF AND x < rs.PageSize
x = x + 1 %>
							<tr>
  <col width="64" span="3" style="width:48pt">
  <tr height="17" style="height:12.75pt">
	<td height="20" width="202" bgcolor="#CCCCCC"><span class="style2"><font size="2" face="Verdana">Edição:
	  <%=rs("ano")%> - <%=rs("numero")%></font></span></td>
	<td width="682" bgcolor="#CCCCCC" height="20">
	  <p align="left"><script language="JavaScript">
<!--
ObjData = new Date();
var PegaDiaSemana = ObjData.getDay();
if (PegaDiaSemana == 0) { Semana = "Domingo"} else
	if (PegaDiaSemana == 1) { Semana = "Colina - Segunda-Feira"} else
	if (PegaDiaSemana == 2) { Semana = "Colina - Terça-Feira"} else
	if (PegaDiaSemana == 3) { Semana = "Colina - Quarta-Feira"} else
	if (PegaDiaSemana == 4) { Semana = "Colina - Quinta-Feira"} else
	if (PegaDiaSemana == 5) { Semana = "Colina - Sexta-Feira"} else
	if (PegaDiaSemana == 6) { Semana = "Colina - Sábado"}
var Dia = ObjData.getDate();
var PegaMes = ObjData.getMonth()+1;
if (PegaMes == 1) { Mes = "janeiro"} else
	if (PegaMes == 2) { Mes = "fevereiro"} else
	if (PegaMes == 3) { Mes = "março"} else
	if (PegaMes == 4) { Mes = "abril"} else
	if (PegaMes == 5) { Mes = "maio"} else
	if (PegaMes == 6) { Mes = "junho"} else
	if (PegaMes == 7) { Mes = "julho"} else
	if (PegaMes == 8) { Mes = "agosto"} else
	if (PegaMes == 9) { Mes = "setembro"} else
	if (PegaMes == 10) { Mes = "outubro"} else
	if (PegaMes == 11) { Mes = "novembro"} else
	if (PegaMes == 12) { Mes = "dezembro"}
var Ano = ObjData.getYear();
  if (Ano < 2000) {
	Ano = 1900+Ano;
  }

document.write ('<p class=resumo>' + Semana + ', ' + Dia + ' de ' + Mes + ' de ' + Ano);

// -->
						</script></td>
	<td width="599" bgcolor="#CCCCCC" height="20">
	  <p align="center"> </td>
  </tr>
  <tr height="17" style="height:12.75pt">
	<td height="237" width="202">
	  <table cellspacing="0" cellpadding="0">
		<col width="64" style="width:48pt">
		<tr height="17" style="height:12.75pt">
		  <td height="17" width="64" style="height:12.75pt;width:48pt">
			<div id="menu4">
						<ul>
					 
<li><a id="current" href="princ.asp">»<b><font size="2"> Home</font></b></a></li>
<li><a href="ss.asp"><b><font size="2">» Capas</font></b></a></li>
<li><a href="Services.html"><b><font size="2">» Principais notícias</font></b></a></li>
<li><a href="Support.html"><b><font size="2">» Classificados</font></b></a></li>
<li><a href="Order.html"><b><font size="2">» Sociais</font></b></a></li>
<li><a href="News.html"><b><font size="2">» Esportes</font></b></a></li>
<li><a href="About.html"><b><font size="2">» Panorama</font></b></a></li>
<li><a href="Home.html"><b><font size="2">» Niver Colina</font></b></a></li>
<li><a href="Products.html"><b><font size="2">» Niver Jaborandi</font></b></a></li>
<li><a href="Services.html"><b><font size="2">» Empresa</font></b></a></li>
<li><a href="Support.html"><b><font size="2">» Histórico</font></b></a></li>
<li><a href="Order.html"><b><font size="2">» Equipe</font></b></a></li>
<li><a href="News.html"><b><font size="2">» Fale Conosco</font></b></a></li>
<li><a href="About.html"><b><font size="2">» E-mails</font></b></a></li>
<li><a href="Home.html"><b><font size="2">» Utilitários</font></b></a></li>

						</ul>
				</div></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000">
			<p align="left"><iframe name=nome src="admin/news/index.asp" frameborder="0" scrolling="NO" width="202" height="146"></iframe></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt"></td>
		</tr>
	  </table>
	  <p> </td>
	<td width="682" height="237">
	  <table width="548" cellspacing="0" cellpadding="0">
		<tr>
		  <td height="17" width="465" style="height: 12.75pt">
									<p align="center">
									</td>
		<tr>
		  <td height="17" width="465" style="height: 12.75pt">
		  </td>
		<tr>
		  <td height="17" width="465" style="height: 12.75pt">
		  <p align="left">

<table cellspacing="3">
  <tr height="17" style="height:12.75pt">
	<td height="102" class="xl24" width="128">
	  <table width="536">
		<col width="64" span="2" style="width:48pt">
		<tr height="17" style="height:12.75pt">
		  <td height="68" class="xl24" width="267" style="height: 51.0pt">
	  <FIELDSET 
	  style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; WIDTH: 225px; PADDING-TOP: 10px">
	  <img src="<%=rs("foto1")%>" width="314" height="209">
			</fieldset></td>
		  <td class="xl24" width="255">
			<table height="205" width="185">
			  <col width="64" style="width:48pt">
			  <tr height="17" style="height:12.75pt">
				<td height="20" width="177">
				  <p align="center"><span class="style30"><font face="Verdana" size="4"><%=rs("nome1")%></font></span></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="177" class="xl24" width="177">
				  <p align="center"><font size="2"><%=rs("descricao1")%></font></td>
			  </tr>
			</table>
		  </td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td colspan="2" height="17" class="xl24" style="height: 12.75pt" width="528">
			<table width="525" class="texto" style="border: 1px solid black">
			  <tr>
				<td height="17" width="517" style="height: 12.75pt" bgcolor="#F5F5F5">
				  <p align="right"><font size="2" face="Verdana"><a href="leia1.asp?id=<%=rs("id")%>">Leia ++</a></font></td>
			  </table>
		  </td>
		</tr>
	  </table>
	</td>
  </tr>
</table>


</td>
		<tr>
		  <td height="17" width="465" style="height: 12.75pt">

<table cellspacing="3">
  <tr height="17" style="height:12.75pt">
	<td height="102" class="xl24" width="128">
	  <table width="536">
		<col width="64" span="2" style="width:48pt">
		<tr height="17" style="height:12.75pt">
		  <td height="68" class="xl24" width="267" style="height: 51.0pt">
	  <FIELDSET 
	  style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; WIDTH: 225px; PADDING-TOP: 10px">
	  <img src="<%=rs("foto2")%>" width="314" height="209">
			</fieldset></td>
		  <td class="xl24" width="255">
			<table height="205" width="185">
			  <col width="64" style="width:48pt">
			  <tr height="17" style="height:12.75pt">
				<td height="20" width="177">
				  <p align="center"><span class="style30"><font face="Verdana" size="4"><%=rs("nome2")%></font></span></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="177" class="xl24" width="177">
				  <p align="center"><font size="2"><%=rs("descricao2")%></font></td>
			  </tr>
			</table>
		  </td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td colspan="2" height="17" class="xl24" style="height: 12.75pt" width="528">
			<table width="525" class="texto" style="border: 1px solid black">
			  <tr>
				<td height="17" width="517" style="height: 12.75pt" bgcolor="#F5F5F5">
				  <p align="right"><font size="2" face="Verdana"><a href="leia2.asp?id=<%=rs("id")%>">Leia ++</a></font></td>
			  </table>
		  </td>
		</tr>
	  </table>
	</td>
  </tr>
</table>


		  </td>
		<tr>
		  <td height="17" width="540" style="height: 12.75pt">

<table cellspacing="3">
  <col width="64" span="1" style="width:48pt">
  <tr height="17" style="height:12.75pt">
	<td height="102" class="xl24" width="128">
	  <table width="536">
		<col width="64" span="2" style="width:48pt">
		<tr height="17" style="height:12.75pt">
		  <td height="68" class="xl24" width="267" style="height: 51.0pt">
	  <FIELDSET 
	  style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; WIDTH: 225px; PADDING-TOP: 10px">
	  <img src="<%=rs("foto3")%>" width="314" height="209">
			</fieldset></td>
		  <td class="xl24" width="255">
			<table height="205" width="185">
			  <col width="64" style="width:48pt">
			  <tr height="17" style="height:12.75pt">
				<td height="20" width="177">
				  <p align="center"><span class="style30"><font face="Verdana" size="4"><%=rs("nome3")%></font></span></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="177" class="xl24" width="177">
				  <p align="center"><font size="2"><%=rs("descricao3")%></font></td>
			  </tr>
			</table>
		  </td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td colspan="2" height="17" class="xl24" style="height: 12.75pt" width="528">
			<table width="525" class="texto" style="border: 1px solid black">
			  <tr>
				<td height="17" width="517" style="height: 12.75pt" bgcolor="#F5F5F5">
				  <p align="right"><font size="2" face="Verdana"><a href="leia3.asp?id=<%=rs("id")%>">Leia ++</a></font></td>
			  </table>
		  </td>
		</tr>
	  </table>
	</td>
  </tr>
</table>


</td>
		</table>
	</td>
	<td width="599" height="237">
	  <FIELDSET 
	  style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; WIDTH: 125px; PADDING-TOP: 10px"><legend>Publicitario</legend>
			<table width="91">
			  <col width="64" style="width:48pt">
			  <tr height="17" style="height:12.75pt">
				<td height="17" width="89" style="height: 12.75pt"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89">
				  <p align="center"><FIELDSET 
	  style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; WIDTH: 125px; PADDING-TOP: 10px">Imagem
	  132x86</td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			</table>
	  </td>
  </tr>
</table>
<p align="center">
<font face="Verdana" size="1" color="#000000">
<% rs.MoveNext
Wend

anterior = pagina - 1
proxima = pagina + 1
ultima = rs.PageCount
primeira = 1
ultm2 = FormatNumber(rs.PageCount - 1,0)
If pagina <> 1 Then
Response.Write "<b>« <a href=princ.asp?pagina="&primeira&">Primeira Página</a></b> "
End If
If pagina > 1 AND pagina <> 2 Then
Response.Write "<b>[ <a href=princ.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "
End If
If pagina > 1 Then
Response.Write "<b>[ <a href=princ.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "
End If
Response.Write "<b>[ "&pagina&" ]</b> "
If Not rs.EOF Then
Response.Write "<b>[ <a href=princ.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "
End If
If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then
Response.Write "<b>[ <a href=princ.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "
End If
If Not rs.EOF Then
Response.Write "<b><a href=princ.asp?pagina="&ultima&">Última Página</a> »</b> "
End If

rs.Close
Set rs = Nothing
End If %>
			  </font>


</body>

xanburzum · Novembro 29, 2008

<%@LANGUAGE=VBScript%>

<%

' Define variaveis

dim recordsonpage, requestrecords, offset, allrecords, hiddenrecords, showrecords, lastrecord, recordcounter, pagelist, pagelistcounter

' DB connection

dim Conn

Set Conn = Server.CreateObject("ADODB.Connection")

sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=" & Server.MapPath("cddatabase.mdb") & ";" & _

"Persist Security Info=True"

Conn.Open(sConnection)

' records por page

recordsonpage = 10

' conta todos os records

allrecords = 0

set rs = conn.Execute("SELECT * FROM cds")

do until rs.EOF

allrecords = allrecords + 1

rs.movenext

loop

' if offset is zero then the first page will be loaded

offset = request.querystring("offset")

if offset = 0 OR offset = "" then

requestrecords = 0

else

requestrecords = requestrecords + offset

end if

' opens database

set rs = conn.Execute("SELECT * FROM cds ORDER BY cdid")

'Lê primeiros registros (offset) sem mostrar

hiddenrecords = requestrecords

do until hiddenrecords = 0 OR rs.EOF

hiddenrecords = hiddenrecords - 1

rs.movenext

if rs.EOF then

lastrecord = 1

end if

loop

%>

<html>

<head>

<title>CD Database</title>

</head>

<body>

<%

' imprime registros na tabela

showrecords = recordsonpage

recordcounter = requestrecords

do until showrecords = 0 OR rs.EOF

recordcounter = recordcounter + 1

%>

<tr>

</tr>

<%

showrecords = showrecords - 1

rs.movenext

if rs.EOF then

lastrecord = 1

end if

loop

%>

</table>

<p>

<tr>

</tr>

<tr>

<td colspan="2">pagelist:

<%

pagelist = 0

pagelistcounter = 0

do until pagelist > allrecords

pagelistcounter = pagelistcounter + 1

%>

<%

pagelist = pagelist + recordsonpage

loop

%>

</td>

</tr>

</table>

<%

' Closes connection

rs.close

Conn.close

%>

</body>

</html>

lezão · Novembro 29, 2008

xanburzum

cara legal deu certo, mas tem outro probleminha....

você sabe q jornais tem Nº de edições né ....

qnd entro na pagina ela exibe a edição passada tipo ( nº de edição 5.235 ) aparece 5.234

oq fazer para arrumar isso ..........????

xanburzum · Novembro 29, 2008

qual é a parte do código que é exibida...

lezão · Novembro 29, 2008

qnd você entrar na pagina vai aparecer um numero de edição .

este numero é menor do a atual

de uma olhada Visite meu site

xanburzum · Novembro 30, 2008

mas você nao esta recuperando o

<%=rs("numero")%>

fa ele pegar o 1º registro atraves da funcao SQL FIRST(),esta função

retorna o primeiro valor da coluna selecionada.

sql = "SELECT * FIRST(numero) FROM home ORDER BY id DESC"

lezão · Novembro 30, 2008

estou usando o codigo q você indicou ...

veja aonde esta o erro ...

pagina.asp

<%@LANGUAGE=VBScript%>
<%
' Define variaveis
dim recordsonpage, requestrecords, offset, allrecords, hiddenrecords, showrecords, lastrecord, recordcounter, pagelist, pagelistcounter

' DB connection
dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
  sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=" & Server.MapPath("dados/cadastro.mdb") & ";" & _
  "Persist Security Info=True"
Conn.Open(sConnection)

' records por page
recordsonpage = 1

' conta todos os records
allrecords = 0
set rs = conn.Execute("SELECT * FROM home ORDER BY id")
do until rs.EOF
  allrecords = allrecords + 1
  rs.movenext
loop

' if offset is zero then the first page will be loaded
offset = request.querystring("offset")
if offset = 0 OR offset = "" then
  requestrecords = 0
else
  requestrecords = requestrecords + offset
end if

' opens database
set rs = conn.Execute("SELECT * FROM home ORDER BY id")

'Lê primeiros registros (offset) sem mostrar
hiddenrecords = requestrecords
do until hiddenrecords = 0 OR rs.EOF
  hiddenrecords = hiddenrecords - 1
  rs.movenext
  if rs.EOF then
	lastrecord = 1
  end if
loop
%>

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <title>CD Database</title>
  <meta http-equiv="author" content="Tranzity">
				<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
				<title>princ</title>
  <style type="text/css">
<!--
body {
		font-family: Verdana;
		margin: 0;
		font-size: 80%;
		font-weight:;
		background: #FFF;
		}

h2 {
		font: bold 14px Verdana;
		color: #000;
		margin: 0px;
		padding: 0px 0px 0px 15px;
}

ul {
		list-style: none;
		margin: 0;
		padding: 0;
		}

img {
	border: none;
}

/*- Menu 4--------------------------- */

#menu4 {
		width: 200px;
		margin: 0px;
		border-style: solid solid none solid;
		border-color: #000;
		border-size: 1px;
		border-width: 1px;
		}

#menu4 li a {
		height: 32px;
		  voice-family: "\"}\"";
		  voice-family: inherit;
		  height: 24px;
		text-decoration: none;
		}

#menu4 li a:link, #menu4 li a:visited {
		color: #CCC;
		display: block;
		background:  url(menu4.gif);
		padding: 8px 0 0 10px;
		}

#menu4 li a:hover, #menu4 li #current {
		color: #FFF;
		background:  url(menu4.gif) 0 -32px;
		padding: 8px 0 0 10px;
		}
-->
</style>
  <STYLE type=text/css>

A:link { text-decoration: none}
A:visited { text-decoration: none}


</STYLE>


</head>
<body topmargin="0" leftmargin="0" link="#000000" vlink="#000000" alink="#000000">

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<table cellspacing="0" cellpadding="0" width="985" height="257">

							<tr>
  <col width="64" span="3" style="width:48pt">
  <tr height="17" style="height:12.75pt">
	<td height="20" width="202" bgcolor="#CCCCCC"><span class="style2"><font size="2" face="Verdana">Edição:
	  [color="#FF0000"][size="4"]<%=rs("ano")%> - <%=rs("numero")%> [/size][/color]   </font></span></td>
	<td width="682" bgcolor="#CCCCCC" height="20">
	  <p align="left"><script language="JavaScript">
<!--
ObjData = new Date();
var PegaDiaSemana = ObjData.getDay();
if (PegaDiaSemana == 0) { Semana = "Domingo"} else
	if (PegaDiaSemana == 1) { Semana = "Colina - Segunda-Feira"} else
	if (PegaDiaSemana == 2) { Semana = "Colina - Terça-Feira"} else
	if (PegaDiaSemana == 3) { Semana = "Colina - Quarta-Feira"} else
	if (PegaDiaSemana == 4) { Semana = "Colina - Quinta-Feira"} else
	if (PegaDiaSemana == 5) { Semana = "Colina - Sexta-Feira"} else
	if (PegaDiaSemana == 6) { Semana = "Colina - Sábado"}
var Dia = ObjData.getDate();
var PegaMes = ObjData.getMonth()+1;
if (PegaMes == 1) { Mes = "janeiro"} else
	if (PegaMes == 2) { Mes = "fevereiro"} else
	if (PegaMes == 3) { Mes = "março"} else
	if (PegaMes == 4) { Mes = "abril"} else
	if (PegaMes == 5) { Mes = "maio"} else
	if (PegaMes == 6) { Mes = "junho"} else
	if (PegaMes == 7) { Mes = "julho"} else
	if (PegaMes == 8) { Mes = "agosto"} else
	if (PegaMes == 9) { Mes = "setembro"} else
	if (PegaMes == 10) { Mes = "outubro"} else
	if (PegaMes == 11) { Mes = "novembro"} else
	if (PegaMes == 12) { Mes = "dezembro"}
var Ano = ObjData.getYear();
  if (Ano < 2000) {
	Ano = 1900+Ano;
  }

document.write ('<p class=resumo>' + Semana + ', ' + Dia + ' de ' + Mes + ' de ' + Ano);

// -->
						</script></td>
	<td width="599" bgcolor="#CCCCCC" height="20">
	  <p align="center"> </td>
  </tr>
  <tr height="17" style="height:12.75pt">
	<td height="237" width="202">
	  <table cellspacing="0" cellpadding="0">
		<col width="64" style="width:48pt">
		<tr height="17" style="height:12.75pt">
		  <td height="17" width="64" style="height:12.75pt;width:48pt">
			<div id="menu4">
						<ul>
					 
<li><a id="current" href="princ.asp">»<b><font size="2"> Home</font></b></a></li>
<li><a href="ss.asp"><b><font size="2">» Capas</font></b></a></li>
<li><a href="Services.html"><b><font size="2">» Principais notícias</font></b></a></li>
<li><a href="Support.html"><b><font size="2">» Classificados</font></b></a></li>
<li><a href="Order.html"><b><font size="2">» Sociais</font></b></a></li>
<li><a href="News.html"><b><font size="2">» Esportes</font></b></a></li>
<li><a href="About.html"><b><font size="2">» Panorama</font></b></a></li>
<li><a href="Home.html"><b><font size="2">» Niver Colina</font></b></a></li>
<li><a href="Products.html"><b><font size="2">» Niver Jaborandi</font></b></a></li>
<li><a href="Services.html"><b><font size="2">» Empresa</font></b></a></li>
<li><a href="Support.html"><b><font size="2">» Histórico</font></b></a></li>
<li><a href="Order.html"><b><font size="2">» Equipe</font></b></a></li>
<li><a href="News.html"><b><font size="2">» Fale Conosco</font></b></a></li>
<li><a href="About.html"><b><font size="2">» E-mails</font></b></a></li>
<li><a href="Home.html"><b><font size="2">» Utilitários</font></b></a></li>

						</ul>
				</div></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000">
			<p align="left"><iframe name=nome src="admin/news/index.asp" frameborder="0" scrolling="NO" width="202" height="146"></iframe></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt" bgcolor="#FF0000"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt"> 
			<p> </p>
			<p> </p>
			<p> </p>
			<p> </p>
			<p> </p>
			<p> </p>
			<p> </p>
			<p> </td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt"></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height:12.75pt"> 
			<p> </p>
			<p> </p>
			<p> </td>
		</tr>
	  </table>
	</td>
	<td width="682" height="237">
	  <table width="548" cellspacing="0" cellpadding="0">
		<tr>
		  <td height="17" width="465" style="height: 12.75pt">
									<table cellspacing="0" cellpadding="0" border="0" width="544">
<tr>
  <td width="198"><% if lastrecord <> 0 then %><a href="princ.asp?offset=<% = requestrecords - recordsonpage %>">Edição Anterior</a><% else %><% end if %></td>
  <td width="342">
	<p align="right"><% if requestrecords <> 1 then %>	<a href="princ.asp?offset=<% = requestrecords + recordsonpage %>">Próxima Edição</a><% else %><% end if %></p>
  </td>
</tr>
</table>
									</td>
		<tr>
		  <td height="17" width="465" style="height: 12.75pt">
		  </td>
		<tr>
		  <td height="17" width="465" style="height: 12.75pt">
		  <p align="left">

<table cellspacing="3">
  <tr height="17" style="height:12.75pt">
	<td height="102" class="xl24" width="128">
	  <table width="536">
		<col width="64" span="2" style="width:48pt">
		<tr height="17" style="height:12.75pt">
		  <td height="68" class="xl24" width="267" style="height: 51.0pt">
	  <FIELDSET 
	  style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; WIDTH: 225px; PADDING-TOP: 10px">
	  <img src="<%=rs("foto1")%>" width="314" height="209">
			</fieldset></td>
		  <td class="xl24" width="255">
			<table height="205" width="185">
			  <col width="64" style="width:48pt">
			  <tr height="17" style="height:12.75pt">
				<td height="20" width="177">
				  <p align="center"><span class="style30"><font face="Verdana" size="4"><%=rs("nome1")%></font></span></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="177" class="xl24" width="177">
				  <p align="center"><font size="2"><%=rs("descricao1")%></font></td>
			  </tr>
			</table>
		  </td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td colspan="2" height="17" class="xl24" style="height: 12.75pt" width="528">
			<table width="525" class="texto" style="border: 1px solid black">
			  <tr>
				<td height="17" width="517" style="height: 12.75pt" bgcolor="#F5F5F5">
				  <p align="right"><font size="2" face="Verdana"><a href="leia1.asp?id=<%=rs("id")%>">Leia ++</a></font></td>
			  </table>
		  </td>
		</tr>
	  </table>
	</td>
  </tr>
</table>


</td>
		<tr>
		  <td height="17" width="465" style="height: 12.75pt">

<table cellspacing="3">
  <tr height="17" style="height:12.75pt">
	<td height="102" class="xl24" width="128">
	  <table width="536">
		<col width="64" span="2" style="width:48pt">
		<tr height="17" style="height:12.75pt">
		  <td height="68" class="xl24" width="267" style="height: 51.0pt">
	  <FIELDSET 
	  style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; WIDTH: 225px; PADDING-TOP: 10px">
	  <img src="<%=rs("foto2")%>" width="314" height="209">
			</fieldset></td>
		  <td class="xl24" width="255">
			<table height="205" width="185">
			  <col width="64" style="width:48pt">
			  <tr height="17" style="height:12.75pt">
				<td height="20" width="177">
				  <p align="center"><span class="style30"><font face="Verdana" size="4"><%=rs("nome2")%></font></span></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="177" class="xl24" width="177">
				  <p align="center"><font size="2"><%=rs("descricao2")%></font></td>
			  </tr>
			</table>
		  </td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td colspan="2" height="17" class="xl24" style="height: 12.75pt" width="528">
			<table width="525" class="texto" style="border: 1px solid black">
			  <tr>
				<td height="17" width="517" style="height: 12.75pt" bgcolor="#F5F5F5">
				  <p align="right"><font size="2" face="Verdana"><a href="leia2.asp?id=<%=rs("id")%>">Leia ++</a></font></td>
			  </table>
		  </td>
		</tr>
	  </table>
	</td>
  </tr>
</table>


		  </td>
		<tr>
		  <td height="17" width="540" style="height: 12.75pt">

<table cellspacing="3">
  <col width="64" span="1" style="width:48pt">
  <tr height="17" style="height:12.75pt">
	<td height="102" class="xl24" width="128">
	  <table width="536">
		<col width="64" span="2" style="width:48pt">
		<tr height="17" style="height:12.75pt">
		  <td height="68" class="xl24" width="267" style="height: 51.0pt">
	  <FIELDSET 
	  style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; WIDTH: 225px; PADDING-TOP: 10px">
	  <img src="<%=rs("foto3")%>" width="314" height="209">
			</fieldset></td>
		  <td class="xl24" width="255">
			<table height="205" width="185">
			  <col width="64" style="width:48pt">
			  <tr height="17" style="height:12.75pt">
				<td height="20" width="177">
				  <p align="center"><span class="style30"><font face="Verdana" size="4"><%=rs("nome3")%></font></span></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="177" class="xl24" width="177">
				  <p align="center"><font size="2"><%=rs("descricao3")%></font></td>
			  </tr>
			</table>
		  </td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td colspan="2" height="17" class="xl24" style="height: 12.75pt" width="528">
			<table width="525" class="texto" style="border: 1px solid black">
			  <tr>
				<td height="17" width="517" style="height: 12.75pt" bgcolor="#F5F5F5">
				  <p align="right"><font size="2" face="Verdana"><a href="leia3.asp?id=<%=rs("id")%>">Leia ++</a></font></td>
			  </table>
		  </td>
		</tr>
	  </table>
	</td>
  </tr>
</table>


</td>
		</table>
	</td>
	<td width="599" height="237">
	  <FIELDSET 
	  style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; WIDTH: 125px; PADDING-TOP: 10px"><legend>Publicitario</legend>
			<table width="91">
			  <col width="64" style="width:48pt">
			  <tr height="17" style="height:12.75pt">
				<td height="17" width="89" style="height: 12.75pt"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89">
				  <p align="center"><FIELDSET 
	  style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; WIDTH: 125px; PADDING-TOP: 10px">Imagem
	  132x86</td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			  <tr height="17" style="height:12.75pt">
				<td height="17" style="height: 12.75pt" width="89"></td>
			  </tr>
			</table>
	  </td>
  </tr>
</table>


<%
' Closes connection
rs.close
Conn.close
%>

</body>
</html>

xanburzum · Novembro 30, 2008

você colocou a funcao SQL FIRST(),esta função

retorna o primeiro valor da coluna selecionada.

sql = "SELECT * FIRST(numero) FROM home ORDER BY id DESC"

~Thiago Lara · Dezembro 1, 2008

Cara eu tive esse mesmo "problema" ao fazer um site de um cliente da minha empresa! É um jornal local também e que deve existir edições anteriores...

E outra ele é quinzenal. Ou seja, não é mensal e eu tenho de exibir 2 resultados por mês mas nem todo resultado é por mês afinal podem coincidir de 3 jornais em um mesmo mês.. Dependendo de edições extraordinárias do mesmo!

Eu fiz o seguinte

Criei uma tabela auxiliar "edicoesxmaterias"

Basicamente como funciona uma galeria, com suas fotos... ou seja:

criei:

cd_edicao

cd_materia

Daí toda vez que eu preciso pegar uma matéria de determinada edição eu mando exibir todas as materias do banco onde a edicao é 328 por exemplo..

Lembrando que eu ainda tenho a tabela edicoes e a tabela materias !

Entendeu?

Se quiser visitar www.folhadasvertentes.com.br

abraços!

lezão · Dezembro 3, 2008

xanburzum ...

cara eu estou usando o codigo q você postou...

coloquei isso

sql = "SELECT * FIRST(numero) FROM home ORDER BY id DESC"

no codigo e naun deu certo esta parte é para o 1º codigo q eu postei ........

xanburzum · Dezembro 3, 2008

é gerado algum erro ?

qual banco você esta usando ?

lezão · Dezembro 4, 2008

estou usando o acess! http://forum.imasters.com.br/public/style_emoticons/default/natal_w00t.gif

xanburzum · Dezembro 4, 2008

No Access, a function First devolve um valor de campo a partir do primeiro registro no resultado de uma consulta.

A sintaxe para a function First é:

First ( expression )

O argumento é necessário a expressão do valor que você gostaria de voltar a partir do conjunto de resultados. A function First retorna apenas o primeiro valor no conjunto de resultados.

Exemplo

Firts(aluno)

Este exemplo usa a function First para retornar o primeiro valor de aluno.

Consulta SQL

Você também pode usar a function First de uma consulta.

SELECT First([aluno]) AS alunos
FROM Orders

lezão · Dezembro 20, 2008

Ola pessoal voltei, estava fora por motivo tecnico no pc ...

Ai galera agora descubri o problema em meu script, este script ele ja chama sempre o 1º valor e eu preciso q chame o ultimo tem como veja....

<%@LANGUAGE=VBScript%>
<%
' Define variaveis
dim recordsonpage, requestrecords, offset, allrecords, hiddenrecords, showrecords, lastrecord, recordcounter, pagelist, pagelistcounter

' DB connection
dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
  sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=" & Server.MapPath("dados/cadastro.mdb") & ";" & _
  "Persist Security Info=True"
Conn.Open(sConnection)

' records por page
recordsonpage = 1

' conta todos os records
allrecords = 0
set rs = conn.Execute("SELECT * FROM home ORDER BY id")
do until rs.EOF
  allrecords = allrecords + 1
  rs.movenext
loop

' if offset is zero then the first page will be loaded
offset = request.querystring("offset")
if offset = 0 OR offset = "" then
  requestrecords = 0
else
  requestrecords = requestrecords + offset
end if

' opens database
set rs = conn.Execute("SELECT * FROM home ORDER BY id")

'Lê primeiros registros (offset) sem mostrar
hiddenrecords = requestrecords
do until hiddenrecords = 0 OR rs.EOF
  hiddenrecords = hiddenrecords - 1
  rs.movenext
  if rs.EOF then
	lastrecord = 1
  end if
loop
%>

Arquivado

[Resolvido] sistema de jornal

Recommended Posts

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

desisto 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vagner Bucioli Scala 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

~Thiago Lara 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0