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?

[lufo5]

qualcosa di questo tipo?

<%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]


<% =strFile.name %>
<%Next 
Set objFso = Nothing
Set objFolder = Nothing
Set objFiles = Nothing%>

[EmilioPaolo]

L'intento è quello di mantenere su un lato la carrellata di immagini, e in una area a lato nella finestra, visualizzare ingrandita l'immagine su cui si va a fare click; il tutto senza cambiare finestra.
Al momento sono riuscito a visualizzare l'immagine ingrandita in un'altra finestra, anche se, la finestra di popup resta la stessa e quindi il cambiamento non si nota molto, ma per visualizzare di nuovo la carrellata di immagini occorre tornare indietro.
Ciao