Banner em determinada página

Naty_Za · Fevereiro 14, 2007

Oi pessoal, to com um probleminha....

Eu faço atualizações no site http://www.guiadaembalagem.com.br

é um portal muito grande.. ñ fui eu q construi, mas sempre to atualizando, modficando etc.

é usado ness portal ASP com baco de dados MSDE

Se você olhar nele, do lado direito, a página chama "banners.asp".

na index não aparece os banners, mas conforme você vai entrando no setor escolhido, ele mostra o banner do lado.

ex: se entrar na index, ñ aparece o banner, mas se entrar num setor, aparece, olha o link:

http://www.guiadaembalagem.com.br/guia/sit...&classe=160

na classe 160 aparecem 2 banners: da Plano e da Vim Comunicação.

dependendo da classe q eu colocar, os banners de anunciantes aparecem na mesma página "banners.asp".

e como existem mais 13 mil cadastros, nós separamos em classes, e dá mais de 300 páginas de classes.. podendo colocar um banner em uma determina classe somente.. assim, conseguimos vender muuuitos espaços para colocar os banners.

até aqui tudo bem.

agora q vem a questão:

Meu chefe quer fazer a mesma coisa com o banner de cima, que está como imagem mesmo, e não puxando do banco, igual os do lado, ou seja, se eu trocar a imagem, vai mudar em todas as paginas, e em todos os setores, e eu não quero isso, quero poder colocar um banner em uma desterminada classe e setor, e q em outra classe esse banner não apareca, e sim apareça um outro, igual acontence nos banners do lado direito, utilizando, sempre a mesma pagina "top.asp".

Acho q deu pra entender né??

Então, eu peguei a mesma programação do "banners.asp" e coloquei no "top.asp" e não funciona.. já troquei os nomes, já coloquei exatamente a mesma pagina, como todos os códigos, eu já fiz de tudo e nada dá certo.

e sendo assim, o banner do topo fica limitado né.. só tem espaço pra 1, e com isso perdemos de vender mais espaços do banner do topo.

vou postar o código do

banners.asp / top.asp / site.asp ( que é a pagina onde são exibidos os cadastros, das classes)

banners.asp

<html><head><title>Guia da Embalagem - Tudo o que você queria saber sobre embalagens.</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="navbar.css" rel="stylesheet" type="text/css"></head><body><table width="120" border="0" align="right" cellpadding="0" cellspacing="5">  <tr> 	<td align="center" valign="bottom" bordercolor="#6699CC"><a href="anuncio_facil.asp"><img src="banners/banners/banners3_anunciof.jpg" width="120" height="45" border="0"></a></td>  </tr>  <tr> 	<td align="center" valign="middle" bordercolor="#6699CC">	  <!--s#include file="banners/santana/santana.asp"-->	  <!--s#include file="banners/plano/plano1.asp"-->	  <!--s#include file="banners/ivcor/ivcor.asp"-->	  <!--s#include file="banners/vimc/vimc.asp"-->	  <!--s#include file="banners/lavore/lavore.asp"-->	  <!--s#include file="banners/arqueflex/arqueflex.asp"-->	</td>  </tr>  <tr> 	<td align="center" valign="middle" bordercolor="#6699CC"><a href="http://www.submarino.com.br/default.asp?franq=127027" target="_blank"><img src="banners/submarino/120x120.jpg" width="120" height="120" border="0"></a></td>  </tr>  <tr> 	<td align="center" valign="middle"> 	  <%		set Conn = server.createobject("ADODB.Connection")Conn.open application("default_ConnectionString2")Dim livrosSet livros = Server.CreateObject("ADODB.RecordSet")livros.open "SELECT TOP 1 * FROM livros WHERE id >= (RAND() * (SELECT MAX(id) FROM livros))" , Conn, 2, 2%>	  <p><a href=<%=livros("link")%> target="_blank"><img src=<%=livros("imagem")%> width="120" height="180" border="2"></a> 		<%livros.Close %>	  </p></td>  </tr>  <tr>	<td align="center" valign="middle"><a href="destaque1.asp"><img src="banners/banners/banners3_destaques.jpg" width="120" height="45" border="0"></a></td>  </tr>  <tr> 	<td align="center" valign="middle"><a href="index.asp"><img src="banners/banners/banners3_noticias.jpg" width="120" height="45" border="0"></a></td>  </tr>  <tr> 	<td align="center" valign="middle"><a href="http://www.guiadaembalagem.com.br/guia/feiras.asp?classe=37&pagina=sitemenu&tabela=feiras"><img src="banners/banners/banners3_feirasbrasil.jpg" width="120" height="45" border="0"></a></td>  </tr>  <tr> 	<td align="center" valign="middle"><a href="http://www.guiadaembalagem.com.br/guia/feirasext.asp?classe=38&pagina=sitemenu&tabela=feirasext"><img src="banners/banners/banners3_feirasext.jpg" width="120" height="45" border="0"></a></td>  </tr>  <tr> 	<td align="center" valign="middle"><a href="http://www.guiadaembalagem.com.br/guia/glossa_int.asp?tipo=1001"><img src="banners/banners/banners3_glossario.jpg" width="120" height="45" border="0"></a></td>  </tr>  <tr> 	<td align="center" valign="middle"><a href="livros.asp?classe=1"><img src="banners/banners/banners3_livros.jpg" width="120" height="45" border="0"></a></td>  </tr>  <tr> 	<td align="center" valign="middle"><a href="cadastro.asp"><img src="banners/banners/banners3_cadastro.jpg" width="120" height="45" border="0"></a></td>  </tr>  <tr> 	<td align="center" valign="middle"><a href="ATUALIZE.ASP"><img src="banners/banners/banners3_atualize.jpg" width="120" height="45" border="0"></a></td>  </tr></table><p> </p></body></html>

