[Resolvido] Pop up com BD access.

[wilnet 92]

Olá pessoal, estou eu com mais uma dúvida em que não estou conseguindo.

 

Tenho um Script de Drop-in content box que peguei desse link: Veja o exemplo.

 

Até ai está tudo bem.

 

O que estou precisando e não estou conseguindo deixar redondinho sem erro é:

 

Quero que essa janela abra somente na HOME, no entanto, na área do ADM, tenho a opção de HABILITAR ou seja, tem um campo assim: Mostrar a Janela? Sim ou Não.

 

Se eu deixar marcado como Sim, ela será exibida toda vez que a HOME for aberta.

 

Se eu deixar marcado como Não, não será exibida na HOME.

 

Tenho no BD Access o campo de texto com as opções "Sim" e "Não".

 

 

Agradeço qualquer ajuda amigos.

 

Grato,

 

William

[DSerma 19]

Ta... e a sua dificuldade é ????

Basta você verificar no BD se o campo está como Sim ou Nao... se estiver como sim, você chama a poup-up... caso contrário....

 

Att;

[Patrique 0]

Utilize if else, veja se entende

 

variavelbd = RS("ativaounao")

If variavelbd = "sim" then
    Response.Write("aqui vai o code completo com js e html para mostrar o popup")
End If

[wilnet 92]

Darkdemo e Patrique, Obrigado pela contribuição.

 

Patrique eu fiz assim:

<%
Dim lista_news_home
set lista_news_home = DB.Execute("SELECT * FROM news_home ORDER BY id")
If lista_news_home("cad_ok") ="S" Then
Response.Write("Aqui vai o código")
End If
%>

Desta forma funciona legal como o esperado.

 

Mas quando inseri o código como disse da erro.

 

No entanto minha dúvida é, tem como eu inserir mesmo sem dar erro esse código todo dentro do response.Write como você disse? Isso é possível mesmo?

 

Veja o código todo.

 

<script language="JavaScript1.2">

// Drop-in content box- By Dynamic Drive
// For full source code and more DHTML scripts, visit http://www.dynamicdrive.com
// This credit MUST stay intact for use

var ie=document.all
var dom=document.getElementById
var ns4=document.layers
var calunits=document.layers? "" : "px"

var bouncelimit=32 //(must be divisible by 8)
var direction="up"

function initbox(){
if (!dom&&!ie&&!ns4)
return
crossobj=(dom)?document.getElementById("dropin").style : ie? document.all.dropin : document.dropin
scroll_top=(ie)? truebody().scrollTop : window.pageYOffset
crossobj.top=scroll_top-250+calunits
crossobj.visibility=(dom||ie)? "visible" : "show"
dropstart=setInterval("dropin()",50)
}

function dropin(){
scroll_top=(ie)? truebody().scrollTop : window.pageYOffset
if (parseInt(crossobj.top)<100+scroll_top)
crossobj.top=parseInt(crossobj.top)+40+calunits
else{
clearInterval(dropstart)
bouncestart=setInterval("bouncein()",50)
}
}

function bouncein(){
crossobj.top=parseInt(crossobj.top)-bouncelimit+calunits
if (bouncelimit<0)
bouncelimit+=8
bouncelimit=bouncelimit*-1
if (bouncelimit==0){
clearInterval(bouncestart)
}
}

function dismissbox(){
if (window.bouncestart) clearInterval(bouncestart)
crossobj.visibility="hidden"
}

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


window.onload=initbox

</script>




<div id="dropin" style="position:absolute;visibility:hidden;left:210px;top:0px;width:600px;height:400px;background-color:#F5F5F5">

<div align="right"><a href="#" onClick="dismissbox();return false">.:: FECHAR ::. </a></div>


 </div>

Grato.

 

William

[Patrique 0]

Toma ai

 

<%
Dim lista_news_home
set lista_news_home = DB.Execute("SELECT * FROM news_home ORDER BY id")
If lista_news_home("cad_ok") ="S" Then
%>
<script language="Javascript1.2">

// Drop-in content box- By Dynamic Drive
// For full source code and more DHTML scripts, visit http://www.dynamicdrive.com
// This credit MUST stay intact for use

var ie=document.all
var dom=document.getElementById
var ns4=document.layers
var calunits=document.layers? "" : "px"

var bouncelimit=32 //(must be divisible by 8)
var direction="up"

function initbox(){
if (!dom&&!ie&&!ns4)
return
crossobj=(dom)?document.getElementById("dropin").style : ie? document.all.dropin : document.dropin
scroll_top=(ie)? truebody().scrollTop : window.pageYOffset
crossobj.top=scroll_top-250+calunits
crossobj.visibility=(dom||ie)? "visible" : "show"
dropstart=setInterval("dropin()",50)
}

function dropin(){
scroll_top=(ie)? truebody().scrollTop : window.pageYOffset
if (parseInt(crossobj.top)<100+scroll_top)
crossobj.top=parseInt(crossobj.top)+40+calunits
else{
clearInterval(dropstart)
bouncestart=setInterval("bouncein()",50)
}
}

function bouncein(){
crossobj.top=parseInt(crossobj.top)-bouncelimit+calunits
if (bouncelimit<0)
bouncelimit+=8
bouncelimit=bouncelimit*-1
if (bouncelimit==0){
clearInterval(bouncestart)
}
}

function dismissbox(){
if (window.bouncestart) clearInterval(bouncestart)
crossobj.visibility="hidden"
}

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


window.onload=initbox

</script>




<div id="dropin" style="position:absolute;visibility:hidden;left:210px;top:0px;width:600px;height:400px;background-color:#F5F5F5">

<div align="right"><a href="#" onclick="dismissbox();return false">.:: FECHAR ::. </a></div>


 </div>
<% End If %>

[wilnet 92]

Patrique, muito grato, obrigado mesmo.

 

Agora está como desejo, agora vou criar o conteudo dessa BOX.

 

Sem o Response.Write, funcionou certinho.

 

Valeu amigo.

 

Muito obrigado por mais uma ajuda sua.

 

Resolvido.

[Patrique 0]

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif valew