Não Atualiza a foto

[digital1984 0]

Pessoal, o código abaixo, exibe as imagens, porém não atualiza o link (A HREF)

 

Fico no aguardo de uma ajuda.

 

<a href='imagens/produtos/" & objRS_produtos("id") & "/" & File.name & "' rel=photoslice target=_blank>

 

Somente retorna a primeira foto no link.

 

CÓDIGO COMPLETO

<%
'# Função que exibe as pastas e os arquivos existentes no local especificada
function lista_conteudo( strFolder, tipo )
  Dim Folder, File
  Dim ObjFS, objRootFolder
  Set ObjFS = Server.CreateObject("Scripting.FileSystemObject")
  Set objFolder = ObjFS.GetFolder( strFolder )
  x = 0
  For Each File in objFolder.files
	If lcase(Right(File, 3)) = "gif" Or lcase(Right(File, 3)) = "jpg" Then
	  x = x + 1
	  If x = 1 Then Response.Write "<a href='imagens/produtos/" & objRS_produtos("id") & "/" & File.name & "' rel=photoslice target=_blank><img width=250  name='imagem_ampliada' src='imagens/produtos/" & objRS_produtos("id") & "/" & File.name & "' border=0></a><br>" & vbcrlf
	  imagens = imagens + " <img width=35 src='imagens/produtos/" & objRS_produtos("id") & "/" & File.name & "' style='cursor:hand;filter:alpha(opacity=10)' onMouseOver='high(this)' onMouseOut='low(this)' onclick='imagem_ampliada.src=this.src' border=0>" & vbcrlf
	End If
  Next
  If x > 1 Then Response.Write imagens
  Set objFolder = Nothing
  Set Folder = Nothing
end function

lista_conteudo endereco_fisico & "imagens/produtos/" & objRS_produtos("id"), "gif;jpg"
%>

[desisto 0]

troca

<a href='imagens/produtos/" & objRS_produtos("id") & "/" & File.name & "' rel=photoslice target=_blank>

 

por

<a href=""imagens/produtos/" & objRS_produtos("id") & "/" & File.name & """ rel=""photoslice"" target=""_blank"">

[digital1984 0]

Fiz...alterei...e rodei

 

PORÉM Não Funcionou...

[CaBo GeL 0]

seria assim:

 

<a href="imagens/produtos/<%=objRS_produtos("id")%>/<%=File.name%> rel="photoslice" target="_blank">

 

so keria saber como e onde você vai alimentar esse ID

 

ate +!!!

[desisto 0]

se rodou é pq o link funcionou

deu pau aonde?

[Salgado 4]

Pelo que está na função só será exibido link na primeira imagem, é esse o problema?

[digital1984 0]

Sim... esse problema só abre a href da primeira imagem....

 

Esse é o problema SALGADO

[Salgado 4]

Não precisa ficar mandando MP.

 

Foi você que fez essa function? Há nela um contador e um IF que restringem a impressão do link ao 1º registro. É só retirar que o link irá aparecer em todos.

[digital1984 0]

Seguinte, Salgado,

 

O link é esse de visualização de fotos.

 

http://www.superasp.com.br/totalecommerce/...ria=0&id=92

 

Porém, na foto principal eu incluí um <a href> porém não funcionou... o q serás.... tipo a foto aparece certa, porém o <a href> não atualiza.

 

CÓDIGO FONTE

<%
'# Função que exibe as pastas e os arquivos existentes no local especificada
function lista_conteudo( strFolder, tipo )
  Dim Folder, File
  Dim ObjFS, objRootFolder
  Set ObjFS = Server.CreateObject("Scripting.FileSystemObject")
  Set objFolder = ObjFS.GetFolder( strFolder )
  x = 0
  For Each File in objFolder.files
	If lcase(Right(File, 3)) = "gif" Or lcase(Right(File, 3)) = "jpg" Then
	  x = x + 1
	  If x = 1 Then Response.Write "<a href='imagens/produtos/" & objRS_produtos("id") & "/" & File.name & "' rel=photoslice target=_blank><img width=250  name='imagem_ampliada' src='imagens/produtos/" & objRS_produtos("id") & "/" & File.name & "' border=0></a><br>" & vbcrlf
	  imagens = imagens + " <img width=35 src='imagens/produtos/" & objRS_produtos("id") & "/" & File.name & "' style='cursor:hand;filter:alpha(opacity=10)' onMouseOver='high(this)' onMouseOut='low(this)' onclick='imagem_ampliada.src=this.src' border=0>" & vbcrlf
	End If
  Next
  If x > 1 Then Response.Write imagens
  Set objFolder = Nothing
  Set Folder = Nothing
end function

lista_conteudo endereco_fisico & "imagens/produtos/" & objRS_produtos("id"), "gif;jpg"
%>

[Salgado 4]

Retire o contador e o IF da sua função, deixe que o link seja escrito em todas as imagens.

[digital1984 0]

Salgado, você pode postar o codigo como ficaria de acordo com sua sujestão...

 

Pois não conheco bem o if.. e contador...

 

Abraços

[Salgado 4]

Veja se isso lhe atende:

<%
'# Função que exibe as pastas e os arquivos existentes no local especificada
function lista_conteudo( strFolder, tipo )
 Dim Folder, File
 Dim ObjFS, objRootFolder
 Set ObjFS = Server.CreateObject("Scripting.FileSystemObject")
 Set objFolder = ObjFS.GetFolder( strFolder )
 For Each File in objFolder.files
If lcase(Right(File, 3)) = "gif" Or lcase(Right(File, 3)) = "jpg" Then
  Response.Write "<a href='imagens/produtos/" & objRS_produtos("id") & "/" & File.name & "' rel=photoslice target=_blank><img width=250  name='imagem_ampliada' src='imagens/produtos/" & objRS_produtos("id") & "/" & File.name & "' border=0></a><br>" & vbcrlf
End If
 Next
 Set objFolder = Nothing
 Set Folder = Nothing
end function

lista_conteudo endereco_fisico & "imagens/produtos/" & objRS_produtos("id"), "gif;jpg"
%>

Explicação,o IF é um teste lógico, é a famosa pergunta SE: SE x=1 ENTÃO faça algo SENÃO faça outra coisa.

O IF retirado fazia justamente a restrição para que apenas a 1ª imagem fosse exibida com link.

 

Reparou que havia anteriormente um x = 0 e mais abaixo um x = x + 1? Como ele estava dentro de um laço de repetição estava trabalhando como um contador, que a cada passagem aumentava em 1 o valor da variável x, era com ele que o sistema sabia quem era a 1ª imagem.