Abir Janela

[lsardinha]

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

[lsardinha]

Estive fazendo da forma que você me falou e funcionou, mas queira que a janela que abrisse a foto aparecesse sem barras de ferramentas, menus e barras de rolagem:

veja o codigo:

            <% 
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 href=""javascript:abre('http://intranet/teste/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('http://intranet/teste/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('http://intranet/teste/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=""popup.asp?foto="&rsfotos("Id")&"""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>"
'    	Response.Write "<td><a target=""_blank"" href=""popup.asp?foto="&rsfotos("Id")&"""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>"    	
    	contar = contar + 1
    	rsFotos.MoveNext
  	Loop
  	Response.Write "</tr></table></div>"
  	End if
  	End If
%>

********* codigo da segunda página ************

<%
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 where id="&Request.QueryString("foto")&" order by 2")
%>

<img src="fotos/<%Response.Write(Rs("foto") )%>.jpg">

[dark0]

bom, isso já entra javascript

pois, na hora que você manda abrir a popup, você dá os parametros, dizendo que opções da janela devem aparecer