1*cdf0e10cSrcweir<% 2*cdf0e10cSrcweir Option Explicit 3*cdf0e10cSrcweir Response.Expires = 0 4*cdf0e10cSrcweir%> 5*cdf0e10cSrcweir 6*cdf0e10cSrcweir<!-- #include file = "common.inc" --> 7*cdf0e10cSrcweir 8*cdf0e10cSrcweir<HTML> 9*cdf0e10cSrcweir 10*cdf0e10cSrcweir<HEAD> 11*cdf0e10cSrcweir <META http-equiv="refresh" CONTENT="<% = cnRefreshTime %>"> 12*cdf0e10cSrcweir</HEAD> 13*cdf0e10cSrcweir 14*cdf0e10cSrcweir<% 15*cdf0e10cSrcweir ' get current picture id 16*cdf0e10cSrcweir Dim nGIFID 17*cdf0e10cSrcweir 18*cdf0e10cSrcweir nGifID = File_getDataVirtual( csFileCurrent, ".", ";" )( 0 ) 19*cdf0e10cSrcweir 20*cdf0e10cSrcweir ' a new picture was chosen ? 21*cdf0e10cSrcweir if nGIFID <> Session( "GIFID" ) then 22*cdf0e10cSrcweir ' then store the id of the new picture and show it 23*cdf0e10cSrcweir Session( "GIFID" ) = nGIFID 24*cdf0e10cSrcweir %> 25*cdf0e10cSrcweir <BODY bgcolor="red" onLoad="parent.frame1.location.href='./show.asp?<%= nGIFID %>'"> 26*cdf0e10cSrcweir <% 27*cdf0e10cSrcweir else 28*cdf0e10cSrcweir %> 29*cdf0e10cSrcweir <BODY bgcolor="green"> 30*cdf0e10cSrcweir <% 31*cdf0e10cSrcweir end if 32*cdf0e10cSrcweir%> 33*cdf0e10cSrcweir 34*cdf0e10cSrcweir</BODY> 35*cdf0e10cSrcweir 36*cdf0e10cSrcweir</HTML>