Alterar Default

Diego_Fenixweb · Novembro 9, 2009

Eu estou com um projeto atrasadissímo.

Estou desenvolvendo um site de uma casa noturna!!!

E cada dia da semana terá entrada diferente.

Na default aparece a cor escolhida para o fundo, a imagem conforme o dia, o titulo da imagem, a POPup

A área administrativa funcionou beleza mas agora estou QUEBRANDO A CUCA para aparecer no site

Segue Abaixo os campos do banco de dados em SQL SERVER!

- Tabela: New_EntradaConfigs

=============================================================================================|

|RedirectAtivo UnicaImagem FundoCor FundoLetra FundoImagem Redirect |

|FundoMostra PopUpImagem PopUpURL PopUpMostra PopUpLarg PopUpAlt |

=============================================================================================|

Tabela: New_EntradaDias

SegMostra >

SegImagem1 > SegImagem2 > SegImagem3 > SegTitulo1 > SegTitulo2 > SegTitulo3

TerMostra >

TerImagem1 > TerImagem2 > TerImagem3 > TerTitulo1> TerTitulo2>TerTitulo3

>QuaMostra >

QuaImagem1 > QuaMostra2, QuaMostra3 > QuaTitulo1, QuaTitulo2, QuaTitulo3

>QuiMostra >

QuiImagem1 > QuiImagem2, QuiImagem3 > QuiTitulo1, QuiTitulo2, QuiTitulo3

>SexMostra >

SexImagem1 > SexImagem2, SexImagem3 > SexTitulo1, SexTitulo2, SexTitulo3

>SabMostra >

SabImagem1 > SabImagem2, SabImagem3 > SabTitulo1, SabTitulo2, SabTitulo3

>DomMostra >

DomImagem1 > DomImagem2, DomImagem3 > DomTitulo1,DomTitulo2,DomTitulo3

Alguem da um help por GENTILEZA, dicas serão muito bem vindas também!!!

Segue abaixo que não funciona =/

<!--#Include File="Admin_Configs.asp"-->
<%Call AbreConexao(Conex)%>
<%
SQL1 = "SELECT TOP 1 * From New_EntradaDias Order BY ID Desc"
SQL8 = "SELECT TOP 1 * From New_EntradaConfigs Order BY ID Desc"

Set rs1 = Conex.Execute(SQL1)
Set rsConfiguracoes = Conex.Execute(SQL8)

	If rsConfiguracoes("UnicaImagem") = "Não" Then Response.Redirect ""& rsConfiguracoes("Redirect") &""
'If rsConfiguracoes("mostrar_unico") = "Não" and rsConfiguracoes("mostrar_varias") = "Não"  Then Response.Redirect "" & rsConfiguracoes("redirect") & ""
'If rsConfiguracoes("RedirectATIVO") = "Não" and rsConfiguracoes("mostrar_varias") = "Não"  Then Response.Redirect "" & rsConfiguracoes("redirect") & ""
%>
<html>
<head>
<meta http-equiv="Content-Language" content="pt-br">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>O BARBARO BAR & RESTAURANTE DANCING</title>
<%
'---------------- PopUp ----------------
If rsConfiguracoes("PopUpMostra") = "Sim" Then
	Set Jpeg = Server.CreateObject("Persits.Jpeg")
	
	'Jpeg.Open "E:\home\obarbaro\web\entrada\imagens_index_programacao\" & Replace(rsConfiguracoes("imagemdapopup"),"http://www.obarbaro.com.br/entrada/imagens_index_programacao/", "")
	Jpeg.Open "C:\inetpub\wwwroot\obarabaro.com.br"
	
	PopUpLargura = Jpeg.OriginalWidth
	PopUpAltura = Jpeg.OriginalHeight
	
	Set Jpeg = Nothing
	
	Response.Write "<script language=""javascript"">" & vbNewLine & _
	"<!--" & vbNewLine & _
	"function Remote() {" & vbNewLine & _
	"var remote = null" & vbNewLine & _
	"remote = window.open('"&rsConfiguracoes("PopUpUrl")&"','promocao','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,menubar=no,width="& PopUpLargura &",height="& PopUpAltura &"')" & vbNewLine & _
	"if (remote != null) {" & vbNewLine & _
	"remote.location.href = '"&rsConfiguracoes("PopUpUrl")&"'" & vbNewLine & _
	"}" & vbNewLine & _
	"}" & vbNewLine & _
	"Remote();" & vbNewLine & _
	"// -->" & vbNewLine & _
	"</script>"
End If
'----------------------------------------------------- PopUp -----------------------------------------------------------------------
%>

<script type="text/javascript">

var description=new Array()
description[1]='<b><%=rsDias("SegTitulo1")%>'
description[2]='<b><%=rsDias("SegTitulo2")%>'
description[3]='<b><%=rsDias("SegTitulo3")%>'

description[4]='<b><%=rsDias("TerTitulo1")%>'
description[5]='<b><%=rsDias("TerTitulo2")%>'
description[6]='<b><%=rsDias("TerTitulo3")%>'

description[7]='<b><%=rsDias("QuaTitulo1")%>'
description[8]='<b><%=rsDias("QuaTitulo2")%>'
description[9]='<b><%=rsDias("QuaTitulo3")%>'

description[10]='<b><%=rsDias("QuiTitulo1")%>'
description[11]='<b><%=rsDias("QuiTitulo2")%>'
description[12]='<b><%=rsDias("QuiTitulo3")%>'

description[13]='<b><%=rsDias("SexTitulo1")%>'
description[14]='<b><%=rsDias("SexTitulo2")%>'
description[15]='<b><%=rsDias("SexTitulo3")%>'

description[16]='<b><%=rsDias("SabTitulo1")%>'
description[17]='<b><%=rsDias("SabTitulo2")%>'
description[18]='<b><%=rsDias("SabTitulo3")%>'

description[19]='<b><%=rsDias("DomTitulo1")%>'
description[20]='<b><%=rsDias("DomTitulo2")%>'
description[21]='<b><%=rsDias("DomTitulo3")%>'

iens6=document.all||document.getElementById
ns4=document.layers

<!--GLOBAL VARIABLES-->
var thename
var theobj
var thetext
var winHeight
var winPositionFromTop
var winWidth
var startH=2
var openTimer
<!--END GLOBAL VARIABLES-->

<!--GLOBAL FUNCTIONS-->

function ietruebody(){
return (document.compatMode && document.compatMode!="BackCompat")? document.documentElement : document.body
}

function setObj(text,theswitch,inwidth,inheight) {
	thetext=text
	if(iens6){
		thename = "viewer"
		theobj=document.getElementById? document.getElementById(thename):document.all.thename
		winHeight=100
			if(iens6&&document.all) {
				winPositionFromTop=!window.opera? ietruebody().clientHeight : document.body.clientHeight
				winWidth=(ietruebody().clientWidth-ietruebody().leftMargin)
			}
			if(iens6&&!document.all) {
				winPositionFromTop=window.innerHeight
				winWidth=(window.innerWidth-(ietruebody().offsetLeft+30))
			}
			if(theswitch=="override") {
				winWidth=inwidth
				winHeight=inheight
			}
		theobj.style.width=winWidth+"px"
		theobj.style.height=startH+"px"
			if(iens6&&document.all) {
				theobj.style.top=ietruebody().scrollTop+winPositionFromTop+"px"
				//window.status=winPositionFromTop
				theobj.innerHTML = ""
				theobj.insertAdjacentHTML("BeforeEnd","<table cellspacing=0 width="+winWidth+" height="+winHeight+" border=1><tr><td width=100% valign=top><font face='Verdana' size='2' style='color:<%=rsConfiguracoes("corletradosite")%>;font-weight:normal'>"+thetext+"</font></td></tr></table>")
			}
			if(iens6&&!document.all) {
				theobj.style.top=window.pageYOffset+winPositionFromTop+"px"
				theobj.innerHTML = ""
				theobj.innerHTML="<table cellspacing=0 width="+winWidth+" height="+winHeight+" border=1><tr><td width=100% valign=top><font face='Verdana' size='2' style='color:black;font-weight:normal'>"+thetext+"</font></td></tr></table>"
			}
	}
	if(ns4){
		thename = "nsviewer"
		theobj = eval("document."+thename)
		winPositionFromTop=window.innerHeight
		winWidth=window.innerWidth
		winHeight=100
			if(theswitch=="override") {
				winWidth=inwidth
				winHeight=inheight
			}
		theobj.moveTo(0,eval(window.pageYOffset+winPositionFromTop))
		theobj.width=winWidth
		theobj.clip.width=winWidth
		theobj.document.write("<table cellspacing=0 width="+winWidth+" height="+winHeight+" border=1><tr><td width=100% valign=top><font face='Verdana' size='2' style='color:black;font-weight:normal'>"+thetext+"</font></td></tr></table>")
		theobj.document.close()
	}
	viewIt()
}

function viewIt() {
	if(startH<=winHeight) {
		if(iens6) {
			theobj.style.visibility="visible"
				if(iens6&&document.all) {
					theobj.style.top=(ietruebody().scrollTop+winPositionFromTop)-startH+"px"
				}
				if(iens6&&!document.all) {
					theobj.style.top=(window.pageYOffset+winPositionFromTop)-startH+"px"
				}
			theobj.style.height=startH+"px"
			startH+=2
			openTimer=setTimeout("viewIt()",10)
		}
		if(ns4) {
			theobj.visibility = "visible"
			theobj.moveTo(0,(eval(window.pageYOffset+winPositionFromTop)-startH))
			theobj.height=startH
			theobj.clip.height=(startH)
			startH+=2
			openTimer=setTimeout("viewIt()",10)
		}
	}else{
		clearTimeout(openTimer)
	}
}

function stopIt() {
	if(iens6) {
		theobj.innerHTML = ""
		theobj.style.visibility="hidden"
		startH=2
	}
	if(ns4) {
		theobj.document.write("")
		theobj.document.close()
		theobj.visibility="hidden"
		theobj.width=0
		theobj.height=0
		theobj.clip.width=0
		theobj.clip.height=0
		startH=2
	}
}
<!--END GLOBAL FUNCTIONS-->
</script>

<!--PopUp interna-->
<script>

var dragapproved=false
var minrestore=0
var initialwidth,initialheight
var ie5=document.all&&document.getElementById
var ns6=document.getElementById&&!document.all

function iecompattest(){
return (!window.opera && document.compatMode && document.compatMode!="BackCompat")? document.documentElement : document.body
}

function drag_drop(e){
if (ie5&&dragapproved&&event.button==1){
document.getElementById("dwindow").style.left=tempx+event.clientX-offsetx+"px"
document.getElementById("dwindow").style.top=tempy+event.clientY-offsety+"px"
}
else if (ns6&&dragapproved){
document.getElementById("dwindow").style.left=tempx+e.clientX-offsetx+"px"
document.getElementById("dwindow").style.top=tempy+e.clientY-offsety+"px"
}
}

function initializedrag(e){
offsetx=ie5? event.clientX : e.clientX
offsety=ie5? event.clientY : e.clientY
document.getElementById("dwindowcontent").style.display="none" //extra
tempx=parseInt(document.getElementById("dwindow").style.left)
tempy=parseInt(document.getElementById("dwindow").style.top)

dragapproved=true
document.getElementById("dwindow").onmousemove=drag_drop
}

function loadwindow(url,width,height){
if (!ie5&&!ns6)
window.open(url,"","width=width,height=height,scrollbars=1")
else{
document.getElementById("dwindow").style.display=''
document.getElementById("dwindow").style.width=initialwidth=width+"px"
document.getElementById("dwindow").style.height=initialheight=height+"px"
document.getElementById("dwindow").style.left="30px"
document.getElementById("dwindow").style.top=ns6? window.pageYOffset*1+30+"px" : iecompattest().scrollTop*1+30+"px"
document.getElementById("cframe").src=url
}
}

function maximize(){
if (minrestore==0){
minrestore=1 //maximize window
document.getElementById("maxname").setAttribute("src","imagens_index_programacao/restore.gif")
document.getElementById("dwindow").style.width=ns6? window.innerWidth-20+"px" : iecompattest().clientWidth+"px"
document.getElementById("dwindow").style.height=ns6? window.innerHeight-20+"px" : iecompattest().clientHeight+"px"
}
else{
minrestore=0 //restore window
document.getElementById("maxname").setAttribute("src","imagens_index_programacao/max.gif")
document.getElementById("dwindow").style.width=initialwidth
document.getElementById("dwindow").style.height=initialheight
}
document.getElementById("dwindow").style.left=ns6? window.pageXOffset+"px" : iecompattest().scrollLeft+"px"
document.getElementById("dwindow").style.top=ns6? window.pageYOffset+"px" : iecompattest().scrollTop+"px"
}

function closeit(){
document.getElementById("dwindow").style.display="none"
}

function stopdrag(){
dragapproved=false;
document.getElementById("dwindow").onmousemove=null;
document.getElementById("dwindowcontent").style.display="" //extra
}
</script>
<!--PopUp interna-->
<style type="text/css">

#dhtmltooltip{
position: absolute;
width: 150px;
border: 1px solid black;
padding: 2px;
background-color: lightyellow;
visibility: hidden;
z-index: 100;
/*Remove below line to remove shadow. Below line should always appear last within this CSS*/
filter: progid:DXImageTransform.Microsoft.Shadow(color=gray,direction=135);
}

</style>

<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
</head>
<body style="overflow-x:hidden;overflow-y:hidden;" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" rightmargin="0" bottommargin="0" link="#0000FF" vlink="#0000FF" alink="#0000FF" bgcolor="<% = rsConfiguracoes("corfundodosite") %>" text="#<% = rsConfiguracoes("corletradosite") %>">

<div id="dhtmltooltip" style="font-family: Verdana; font-size: 10pt; color: #000000; font-weight: bold"></div>

<script type="text/javascript">

var offsetxpoint=-60 //Customize x offset of tooltip
var offsetypoint=20 //Customize y offset of tooltip
var ie=document.all
var ns6=document.getElementById && !document.all
var enabletip=false
if (ie||ns6)
var tipobj=document.all? document.all["dhtmltooltip"] : document.getElementById? document.getElementById("dhtmltooltip") : ""

function ietruebody(){
return (document.compatMode && document.compatMode!="BackCompat")? document.documentElement : document.body
}

function ddrivetip(thetext, thecolor, thewidth){
if (ns6||ie){
if (typeof thewidth!="undefined") tipobj.style.width=thewidth+"px"
if (typeof thecolor!="undefined" && thecolor!="") tipobj.style.backgroundColor=thecolor
tipobj.innerHTML=thetext
enabletip=true
return false
}
}

function positiontip(e){
if (enabletip){
var curX=(ns6)?e.pageX : event.clientX+ietruebody().scrollLeft;
var curY=(ns6)?e.pageY : event.clientY+ietruebody().scrollTop;
//Find out how close the mouse is to the corner of the window
var rightedge=ie&&!window.opera? ietruebody().clientWidth-event.clientX-offsetxpoint : window.innerWidth-e.clientX-offsetxpoint-20
var bottomedge=ie&&!window.opera? ietruebody().clientHeight-event.clientY-offsetypoint : window.innerHeight-e.clientY-offsetypoint-20

var leftedge=(offsetxpoint<0)? offsetxpoint*(-1) : -1000

//if the horizontal distance isn't enough to accomodate the width of the context menu
if (rightedge<tipobj.offsetWidth)
//move the horizontal position of the menu to the left by it's width
tipobj.style.left=ie? ietruebody().scrollLeft+event.clientX-tipobj.offsetWidth+"px" : window.pageXOffset+e.clientX-tipobj.offsetWidth+"px"
else if (curX<leftedge)
tipobj.style.left="5px"
else
//position the horizontal position of the menu where the mouse is positioned
tipobj.style.left=curX+offsetxpoint+"px"

//same concept with the vertical position
if (bottomedge<tipobj.offsetHeight)
tipobj.style.top=ie? ietruebody().scrollTop+event.clientY-tipobj.offsetHeight-offsetypoint+"px" : window.pageYOffset+e.clientY-tipobj.offsetHeight-offsetypoint+"px"
else
tipobj.style.top=curY+offsetypoint+"px"
tipobj.style.visibility="visible"
}
}

function hideddrivetip(){
if (ns6||ie){
enabletip=false
tipobj.style.visibility="hidden"
tipobj.style.left="-1000px"
tipobj.style.backgroundColor=''
tipobj.style.width=''
}
}

document.onmousemove=positiontip

</script>

<!--PopUp interna-->
<div id="dwindow" style="position:absolute;background-color:#EBEBEB;cursor:hand;left:0px;top:0px;display:none" onMousedown="initializedrag(event)" onMouseup="stopdrag()" onSelectStart="return false">
<div align="right" style="background-color:navy"><img src="entrada/imagens_index_programacao/close.gif" onClick="closeit()"></div>
<div id="dwindowcontent" style="height:100%">
<iframe id="cframe" src="" width=100% height=100%></iframe>
</div>
</div>
<!--PopUp interna-->

<layer name="nsviewer" bgcolor="#FFFFCC" style="border-width:thin;z-index:1"></layer>
<script type="text/javascript">
if (iens6){
document.write("<div id='viewer' style='background-color:#FFFFCC;visibility:hidden;position:absolute;left:0;width:0;height:0;z-index:1;overflow:hidden;border:0px ridge white'></div>")
}
if (ns4){
	hideobj = eval("document.nsviewer")
	hideobj.visibility="hidden"
}
</script>

<center>
	<table border="0" width="776" id="table3" cellspacing="0" cellpadding="0" background="<%
				if rsConfiguracoes("FundoMostra") = "Sim" then
				Response.Write(""& rsConfiguracoes("fundocor") &"")
				else
				Response.Write("imagens_index_programacao/spacer.gif")
				end if
				%>" height="430">
		<tr>
			<td>
			<table border="0" width="100%" id="table4" cellspacing="0" cellpadding="0">
          <tr>
            <td width="230" valign="top"> 
			<table border="0" width="100%" id="table31" cellspacing="0" cellpadding="0">
				<tr>
					<td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" ID="transparencia" WIDTH="231" HEIGHT="198">
<param NAME="movie" VALUE="http://www.obarbaro.com.br/logoflash1.swf">'>http://www.obarbaro.com.br/logoflash1.swf">
<param NAME="quality" VALUE="High">
<param NAME="wmode" Value="transparent">
<embed src="http://www.obarbaro.com.br/logoflash1.swf" quality="High" WIDTH="231" HEIGHT="198" TYPE="application/x-shockwave-flash" wmode="transparent" name="transparencia" >
</object></td>
				</tr>
				<tr>
					<td> </td>
				</tr>
				<tr>
					<td>
					<table border="0" width="100%" id="table32" cellspacing="0" cellpadding="0">
						<tr>
							<td width="115" align="center">
		          <a href="http://www.obarbaro.com.br/default.asp">
			<img src="Imagens/Entrada" width="89" height="28" alt="" border="0"></a></td>
							<td rowspan="2" align="center">
							<object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj1" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="120" height="200">
								<param name="movie" value="torta.swf">
								<param name="quality" value="High">
								<param name="wmode" value="transparent">
								<embed src="torta.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj1" width="120" height="200" quality="High" wmode="transparent"></object>							</td>
						</tr>
						<tr>
							<td width="115" align="center">
			<font face="Arial">
			<a href="#" onClick="window.open('flyer.asp','Janela','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=466,height=528'); return false;">
			<font size="1" color="#FFCC00">
			<img src="imagens_index_programacao/programa_18.gif" width="92" height="41" alt="" border="0"></font></a></font><font size="1" face="Arial" color="#FFCC00"><br>
			<br>
			Proibida a entrada de menores de 18 anos e <br>
            homens com: bermuda, shorts, boné,camiseta regata ou camisa de time 
            de futebol.</font></td>
						</tr>
					</table>					</td>
				</tr>
				<tr>
					<td align="center"><object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj1" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="225" height="78">
					<param name="movie" value="Logos.swf">
					<param name="quality" value="High">
					<param name="wmode" value="transparent">
					<embed src="Logos.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj1" width="225" height="78" quality="High" wmode="transparent"></object></td>
				</tr>
				<tr>
					<td align="center"><font face="Arial" size="1" color="#FFCC00">Se beber não dirija / Beba com responsabilidade</font></td>
				</tr>
				<tr>
					<td>
					<p align="center"></td>
				</tr>
			</table>
			</td>
					<td rowspan="5" align="center" valign="top">
					<table width="90%" border="0" cellpadding="0" cellspacing="0" id="table5">
<%
'-----------INÍCIO DO MOSTRAR SEGUNDA-----------
If rs1("mostrar") = "Sim" Then
%>
                <tr>
							
                  <td width="18%">
<%
If Weekday(date) = "2" then
	Response.write "<img src='imagens_index_programacao/bot_segunda_on.gif' width='100' height='40'>"
Else
	Response.write "<img src='imagens_index_programacao/bot_segunda_off.gif' width='100' height='40'>"
End If
%>
				  </td>
							
                  <td> 
                    <table border="0" cellpadding="1" cellspacing="0" id="table30">
                      <tr>
									
                        <td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
<%
While NOT rs1.EOF
%>
                          <a href="#" onMouseover="ddrivetip('<%=rs1("SegTitulo1")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
 If IsNull(rs1("SegImagem1")) or rs1("SegImagem1") = "" then
Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
else
Response.write "<img border='0' src='" & rs1("SegImagem1") & "' & width='122' height='70'>"
end if
%>
                          </a> </font></td>
									
                        <td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
                          <a href="#" onMouseover="ddrivetip('<%=rs1("SegTitulo2")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
 If isNull(rs1("SegImagem2")) or rs1("SegImagem2") = "" then
Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
else
Response.write "<img border='0' src='" & rs1("SegImagem") & "' & width='122' height='70'>"
end if
%>
                          </a> </font></td>
									
                        <td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
                          <a onMouseover="ddrivetip('<%=rs1("SegImagem3")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
If isNull(rs1("SegImagem3")) or rs1("SegImagem3") = "" then
	Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
Else
	Response.write "<img border='0' src='" & rs1("SegIagem3") & "' & width='122' height='70'>"
End if
%>
                          </a> 
<%
rs1.movenext
Wend
'end if
%>
                          </font></td>
								</tr>
							</table></td>
						</tr>
<%
' -----------FIM DO MOSTRAR SEGUNDA-----------
End If

'-----------INÍCIO DO MOSTRAR TERÇA-----------
If rs1("TerMostra") = "Sim" Then
%>
						<tr>
							<td width="18%">
<%
If Weekday(date) = "3" Then
Response.write "<img src='imagens_index_programacao/bot_terca_on.gif' width='100' height='40'>"
Else
Response.write "<img src='imagens_index_programacao/bot_terca_off.gif' width='100' height='40'>"
End if
%>
							</td>
							<td>
							<table border="0" cellpadding="1" cellspacing="0" id="table29">
                      <tr>
									
                        <td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
                          <%
While not rs1.eof
%>
                          <a onMouseover="ddrivetip('<%=rs1("TerTitulo1")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
If isNull(rs1("TerImagem1")) or rs1("TerImagem1") = "" then
	Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
Else
	Response.write "<img border='0' src='" & rs1("TerTitulo1") & "' & width='122' height='70'>"
End if
%>
                          </a> </font></td>
									
                        <td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
                          <a onMouseover="ddrivetip('<%=rs1("TerTitulo2")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
If isNull(rs1("TerImagem2")) or rs1("TerImagem2") = "" then
	Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
Else
	Response.write "<img border='0' src='" & rs1("TerImagem2") & "' & width='122' height='70'>"
End if
%>
                          </a> </font></td>
									
                        <td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
                          <a onMouseover="ddrivetip('<%=rs1("TerTitulo3")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
If isNull(rs1("TerTitulo3")) or rs1("TerTitulo3") = "" then
	Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
Else
	Response.write "<img border='0' src='" & rs1("TerImagem3") & "' & width='122' height='70'>"
End if
%>
                          </a> 
<%
rs1.movenext
Wend
'end if
%>
                          </font></td>
								</tr>
							</table></td>
						</tr>
<%
' -----------FIM DO MOSTRAR TERÇA-----------
End If

'-----------INÍCIO DO MOSTRAR QUARTA-----------
if rs1("QuaMostra1") = "Sim" then
%>
<tr>
	<td>
<%
If Weekday(date) = "4" then
	Response.write "<img src='imagens_index_programacao/bot_quarta_on.gif' width='100' height='40'>"
Else
	Response.write "<img src='imagens_index_programacao/bot_quarta_off.gif' width='100' height='40'>"
End if
%>
							</td>
							<td>
							<table border="0" cellpadding="1" cellspacing="0" id="table28">
                      <tr>
									
                        <td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
<%
While not rs1.eof
%>
                          <a onMouseover="ddrivetip('<%=rs1("QuaTitulo1")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
If isNull(rs1("QuaImagem1")) or rs1("QuaImagem1") = "" then
Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
else
Response.write "<img border='0' src='" & rs1("QuaImagem1") & "' & width='122' height='70'>"
end if
%>
                          </a> </font></td>
									
                        <td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
                          <a onMouseover="ddrivetip('<%=rs1("QuaImagem2")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
                          <%
If isNull(rs1("QuaImagem2")) or rs1("QuaImagem2") = "" then
	Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
Else
	Response.write "<img border='0' src='" & rs1("QuaImagem2") & "' & width='122' height='70'>"
End if
%>
                          </a> </font></td>
									
                        <td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
                          <a onMouseover="ddrivetip('<%=rs1("QuaTitulo3")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
If isNull(rs1("QuaImagem3")) or rs1("QuaImagem3") = "" then
	Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
Else
	Response.write "<img border='0' src='" & rs1("QuaTitulo3") & "' & width='122' height='70'>"
End if
%>
  </a> 
<%
rs1.MoveNext
wend
'end if
%>
                          </font></td>
								</tr>
							</table></td>
						</tr>
