Adaptar Slide Show de Noticias

[paulojorge3l 0]

Olá Pessoas estou a tempos procurando um slide show para noticias tipo esse do imasters ou do ibest hoje achei um em dhmtl aqui mesmo no forum mais em outra categoria vou colocar o codigo e gostaria de que alguem me ajudase a adaptar ele par que ele pegue as ultimas 5 noticias direto do banco de dados.... valew e obrigado...Código que contia aqui não deu certo abaixo um mais adeguado.

[jrcardozo 4]

podemos ajudar a adaptar, mas você tem que dar o pontapé inicial. Cadê o código asp? cadê a conexão?

[paulojorge3l 0]

Olá Jonathan eu vi todas as suas recomendações para que possa você possa ajudar alguém e concordo com você porque ajudar alguém que não tenta mais estou aqui tentando hehehe ... pensei em fazer uma conexão e usar um recordset mais como vou passar pra ele pegar as 3 ultimas noticias só dei conta de passar uma noticia as outras não sei como fazer vou colocar o codigo com o recordset como estou tentando ai você ou alguem me da uma luz de como fazer ele ler e alternar as 3 ultimas noticias. Deculpe por não ter colocado isso antes

 

Código que contia aqui não deu certo abaixo um mais adeguado.

[jrcardozo 4]

seguinte, se o DB for access o SQL fica assim

strSQL = "SELECT TOP 3 " & strDbTable & "noticia.* From " & strDbTable & "noticia ORDER BY DESC;"

caso mysql:

strSQL = "SELECT " & strDbTable & "noticia.* From " & strDbTable & "noticia LIMIT 3 ORDER BY DESC;"

Com isso você já tem três ultimos, agora só montar no html, siga a logica:

<div id="slideshow" name="slideshow">   <div id="links" name="links">	<ul><%i=1do while not rsCommon.eofif i=1 thenstat="ativo"elsestat="inativo"end if%> <li id="link<%=i%>" name="link<%=i%>" class="<%=stat%>"><a href="#">1</a></li><%rsCommon.movenexti=i+1loop%>	</ul>   </div><div id="slides" name="slides"><%i=1do while not rsCommon.eofif i=1 thenstat="visible"elsestat="hidden"end if%>	<div id="slide<%=i%>" name="slide<%=i%>" class="<%=stat%>">	 <span class="titulo">Título 1</span>	 <span class="conteudo"><img src="<% = rsCommon("foto")%>" width="100px" height="100px" style="float:left; margin: 8px; margin-left: 0;" /><% = rsCommon("texto")%>	 </span>	</div><%rsCommon.movenexti=i+1loopi=1%></div></div>

obviamente não testei, de repente esqueci de fechar alguma DIV, mas a ideia é essa, ai você monta tudo dinamicamente(eu acho hehehehe)

[paulojorge3l 0]

deu esse erro olhei mais não vi nada que eu possa mudar

 

Tipo de erro:

ADODB.Recordset (0x800A0E78)

Operação não permitida quando o objeto está fechado.

slideshow.asp, line 147

 

Linhas

 

145 <%

146 i=1

147 do while not rsCommon.eof

148 if i=1 then

149 stat="ativo"

150 else

151 stat="inativo"

152 end if

153 %>

[jrcardozo 4]

isso porque você colocou rsCommon.Closeantes de montar todo o htmlretire essa linha e coloque no final da página

[paulojorge3l 0]

Jonathan achei um slide show aqui mesmo no furum que vai me atender redondinho na minha nescessidade mais não está dando certo faze a coenxão com o banco você pode me ajudar ou alguem ai que saiba como fazer

 