top.asp

<html><head><title>Guia da Embalagem - Tudo o que você queria saber sobre embalagens.</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="navbar.css" rel="stylesheet" type="text/css"><script language=JavaScript1.2 id="Sothink Widgets:PageletServer.DynamicMenu" src="menu/stm31.js" type=text/javascript></SCRIPT></head><body><table width="790" height="82" border="0" cellpadding="0" cellspacing="0">  <tr> 	<td valign="top"><div align="left"><span class="noticias-home"><font color="#999999" size="1"><img src="imagens/logos/Logo_carna_mexe.gif" width="175" height="71"></font></span></div></td>	<td width="736" rowspan="2"> <div align="center"> 		<p align="right"> 		  <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="580" height="95">			<param name="movie" value="banners/tetra/tetra.swf">			<param name="quality" value="high">			<embed src="banners/tetra/tetra.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="580" height="95"></embed></object>		</p>	  </div></td>  </tr>  <tr> 	<td width="185" valign="top"><div align="center"><span class="noticias-home"><font color="#999999" size="1"><font color="#99CC33"><font class="noticias-home">		<script class="noticias-home">  <!--   // Array of month Namesvar monthNames = new Array("janeiro","fevereiro","março","abril","maio","junho","julho","agosto","setembro","outubro","novembro","dezembro");var now = new Date();thisYear = now.getYear();if(thisYear  < 1900) {thisYear += 1900}; // corrections if Y2K display problemdocument.write(now.getDate() + " de " + monthNames[now.getMonth()] + " de " + thisYear);// --> 			</script>		</font></font><br>		<font color="#99CC33"> <font class="noticias-home"> </font></font></font></span></div></td>  </tr></table><div align="center">   <!--s#include file="menusite.asp"-->  <!--s#include file="data.asp"--></div></body></html>

Naty_Za · Fevereiro 14, 2007

continuando.....

site.asp

