Não Atualiza a foto

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

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