<% Option Explicit Response.Expires = 0 %> <% ' get current picture id Dim nGIFID nGifID = File_getDataVirtual( csFileCurrent, ".", ";" )( 0 ) ' a new picture was chosen ? if nGIFID <> Session( "GIFID" ) then ' then store the id of the new picture and show it Session( "GIFID" ) = nGIFID %> <% else %> <% end if %>