For Each como limitar numero de imagens no LOOP
<%
Set Fso = Server.CreateObject ("Scripting.FileSystemObject")
Set arquivo = Fso.GetFolder(Server.MapPath("gdd/sgc/imagens/foto_texto/" &id_pasta_imagens& ""))
Set arquivos = arquivo.files
For Each Item in arquivos
Set objFS = Nothing
%>
<div>
<a class="img-thumbnail img-thumbnail-hover-icon mb-xs mr-xs" href="gdd/sgc/imagens/foto_texto/<%=id_pasta_imagens%>/<%Response.Write Item.name %>">
<img class="img-responsive" src="gdd/sgc/imagens/foto_texto/<%=id_pasta_imagens%>/<%Response.Write Item.name %>" alt="<%=V("url_amigavel")%>">
</a>
</div>
<%
Next
Set arquivos = nothing
Set arquivo = nothing
Set Fso = nothing
%>