Ingrandire l'immagine da una lista di img

[EmilioPaolo]

Ho utilizzato questo utilissimo script per visualizzare le immagini contenute nelle cartelle:

<%Dim objFso, objFolder, objFiles, strFolder, strFile
strPath =rs("ImgDir") 
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(Server.MapPath(strPath))
Set objFiles = objFolder.Files
For Each strFile in objFiles%>
   [img]<%Response.Write(strPath)&(strFile.name)%>[/img]
<%Next 
Set objFso = Nothing
Set objFolder = Nothing
Set objFiles = Nothing%>

Domanda: è possibile aggiungere un segnaposto per immagine in una tabella posta immediatamente sotto e utilizzarlo per ingrandire le immagini sopra elencate (mediante un link ovviamente)? se si, come?