<%
' -----------FIM DO MOSTRAR QUARTA-----------
End If
'-----------INÍCIO DO MOSTRAR QUINTA-----------
If rs1("QuiMostra") = "Sim" then
%>
						<tr>
							<td>
<%
If Weekday(date) = "5" Then
	Response.write "<img src='imagens_index_programacao/bot_quinta_on.gif' width='100' height='40'>"
Else
	Response.write "<img src='imagens_index_programacao/bot_quinta_off.gif' width='100' height='40'>"
End if
%>
							</td>
							<td>
							<table border="0" cellpadding="1" cellspacing="0" id="table27">
                      <tr>
									
                        <td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
                          <%
While Not rs1.EOF
%>
                          <a onMouseover="ddrivetip('<%=rs1("QuiTitulo1")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
If isNull(rsQuinta("QuiImagem1")) or rs1("QuiImagem1") = "" then
	Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
Else
	Response.write "<img border='0' src='" & rs1("QuiImagem1") & "' & width='122' height='70'>"
End if
%>
                          </a> </font></td>
									
                        <td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
                          <a onMouseover="ddrivetip('<%=rs1("QuiTitulo2")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
	If isNull(rs1("QuiImagem2")) or rs1("QuiImagem2") = "" then
		Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
	Else
		Response.write "<img border='0' src='" & rs1("QuiImagem2") & "' & width='122' height='70'>"
	End if
%>
                          </a> </font></td>
									
                        <td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
                          <a onMouseover="ddrivetip('<%=rs1("QuiTitulo3")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
	If isNull(rs1("QuiTitulo3")) or rs1("QuiTitulo3") = "" Then
		Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
	Else
		Response.write "<img border='0' src='" & rs1("QuiTitulo3") & "' & width='122' height='70'>"
	End if
%>
                          </a> 
<%
rs1.movenext
wend
'end if
%>
		</font></td>
			</tr>
		</table></td>
	</tr>
<%
' -----------FIM DO MOSTRAR QUINTA-----------
End if

'-----------INÍCIO DO MOSTRAR SEXTA-----------
If rs1("QuiMostra") = "Sim" Then
%>
	<tr>
		<td>
<%
If Weekday(date) = "6" then
	Response.write "<img src='imagens_index_programacao/bot_sexta_on.gif' width='100' height='40'>"
Else
	Response.write "<img src='imagens_index_programacao/bot_sexta_off.gif' width='100' height='40'>"
End if
%>
							</td>
							<td>
							<table border="0" cellpadding="1" cellspacing="0" id="table26">
                      <tr>
									
                        <td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
<%
While not rs1.eof
%>
<a onMouseover="ddrivetip('<%=rs1("SexTitulo1")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
If isNull(rs1("SexImagem1")) or rs1("SexImagem1") = "" then
	Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
Else
	Response.write "<img border='0' src='" & rs1("SexImagem1") & "' & width='122' height='70'>"
End if
%>
                          </a> </font></td>
									
	<td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
	  <a onMouseover="ddrivetip('<%=rs1("SexImagem2")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
If isNull(rs1("SexImagem2")) or rs1("SexImagem2") = "" then
	Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
Else
	Response.write "<img border='0' src='" & rs1("SexImagem2") & "' & width='122' height='70'>"
End if
%>
	  </a> </font></td>
				
	<td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
	  <a onMouseover="ddrivetip('<%=rs1("SexTitulo3")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
If isNull(rs1("SexImagem3")) or rs1("SexImagem3") = "" then
	Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
Else
	Response.write "<img border='0' src='" & rs1("SexTitulo3") & "' & width='122' height='70'>"
End If
%>
                          </a> 
<%
rs1.movenext
Wend
'end if
%>
                          </font></td>
								</tr>
							</table></td>
						</tr>
<%
' -----------FIM DO MOSTRAR SEXTA-----------
End If

'-----------INÍCIO DO MOSTRAR SÁBADO-----------
If rs1("SabMostra") = "Sim" then
%>
						<tr>
							<td>
<%
 if Weekday(date) = "7" then
Response.write "<img src='imagens_index_programacao/bot_sabado_on.gif' width='100' height='40'>"
else
Response.write "<img src='imagens_index_programacao/bot_sabado_off.gif' width='100' height='40'>"
end if
%>
							</td>
							<td>
							<table border="0" cellpadding="1" cellspacing="0" id="table25">
                      <tr>
									
                        <td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
<%
While Not rs1.EOF
%>
	  <a onMouseover="ddrivetip('<%=rs1("SabTitulo1")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