<%@LANGUAGE="vb script:window.history.go(-1)"><img src="imagens/voltar.gif" name="Image15" border="0"></a></strong></font></p>	  <table width="461" border="1" align="center" cellspacing="0" bordercolor="ECF8FF">		<tr> 		  <td width="455" bgcolor="#FFFFFF"> <div align="center"> 			  <script type="text/javascript"><!--google_ad_client = "pub-7642027209718282";google_ad_width = 336;google_ad_height = 280;google_ad_format = "336x280_as";google_ad_type = "text_image";google_ad_channel ="";google_color_border = "FFFFFF";google_color_bg = "FFFFFF";google_color_link = "6699cc";google_color_url = "cccccc";google_color_text = "000000";//--></script>			  <script type="text/javascript"  src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>			   </div></td>		</tr>	  </table>	  <br>	  <table width="439" border="0" align="center" cellpadding="0" cellspacing="2">		<tr> 		  <td width="435"><p><font color="#0042ae" face="Verdana, Arial, Helvetica, sans-serif" size="4"><strong><%=request("titulo")%></strong></font><br>			</p>			</td>		</tr>		<tr> 		  <td><p align="left"> 			  <!-- #INCLUDE file="adovbs.asp" -->			  <%set Conn = server.createobject("ADODB.Connection")Conn.open application("default_ConnectionString")set rsmenu = server.createobject("ADODB.Recordset")sqlmenu = "select * from menu where id = "&classe&" "rsmenu.open sqlmenu, Conn, 3, 3rsmenu.movefirstDim iPageSize	   'How big our pages areDim iPageCount	  'The number of pages we get backDim iPageCurrent	'The page we want to showDim strOrderBy	  'A fake parameter used to illustrate passing themDim strSQL		  'SQL command to executeDim objPagingConn   'The ADODB connection objectDim objPagingRS	 'The ADODB recordset objectDim iRecordsShown   'Loop controller for displaying just iPageSize recordsDim I			   'Standard looping varDim ItemiPageSize = 13If Request.QueryString("page") = "" Then	iPageCurrent = 1Else	iPageCurrent = CInt(Request.QueryString("page"))End IfIf Request.QueryString("order") = "" Then	strOrderBy = "titulo"Else	strOrderBy = Request.QueryString("order")End If'Set objPagingConn = Server.CreateObject("ADODB.Connection")'objPagingConn.Open ConnStringSet objPagingRS = Server.CreateObject("ADODB.Recordset")objPagingRS.PageSize = iPageSizeobjPagingRS.CacheSize = iPageSizeclasse=request("classe")strSQL = "select * from site where classe like '"& classe &"' ORDER BY titulo" objPagingRS.Open strSQL, Conn, adOpenStatic, adLockReadOnly, adCmdTextiPageCount = objPagingRS.PageCountIf iPageCurrent > iPageCount Then iPageCurrent = iPageCountIf iPageCurrent < 1 Then iPageCurrent = 1If iPageCount = 0 Then	Response.Write "<font face='Arial', size='5' color='red'>Sem registro!</font>"Else	objPagingRS.AbsolutePage = iPageCurrent	%>			  <font face="Verdana, Arial, Helvetica, sans-serif" size="3" color="#6699CC"><b><%=rsmenu("titulo")%></b></font> 			  <%Do While iRecordsShown < iPageSize And Not objPagingRS.EOF%>			</p>			<p align="left"> 			  <%					iRecordsShown = iRecordsShown + 1		objPagingRS.MoveNext	Loop	End IfobjPagingRS.CloseSet objPagingRS = Nothing'objPagingConn.Close'Set objPagingConn = Nothing%>			<p align="left"> 			  <%if request("classe") = "" then%>			<h3 align="left"><font face="Verdana">Por favor digite uma palavra 			  chave</font></h3>			<div align="left">			  <%elseif request("classe") = "hack" or request("classe") = "crack" then %>			</div>			<h3 align="left"><font face="Verdana">Desculpe, palavra chave não 			  autorizada</font></h3>			<div align="left"> 			  <% else %>			  <%Dim mypage, mypagesizemypage=request.querystring("whichpage")mypagesize=request("pagesize")If  mypage="" then   mypage=1end ifIf  mypagesize="" then  mypagesize=13end if Dim RS, sql set RS = Server.CreateObject("ADODB.Recordset")classe = request("classe")sql =  "select * from site where classe like '"& classe &"' ORDER BY titulo" RS.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdTextif NOT RS.EOF thenRS.movefirst	RS.pagesize=mypagesize Dim maxpages, maxpage, maxrecs, howmanyrecs, howmanyfields Dim close, open, iResultCount, ok Dim whichpage, all  RS.Movefirst maxpages=cint(RS.pagecount) maxpage = maxpages maxrecs=cint(RS.pagesize) RS.absolutepage=mypage howmanyrecs=0 howmanyfields=RS.fields.count -1 close = "]" open = "["else close = "" open = ""end ifif NOT RS.Eof Then iResultCount = (mypagesize * (mypage - 1)) + 1 else iResultCount = "0" end if if iResultCount + 9 > RS.recordcount then	ok = RS.recordcount	else	ok = iResultCount + 9  end if all = RS.recordcountdo UNTIL RS.eof OR howmanyrecs>=maxrecsif NOT RS.eof thenlink = RS("site")name = RS("titulo")description = RS("texto")endereco = RS("endereco")email = RS("email")uf = RS("uf")cep = RS("cep")cidade = RS("cidade")tel = RS("tel")%>			  <br>			  <font size="3" color="#6699CC" face="Verdana, Helvetica, sans-serif"> 			  <%if RS("site") = "" then%>			  <%else%>			  <%if RS("site") <> "" then%>			  <a href=" http://<%=RS("site")%>" target="blank"> 			  <%end if%>			  <%end if%>			  <%=RS("titulo")%></a><font size="1"> </font></font><br>			  <font size="2" face="Arial, Verdana, Helvetica, sans-serif" color="000000"><i><%=RS("texto")%></i> 			   <br>			  <%=RS("endereco")%><br>			  <%if RS("tel") <> "" thenresponse.write "Fone " & Replace(RS("tel"), "Tel", "")end if%>			    <%=RS("cidade")%>  <%=RS("uf")%>  <%=RS("cep")%> 			   </font><br>			  <a href="mailto:<%=RS("email")%>"> <font size="-1" color="#999999" face="Verdana, Arial, Helvetica, sans-serif"><%=RS("email")%></font></a><font face="Verdana"><br>			  <% iResultCount = iResultCount + 1end ifRS.Movenextresponse.flushhowmanyrecs=howmanyrecs+1loopmaxrecs = RS.recordcount%>			  </font></div>			<p align="left"> 			  <%if Not iResultCount = 0 thenDim w2, pad, k2, ref, scriptname, isPrev, isNext, isEnd, counterDim nextpage, prevpage, intPageDisp, counterstart, counterend, pagesize2, againpad=""scriptname=request.servervariables("script_name")if iResultCount <> "0" Then  response.write "<font size='2' color='#6699cc' face='Verdana, Arial,Helvetica, sans-serif'> Resultados: "elseend if	  if (mypage mod 10) = 0 then	   counterstart = mypage - 9	  else	   counterstart = mypage - (mypage mod 10) + 1	  end if	  counterend = counterstart + 9	  if counterend > maxpages then counterend = maxpages	   Response.Write open	   for counter=counterstart to counterend	   If counter>=10 then	   pad=""	   end if	   if cstr(counter) <> mypage then	   ref="<a href='" & scriptname	   ref=ref & "?whichpage=" & counter & "&pagesize=" & mypagesize	   ref=ref & "&classe=" & classe & "'>" & pad & counter & "</a>"	   else	   ref="<b>" & pad & counter & "</b>"	   end if	   response.write ref	   if counter <> counterend then response.write " "	  next	  Response.Write close' Find out if there should be Backward or Forward Buttons on the table.intPageDisp = Falseif mypage = 1 AND RS.recordcount = 9 then   isPrev = False   isNext = False   isEnd = Trueelseif mypage = 1 then   isPrev = False   isNext = True   isEnd = Falseelseif mypage > 1 AND ok = RS.recordcount then   isPrev = True   isNext = False   isEnd = Trueelse   isPrev = True   isNext = True   isEnd = FalseEnd Ifif RS.recordcount <= 10 thenisNext = Falseelsenextpage = mypage + 1prevpage = mypage - 1end ifIf isPrev = False AND isNext = True AND isEnd = False thenw2 = "  <strong><a HREF=" & scriptname & "?whichpage=" & nextpage & "&pagesize=" & mypagesize & "&classe=" & classe & "><font face=Arial size=2>[Próxima >]</font></a></strong>"k2 = ""End Ifif isPrev = True AND isNext = True AND isEnd = False thenw2 = "  <strong><a HREF=" & scriptname & "?whichpage=" & prevpage & "&pagesize=" & mypagesize & "&classe=" & classe & "><font face=Arial size=2>[< Anterior]</font></a></strong>"k2 = "  <strong><a HREF=" & scriptname & "?whichpage=" & nextpage & "&pagesize=" & mypagesize & "&classe=" & classe & "><font face=Arial size=2>[Próxima >]</font></a></strong>"end ifif isPrev = True AND isNext = False AND isEnd = True thenw2 = "  <strong><a HREF=" & scriptname & "?whichpage=" & prevpage & "&pagesize=" & mypagesize & "&classe=" & classe & "><font face=Arial size=2>[< Anterior]</font></a></strong>"k2 = ""end ifif isPrev = False AND isNext = False AND isEnd = true thenw2 = ""k2 = ""end ifresponse.write w2 & k2response.write "" & again%>			  <% elseresponse.write "<center><br>Sem Registro</center>"end ifRS.closeset RS=nothingend if%>			   </p>			<p align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#6699CC"><b><%=mypage & ".a "%> página de <%=iPageCount%> </b></font> </p></td>		</tr>		<tr align="center"> 		  <td height="2">  </td>		</tr>	  </table>	  <p> 		<script type="text/javascript"><!--google_ad_client = "pub-7642027209718282";google_ad_width = 468;google_ad_height = 60;google_ad_format = "468x60_as";google_ad_type = "text_image";google_ad_channel ="";google_color_border = "FFFFFF";google_color_bg = "FFFFFF";google_color_link = "6699cc";google_color_url = "cccccc";google_color_text = "000000";//--></script>		<script type="text/javascript"  src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>		 </p>	  <p> </p></td>	<td width="130" colspan="2" align="right" valign="top"> 	  <!--s#include file="banners.asp"-->	</td>  </tr></table><div align="center">  <table width="780" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">	<tr> 	 <td width="21" height="20" background="imagens/canto_esq_inf.gif"> </td>	  <td><div align="center"><font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif">		  <!--s#include file="rodape.asp"-->		  </font></div></td>	 	  <td width="21" height="20" background="imagens/canto_dir_inf.gif"> </td>	</tr>  </table></div><script src="http://www.google-analytics.com/urchin.js" type="text/javascript"> </script> <script type="text/javascript"> _uacct = "UA-276170-1"; urchinTracker(); </script></body></html><% 'Server.Execute("metatraffic/track.asp") %>

Por favor, me ajudem!!!

Obrigada

Natália

Entrar

Arquivado

Banner em determinada página

Recommended Posts

Naty_Za 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Naty_Za 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante