Por si a alguien le interesa tengo una pequeña aplicacion usando FSO y el componente ASPJPEG, para crear galerias de imagenes, directamente a MEMORIA, es decir las vemos en pantalla.
Esto evita el tener que estar haciendo galerias de muestras de imagenes con PHOTOSHOP u otros programas.
Ademas es muy rapido.
El codigo esta poco pulido, habria que colocar bien las imagenes en tablas, pero lo coloco asi para evitar lineas HTML innecesarias, si a alguien le sirve, que lo modifique a su conveniencia.
Esta creado para funcionar en un directorio llamado images situado en el web raiz.
Si quereis modificarlo ya sabeis.........
Muestrafoto.asp
<%
'creacion del objeto FSO
Set filesystem = CreateObject("Scripting.FileSystemObject")
Set folder = filesystem.GetFolder(server.mappath("images"))
Set filecollection = folder.Files
For Each file in filecollection
response.write(file.name)
conta=conta+1
if conta mod 5=0 then response.write("<br>")
%>
<a href="images/<%=file.name%>"><IMG border="0" SRC="resize.asp?nombre=images/<%=file.name%>&width=50%"></a>
<%
Next
%>
resize.asp
<%
'Este codigo viene con la documentacion de ASPJEG
'Los comentarios son bastante sencillos
' IMPORTANT: This script must not contain any HTML tags
' Create an instance of AspJpeg object
Set jpeg = Server.CreateObject("Persits.Jpeg")
nombre=request("nombre")
jpeg.Open(server.mappath(nombre))
' Set new width
jpeg.Width = request("width")
' Set new height, preserve original width/height ratio
jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
' Send thumbnail data to client browser
jpeg.SendBinary
%>