Que yo sepa
www.webwizguide.com no tiene eso que buscas pero bueno, una opcion es esto:
Código:
<%
Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")
'OJO nos selecciona la carpeta en la que esta el archivo
folder="/fotos/thumbnails/"
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath(folder))
%>
<table border="0" cellpadding="10" cellspacing="0" bgcolor=#ffffff>
<TR> <TD colspan="4"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>GALERIA
DE FOTOS</strong></font></TD>
</TR><%
'busca en todos los archivos que encuentra en dicha carpeta y nos devuelve el nombre
cuenta=0
contador=0
For Each Fichero in ObjetoCarpeta.Files
'if instr(Fichero.Type,"JPG") then
contador=contador+1
if cuenta=4 or cuenta=0 then response.write "<tr bgcolor=#ffffff>"
Response.Write "<td bgcolor=#ffffff valign=bottom><a href=""javascript:afoto('fotos/images/"&Fichero.Name&"')""><img src="&folder&Fichero.Name & " width=72px border=0></a><br><font style=""font-size:10px"" FACE=""verdana, arial"">"
if session("paq")<>"" then
response.write "<a href=verfoto.asp?p=2&a="&replace(Fichero.Name,".jpg","")&">Seleccione</a><br>"
end if
response.write "<img src=""images/ver.gif"" align=""absmiddle"" border=0> <a href=""javascript:verfoto('verfoto.asp?a="&Fichero.Name&"')"">Ver</a></font></td>"
if cuenta=4 then response.write "</tr>"
cuenta=cuenta+1
if cuenta=4 then cuenta=0
'end if
Next
Response.Write "</FONT>"
Set Fichero = Nothing
Set ObjetoCarpeta = Nothing
Set ObjetoFSO = Nothing
%>
Algunas cosas que hay que cambiar estan en negritas, tiene algo de Javascript que puedes quitarle para que funcione, esto solo es para que despliegues las paginas de preferencia miniaturas y que estas al darle click abran las imagenes en tamaño original
Antes de que preguntes como haces las miniaturas al vuelo ...con ASP sin componentes NO SE PUEDE, o usas un componente o ASP.Net o Photoshop
