Código:
<%
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:\test\")
Dim id
id = "999" 'esto esta para probar pero se supone q es dinamico
Dim cont
Dim i
cont = 0
%>
<div class="origen">
<ul id="listaInicial">
<%
for each x in fo.files
If InStr(x.Name, id) Then
cont = cont + 1
'Response.write(x.Name & "<br />")
%>
<img class="elemento" Width="80px" height="60" id="elemet<%=cont%>" src="<%=Response.write(x.Name)%>" ></img>
<%
End if
next
%>
</ul>
</div>
<%
set fo=nothing
set fs=Nothing
%>
esto funciona
pero pas q si lo filtro por InStr(x.Name, id)
cuando haya caso por ejemplo 9999 de id
me va trar los 9, los 99, 999 y asi y no sirve algun otra manera??