If isNull(rs1("SabImagem1")) or rs1("SabImagem1") = "" then
	Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
Else
	Response.write "<img border='0' src='" & rs1("SabImagem1") & "' & width='122' height='70'>"
End if
%>
                          </a> </font></td>
		<td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
                          <a onMouseover="ddrivetip('<%=rs1("SabTitulo2")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
 if isNull(rs1("SabImagem2")) or rs1("SabImagem2") = "" then
Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
else
Response.write "<img border='0' src='" & rs1("SabImagem2") & "' & width='122' height='70'>"
end if
%>
                          </a> </font></td>
									
                        <td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
                          <a onMouseover="ddrivetip('<%=rs1("SabImagem3")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
If isNull(rs1("SabImagem3")) or rs1("SabImagem3") = "" then
	Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
Else
	Response.write "<img border='0' src='" & rs1("SabImagem3") & "' & width='122' height='70'>"
End if
%>
	</a> 
<%
rs1.movenext
Wend
'end if
%>
	  </font></td>
			</tr>
		</table></td>
	</tr>
<%
' -----------FIM DO MOSTRAR SÁBADO-----------
End if
'-----------INÍCIO DO MOSTRAR DOMINGO-----------
If rs1("DomMostra") = "Sim" then
%>
	<tr>
		<td>
<%
If Weekday(date) = "1" then
	Response.write "<img src='imagens_index_programacao/bot_domingo_on.gif' width='100' height='40'>"
Else
	Response.write "<img src='imagens_index_programacao/bot_domingo_off.gif' width='100' height='40'>"
End if
%>
						</td>
							<td>
							<table width="100%" border="0" cellpadding="1" cellspacing="0" id="table24">
                      <tr>
                        <td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
<%
While not rs1.EOF
%>
                          <a onMouseover="ddrivetip('<%=rs1("DomTitulo1")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
                          <%

If isNull(rs1("DomImagem1")) or rs1("DomImagem1") = "" then
	Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
Else
	Response.write "<img border='0' src='" & rs1("DomImagem1") & "' & width='122' height='70'>"
End if
%>
                          </a> </font></td>
									
                        <td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
                          <a onMouseover="ddrivetip('<%=rs1("DomImagem2")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
 if isNull(rs1("DomImagem")) or rs1("DomImagem2") = "" then
Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
else
Response.write "<img border='0' src='" & rs1("DomImagem2") & "' & width='122' height='70'>"
end if
%>
	</a> </font></td>
	<td align="center" width="122"> <font face="Verdana" style="font-size: 7pt"> 
		<a onMouseover="ddrivetip('<%=rs1("DomTitulo3")%>', 'FBED04', 250)"; onMouseout="hideddrivetip()"> 
<%
If isNull(rs1("DomImagem3")) or rs1("DomImagem3") = "" then
	Response.write "<img border='0' src='imagens_index_programacao/noimagem.jpg' width='0' height='0'>"
Else
	Response.write "<img border='0' src='" & rs1("DomImagem3") & "' & width='122' height='70'>"
End if
%>
	</a> 
<%
rs1.MoveNext
Wend
'end if
%>
		  </font></td>
				</tr>
			</table></td>
		</tr>
<%
' -----------FIM DO MOSTRAR DOMINGO-----------
end if

'-----------INÍCIO DO MOSTRAR ÚNICA IMAGEM-----------
if rsConfiguracoes("UnicaImagem") = "Sim" Then
%>
					</table>
<table border="0" width="90%" cellspacing="0" cellpadding="0">
	<tr>
		<td align="center">
		<img src="<%
		if rsConfiguracoes("UnicaImagem") = "" then
		Response.Write "Imagens_index_programacao/spacer.gif"
		else
		Response.Write ""& rsConfiguracoes("UnicaImagem") &""
		end if
%>"> 
		</td>
	</tr>
</table>
<%
' -----------FIM DO MOSTRAR ÚNICA IMAGEM-----------
End if
%>
			</table>
			</td>
			</tr>
		</table>
		</td>
	</tr>
</table>
</center>
</body>
</html>

Patrique · Novembro 9, 2009

Hein? não entendi, ta dando erro? o que era pra fazer, coloque a linha apenas de onde ocorre o problema

Mário Monteiro · Novembro 18, 2009

ficou vago mesmo

você disse que não funciona mas não disse o que exatamente

Entrar

Arquivado

Alterar Default

Recommended Posts

Diego_Fenixweb 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

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