<!--#include file="conexao.asp"--><%Set rs = Server.CreateObject("ADODB.Recordset")rs.CursorType = adOpenKeysetrs.Open "SELECT * FROM noticia WHERE data <= NOW ORDER BY idcod DESC", Conexao ,3,3Response.Write("<script>")Response.Write(vbnewline)Response.Write("var SlideShowSpeed = 5000;")Response.Write(vbnewline)Response.Write("var CrossFadeDuration = 3;")Response.Write(vbnewline)Response.Write("var Menu = new Array(); ")Response.Write(vbnewline)Response.Write("var Picture = new Array();")Response.Write(vbnewline)Response.Write("var Titulo = new Array();")Response.Write(vbnewline)Response.Write("var Caption = new Array();")Response.Write(vbnewline)Response.Write(vbnewline)Response.Write("Menu[1]  = 'destaque/menu001.jpg';")Response.Write(vbnewline)Response.Write("Menu[2]  = 'destaque/menu002.jpg';")Response.Write(vbnewline)Response.Write("Menu[3]  = 'destaque/menu003.jpg';")Response.Write(vbnewline)Response.Write("Menu[4]  = 'destaque/menu004.jpg';")Response.Write(vbnewline)Response.Write(vbnewline)for x = 1 to 4	pic = pic & vbnewline & "Picture["&x&"] = '"&rs.fields("img")&"';"	tit = tit & vbnewline & "Titulo["&x&"] = """&rs.fields("tipo_noticia")&""";"	cap = cap & vbnewline & "Caption["&x&"] = """&left(rs.fields("destaque"),40)&"..."";"	rs.movenextnextResponse.Write(pic)Response.Write(vbnewline)Response.Write(vbnewline)Response.Write(tit)Response.Write(vbnewline)Response.Write(vbnewline)Response.Write(cap)Response.Write(vbnewline)Response.Write(vbnewline)Response.Write("var tss;")Response.Write(vbnewline)Response.Write("var iss;")Response.Write(vbnewline)Response.Write("var tssMenu;")Response.Write(vbnewline)Response.Write("var issMenu;")Response.Write(vbnewline)Response.Write("var jss = 1;")Response.Write(vbnewline)Response.Write("var pss = Picture.length-1;")Response.Write(vbnewline)Response.Write("var pssMenu = Menu.length-1;")Response.Write(vbnewline)Response.Write(vbnewline)Response.Write("var preLoad = new Array();")Response.Write(vbnewline)Response.Write("for (iss = 1; iss < pss+1; iss++){")Response.Write(vbnewline)Response.Write("preLoad[iss] = new Image();")Response.Write(vbnewline)Response.Write("preLoad[iss].src = Picture[iss];}")Response.Write(vbnewline)Response.Write(vbnewline)Response.Write("var preLoadMenu = new Array();")Response.Write(vbnewline)Response.Write("for (issMenu = 1; issMenu < pssMenu+1; issMenu++){")Response.Write(vbnewline)Response.Write("preLoadMenu[issMenu] = new Image();")Response.Write(vbnewline)Response.Write("preLoadMenu[issMenu].src = Menu[issMenu];}")Response.Write(vbnewline)Response.Write(vbnewline)Response.Write("function runSlideShow(){")Response.Write(vbnewline)Response.Write("	if (document.all){")Response.Write(vbnewline)Response.Write("		document.images.PictureBox.style.filter=""blendTrans(duration=2)"";")Response.Write(vbnewline)Response.Write("		document.images.PictureBox.style.filter=""blendTrans(duration=CrossFadeDuration)"";")Response.Write(vbnewline)Response.Write("		document.images.PictureBox.filters.blendTrans.Apply();")Response.Write(vbnewline)Response.Write("	}")Response.Write(vbnewline)Response.Write("	if (document.all){")Response.Write(vbnewline)Response.Write("		document.images.MenuBox.style.filter=""blendTrans(duration=2)"";")Response.Write(vbnewline)Response.Write("		document.images.MenuBox.style.filter=""blendTrans(duration=CrossFadeDuration)"";")Response.Write(vbnewline)Response.Write("		document.images.MenuBox.filters.blendTrans.Apply();")Response.Write(vbnewline)Response.Write("	}")Response.Write(vbnewline)Response.Write("	document.images.PictureBox.src = preLoad[jss].src;")Response.Write(vbnewline)Response.Write("	document.images.MenuBox.src = preLoadMenu[jss].src;	")Response.Write(vbnewline)	Response.Write(vbnewline)Response.Write("	if (document.getElementById) document.getElementById(""CaptionBox"").innerHTML= Caption[jss];")Response.Write(vbnewline)Response.Write("	if (document.getElementById) document.getElementById(""TituloBox"").innerHTML= Titulo[jss];")Response.Write(vbnewline)Response.Write("	if (document.all) document.images.PictureBox.filters.blendTrans.Play();")Response.Write(vbnewline)Response.Write("	if (document.all) document.images.MenuBox.filters.blendTrans.Play();")Response.Write(vbnewline)Response.Write(vbnewline)Response.Write("	jss = jss + 1;")Response.Write(vbnewline)Response.Write("	if (jss > (pss)) jss=1;")Response.Write(vbnewline)Response.Write("		tss = setTimeout('runSlideShow()', SlideShowSpeed);")Response.Write(vbnewline)Response.Write("}")Response.Write(vbnewline)Response.Write("</script>")%><link href="estilo/estilo.css" rel="stylesheet" type="text/css"><style type="text/css"><!--.style1 {	color: #FFFFFF;	font-weight: bold;}--></style></head><body onload=runSlideShow()><table width="450" height="175" border=0 cellpadding=0 cellspacing=0>  <tr>	<td width=450 valign="top" background="images/destaque.jpg">	  <table width="450" height="158" border="0" cellpadding="2" cellspacing="2">		<tr>		  <td width="202" height="140" align="center" valign="bottom"><div align="center"><img src="img/carregando.jpg" name=PictureBox width=185 height=120 border="5" style="border-color:#FFFFFF; "></div></td>		  <td width="234" rowspan="2" valign="top"><table width="100%"  border="0" cellpadding="0" cellspacing="0" class="TextoPadrao">			<tr>				  <td height="13" align=left id=TituloBox style="font-family:verdana, arial; font-size:11px; color:#FFFFFF;">					<div align="left" style="font-family:verdana, arial; font-size:11px; color:#FFFFFF; font-weight:bold;">				</div></td>			</tr>			<tr>				  <td height="40" align=left style="font-family:verdana, arial; font-size:11px; color:#FFFFFF; font-weight:bold;" id=CaptionBox>					<div align="left" style="font-family:verdana, arial; font-size:11px; color:#FFFFFF; font-weight:bold; height:40px">				</div></td>			</tr>			<tr>			  <td height="57" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">				<tr>				  <td><div align="left" style="font-family:verdana, arial; font-size:11px; color:#FFFFFF;"><%=rs.fields("tipo_noticia")%></div></td>				</tr>				<tr>				  <td height="30"><div align="left" style="font-family:verdana, arial; font-size:11px; color:#FFFFFF; font-weight:bold;"><%=left(rs.fields("destaque"),40)%>...</div></td>				</tr>			  </table>			  <%			  if not rs.eof then				  rs.movenext			  end if			  %>			  </td>			</tr>			<tr>			  <td height="52" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">				<tr>				  <td><div align="left" style="font-family:verdana, arial; font-size:11px; color:#FFFFFF;"><%=rs.fields("tipo_noticia")%></div></td>				</tr>				<tr>				  <td height="30"><div align="left" style="font-family:verdana, arial; font-size:11px; color:#FFFFFF; font-weight:bold;"><%=left(rs.fields("descricao"),40)%>...</div></td>				</tr>			  </table></td>			</tr>		  </table></td>		</tr>		<tr>		  <td valign="top"><div align="center"><img src="destaque/menu.jpg" name=MenuBox width=201 height=22 ></div></td>		</tr>	  </table>	 </td>  </tr>  <tr>  </tr></table>

Colquei a conxão assim e deu o erro

 

<% Response.expires = 0Response.Buffer=TrueSet conn = Server.CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("teste.mdb")Set Rs = Server.CreateObject("ADODB.RecordSet")SQL = "SELECT * FROM noticia WHERE data <= NOW ORDER BY codid DESC" Set Rs = conn.execute(SQL)If Not Rs.EOF thenend ifrs.closeset rs = nothingconn.closeset conn=nothing%>

ERRO ABAIXO

 

ADODB.Recordset (0x800A0E7D)

A conexão não pode ser usada para realizar esta operação. Ela está fechada ou é inválida neste contexto.

[paulojorge3l 0]

Alguém pode me ajudar passei o final de semana tentando em casa faze uma conexão que funcionace com esse script alguem pode me ajudar não deu certo nada :(

[paulojorge3l 0]

Ae pessoal após quebrar muitooooooooooooo a cabeça deu conta de fazer a conexão sei que pode ser uma coisa facil para muitos mais pra mim foi um pouco complicado segue abaixo como fiz a conexão.

 

Obrigado a todos. e ao Kbssa que foi quem posto o código ai pra galera.

 

<% Set conexao = Server.CreateObject("ADODB.Connection")conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=W:\www\teste\teste.mdb"Conexao.Open Set RS = Server.CreateObject("ADODB.Recordset")RS.CursorType = adOpenKeysetrs.Open "SELECT * FROM tab_noticia WHERE data_noticia <= NOW ORDER BY id_noticia DESC", Conexao ,3,3