Ir para conteúdo
Fórum Script Brasil
  • 0

Abir Janela

lsardinha

Perguntado por lsardinha,

 Share

Pergunta

lsardinha

lsardinha

Postado
Postado

Fiz um album de fotos e ele mostra primeiramente uma foto pequena, até aqui já fiz, o que não sei fazer é clicar na foto e ela abrir em uma janela do tipo pop-up...

  	Response.Write "<div align=""center""><table border=0 cellpadding=15 cellspacing=0 width=""80%"">"
  	contar = 0
  	Do while not rsFotos.eof 
    If contar = 4 Then 
    	Response.Write "<tr>"
    End If 
    If contar <> 5 Then 
    	Response.Write "<TR>"
    End If 
    	imagemp=rsFotos("Foto_P")
    	imagem=rsFotos("foto")
    If RsFotos.eof then exit do
    	Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>"
    	contar = contar +1
    	rsFotos.MoveNext
    If RsFotos.eof then exit do
    	imagemp=rsFotos("Foto_P") 
    	imagem=rsFotos("foto")
    	Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>"
    	contar = contar + 1
    	rsFotos.MoveNext
    If RsFotos.eof then exit do
    	imagemp=rsFotos("Foto_P") 
    	imagem=rsFotos("foto")    	
    	Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>"
    	contar = contar + 1
    	rsFotos.MoveNext
    If RsFotos.eof then exit do
    	imagemp=rsFotos("Foto_P") 
    	imagem=rsFotos("foto")    	
    	Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>"
    	contar = contar + 1
    	rsFotos.MoveNext
  	Loop
  	Response.Write "</tr></table></div>"
  	End if

Link para o comentário
Compartilhar em outros sites

27 respostass a esta questão

Posts Recomendados

  • 0
cyberalexxx

cyberalexxx

Postado
Postado

Isso é Javascript:

função que abre janela:

function abre()
<script>
{
window.open("fotos.asp","","width=320,height=270,top=100,left=100,scrollbars=no,menubar=no,directories=no,location=no,copyhistory=no,status=no,toolbar=no,maximized=yes,resizable=no");
}
</script>
depois coloque assim no hiperlink: 
<a href=javascript:abre()>clique aqui para ampliar</a>

Link para o comentário
Compartilhar em outros sites
  • 0
lsardinha

lsardinha

Postado
  • Autor
Postado

Esse erro que dá é o seguinte:

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xa8c Thread 0x10f4 DBC 0x2602014 Jet' do Registro.

/teste/fotos/fotos.asp, line 7

Eu acho que é porque ele não achou o banco de dados, estou usando include na página index e aí o endereço para o banco fica diferente... o que fazer nesse caso?

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado
Esse erro que dá é o seguinte:

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xa8c Thread 0x10f4 DBC 0x2602014 Jet' do Registro.

/teste/fotos/fotos.asp, line 7

Eu acho que é porque ele não achou o banco de dados, estou usando include na página index e aí o endereço para o banco fica diferente... o que fazer nesse caso?

Posta a linha q ta dando erro pra gente dar uma olhada.

Link para o comentário
Compartilhar em outros sites
  • 0
lsardinha

lsardinha

Postado
  • Autor
Postado

1 <%

2 cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb")

3 DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath

4

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

6

7 Conn.Open DataSource

8

9 'Abre o Recordset

10 Set Rs = Server.CreateObject( "ADODB.Recordset" )

11 RS.ActiveConnection = Conn

12 'Set Rs=conn.execute("Select * From fotos_eventos order by 2")

13 %>

Link para o comentário
Compartilhar em outros sites
  • 0
lsardinha

lsardinha

Postado
  • Autor
Postado

Esse esta ocorrendo por causa do caminho que quando abre a janela deveria ser ...

2 cnpath="DBQ=" & Server.MapPath("../dados/intranet.mdb")

e não:

2 cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") (Como esta)

só que quando coloco do primeiro jeito ocorre o erro:

na página que mostra as fotos, pois o caminho pra ela tem que ser

2 cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb")

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado
Esse esta ocorrendo por causa do caminho que quando abre a janela deveria ser ...

2 cnpath="DBQ=" & Server.MapPath("../dados/intranet.mdb")

e não:

2 cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") (Como esta)

só que quando coloco do primeiro jeito ocorre o erro:

na página que mostra as fotos, pois o caminho pra ela tem que ser

2 cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb")

já tentou assim???

cnpath="DBQ=" & Server.MapPath("/dados/intranet.mdb")

Link para o comentário
Compartilhar em outros sites
  • 0
lsardinha

lsardinha

Postado
  • Autor
Postado

fiz o teste e ele não encontra o banco de dados

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xa8c Thread 0x10f4 DBC 0x260edcc Jet' do Registro.

/teste/fotos/fotos.asp, line 7

Link para o comentário
Compartilhar em outros sites
  • 0
lsardinha

lsardinha

Postado
  • Autor
Postado

VEJA O CODIGO INTEIRO:

<%
cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") 
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 

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

Conn.Open DataSource

'Abre o Recordset
Set Rs = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Conn
'Set Rs=conn.execute("Select * From fotos_eventos order by 2")
%>
<html>
<head>
<script language="JavaScript">
<!--
function abre()
{
window.open("fotos/fotos.asp","","width=480,height=360,top=100,left=100,scrollbars=no,menubar=no,directories=no,location=no,copyhistory=no,status=no,toolbar=no,maximized=yes,resizable=no");
}
//-->
</script>

<title>Intranet - Agência de Fomento de Goiás S/A</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../estilos/intranet.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="610" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <TD width=15><IMG height=8 src="../imagens/1px.gif" width=8></TD>
  </tr>

  <tr> 
    <td width="15" align="center" valign="middle"> <div align="center"><IMG height=8 src="../imagens/1px.gif" width=15></div></td>
    <td align="center" valign="top"><table width="595" border="0" cellspacing="0" cellpadding="0">
        <tr bgcolor="#3399CC"> 
          <td width="610" height="20" bgcolor="#3399CC"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>FOTOS</strong></font></div></td>
        </tr>
      </table> 
      <table width="595" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="20" valign="middle" class="texto"><strong> </strong><span class="t&iacute;tulo-paginas"><font size="1" face="Verdana"> 
<% 
idevento=request.querystring("idevento")
evento=request.querystring("evento")

'/////COMECA AS CATEGORIAS
	If idevento = "" Then
  Set RsEvento = Conn.Execute("SELECT * FROM fotos_eventos ORDER BY 2")
  If RsEvento.EOF Then
  	Response.Write "Nenhuma evento encontrado!"
  Else

  	While not RsEvento.EOF
    Response.Write "<table width=595 border=0 cellspacing=0 cellpadding=0>"
    Response.Write "<tr><td height=20 bgcolor=#ECF8FF>&nbsp;<img src='imagens/tópico.gif' width='8' height='8'>&nbsp;<a href=""index.asp?lcl=fotos&idevento="&RsEvento("id")&"&evento="&RsEvento("Evento")&""" class='linkclaro'>"&RsEvento("Evento")&"</a></td></tr>"
    Response.Write "<tr><td height=5 align=""center"" class=""textointrodutorio""><img src=""imagens/5px.gif"" width=""5"" height=""5""></td></tr>"
    Response.Write "</table>"
    RsEvento.Movenext
  	Wend
  End If

'/////COMECA AS FOTOS
	Else
  'Response.Write "<font size=2><B><span class='textointrodutorio'>"& Evento &"</span></font></b><BR><BR>"
  Response.Write "<table width=595 border=0 cellspacing=0 cellpadding=0>"
  Response.Write "<tr><td height=5 align=""center"" class=""textointrodutorio""><img src=""imagens/5px.gif"" width=""5"" height=""5""></td></tr>"
  Response.Write "<tr><td height=20 align=""center"" bgcolor=#C4E4FD class=""textointrodutorio"">"& Evento &"</td></tr>"  
  Response.Write "</table>"
  Set rsFotos = Conn.Execute("SELECT * FROM fotos WHERE idevento="&idevento&"")
  If rsFotos.EOF Then
  	Response.Write "Nenhuma foto encontrada!"
  Else
  	Response.Write "<div align=""center""><table border=0 cellpadding=15 cellspacing=0 width=""80%"">"
  	contar = 0
  	Do while not rsFotos.eof 
    If contar = 4 Then 
    	Response.Write "<tr>"
    End If 
    If contar <> 5 Then 
    	Response.Write "<TR>"
    End If 
    	imagemp=rsFotos("Foto_P")
    	imagem=rsFotos("foto")
    If RsFotos.eof then exit do
    	Response.Write "<td><a target=""_blank"" href=""fotos/"&imagem&".jpg""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>"
    	contar = contar +1
    	rsFotos.MoveNext
    If RsFotos.eof then exit do
    	imagemp=rsFotos("Foto_P") 
    	imagem=rsFotos("foto")
    	Response.Write "<td><a target=""_blank"" href=""fotos/"&imagem&".jpg""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>"
    	contar = contar + 1
    	rsFotos.MoveNext
    If RsFotos.eof then exit do
    	imagemp=rsFotos("Foto_P") 
    	imagem=rsFotos("foto")    	
    	Response.Write "<td><a target=""_blank"" href=""fotos/"&imagem&".jpg""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>"
    	contar = contar + 1
    	rsFotos.MoveNext
    If RsFotos.eof then exit do
    	imagemp=rsFotos("Foto_P") 
    	imagem=rsFotos("foto")  	
    	Response.Write "<td><a href=""javascript:abre();""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>"
    	contar = contar + 1
    	rsFotos.MoveNext
  	Loop
  	Response.Write "</tr></table></div>"
  	End if
  	End If
%>
            </font></span></td>
        </tr>
        <tr> 
          <td height="5" valign="middle" class="texto"><img src="imagens/5px.gif" width="10" height="5"></td>
        </tr>
      </table>
      
    </td>
  </tr>
</table>
</body>
</html>

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

oi

Bom.. eu estive lendo os posts de vocês..

LSardinha, onde você parou?

você faz um POPUP, que abre a pagina FOTOS.ASP

Dentro dessa pagina, dá o erro, né

Qual o Erro, e qual o codigo dessa pagina aí?

Posta aí!

Link para o comentário
Compartilhar em outros sites
  • 0
lsardinha

lsardinha

Postado
  • Autor
Postado

Fiz a pagina que carrega as fotos e quero que quando o usuario clicar na foto ele abra uma página (popup), mas não estou conseguindo porque o meu site eu uso assim na index:

<% elseif meio = "fotos" then %>
<!--#include file="fotos/fotos.asp"--> 
<% else %>
<!--#include file="intro.htm"--> 
<% end if%>
então tenho que colocar o endereço do banco assim: 
<%
cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") 
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 

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

Conn.Open DataSource

'Abre o Recordset
Set Rs = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Conn
'Set Rs=conn.execute("Select * From fotos_eventos order by 2")
%>

Só que tem um problema, quando abre o popup não mostra a imagem que esta com o endereço em um banco.

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

Só que tem um problema, quando abre o popup não mostra a imagem que esta com o endereço em um banco.

porque não mostra?

Link para o comentário
Compartilhar em outros sites
  • 0
lsardinha

lsardinha

Postado
  • Autor
Postado

mudei... mas ainda não deu certo....

o problema é passar os parâmetros certos para o java, mas não esta funcionando:

Response.Write "<td><a href=""javascript:abre('fotos/"&imagem&".jpg','"&imagem&"');""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>"
window.open("URL","Nome","width=480,height=360,top=100,

o que esta errado?

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

Posta TODO o codigo da POPUP aqui

Link para o comentário
Compartilhar em outros sites
  • 0
lsardinha

lsardinha

Postado
  • Autor
Postado

POPUP

<script language="JavaScript">
<!--
function abre(URL,Nome)
{
window.open(URL,Nome,"width=480,height=360,top=100,left=100,scrollbars=no,menubar=no,directories=no,location=no,copyhistory=no,status=no,toolbar=no,maximized=yes,resizable=no");
}
//-->
</script>
Corpo do programa: 
Response.Write "<td><a href=""javascript:abre(http://intranet/teste/fotos/"& rsfotos("foto")& ".jpg,"&Evento&");""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>"

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

Bom, vamos por partes então..

Tá faltando comunicação aqui.. só isso!

você tem uma pagina, que mostra todas as fotos, certo?

você quer, que ao clicar em alguma foto, a mesma seja aberta em um POPUP, certo?

--> Na pagina que lista todas as fotos, você faz um LINK.

Nesse link, você deverá abrir por exemplo:

fotos.asp?foto=variavel_foto

onde variavel_foto, é a variavel que você mostra as fotos.. deve ser RS_alguma_coisa("foto")

--> Na pagina que deverá se abrir (a popup), antes de quaisquer codigo, você precisa resgatar a variavel passada como parametro no link anterior. Algo como:

foto_popup = Request("foto")

Aí, nessa variavel foto_popup, você tem o nome da foto que foi clicada. E poderá manipular como quiser!

Vamos ver se agora você entende !!

Pois, tá tudo meio confuso aqui!

Se não der, poste aí

Abraços,

Dark

Link para o comentário
Compartilhar em outros sites
  • 0
lsardinha

lsardinha

Postado
  • Autor
Postado

Desse jeito eu acho que fica bom tb, mas esse aqui eu acho que só é erro de sintaxe:

<script language="JavaScript">
<!--
function abre(URL,Nome)
{
window.open(URL,Nome,'width=480,height=360,top=100,left=100,scrollbars=no,menubar=no,directories=no,location=no,copyhistory=no,status=no,toolbar=no,maximized=yes,resizable=no');}
//-->
</script>
Dados do corpor do programa: 
Response.Write "<td><a href=""javascript:abre(http://intranet/teste/fotos/"&imagem& ".jpg,"&Evento&");""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>"

Ele diz que tem um erro na pagina e me mostra isso: Erro ')' esperado

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

é o que eu te falei

eu não consegui entender nada nos seus codigos.. por isso postei explicando como deveria ser

o que é essa function abre? onde ela tá?

já tentou usar o onClick?

Sua dúvida agora é só javascript?

Se você acha que é apenas erro de sintaxe em javascript eu posso mover essa mensagem pro Fórum de Javascript.. Que se o problema for esse, eles poderão lhe ajudar melhor.

O que quer fazer?

Link para o comentário
Compartilhar em outros sites
  • 0
lsardinha

lsardinha

Postado
  • Autor
Postado

Vou tentar ser mais claro, e me desculpe por isso....

Bom fiz uma página que carrega todas as fotos, quero que quando clicar ele passe os parâmetros (URL e Nome da página) para um Java Script (window.open) que abrirá essa foto, no código da página coloquei o java assim: 

javascript:abre(http://intranet/teste/fotos/"&imagem& ".jpg,"&Evento&");
onde &imagem& esta buscando o restante do endereço e &Evento& passa o nome da página. no script que esta no inicio da página esta ssim: 
<head>
<script language="JavaScript">
<!--
function abre(URL,Nome)
{
window.open(URL,Nome,'width=480,height=360,top=100,left=100,scrollbars=no,menubar=no,directories=no,location=no,copyhistory=no,status=no,toolbar=no,maximized=yes,resizable=no');}
//-->
</script>

Eu não sei se estou fazendo alguma coisa errada, agora acho que deve ser problema de javascript ou não.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...