<%if request("description") = empty then%>Photo Gallery<%else%><%=request("description")%><%end if%>

<% response.cachecontrol = "no-cache" %> <%if request("description") = empty then%>Photo Gallery<%else%><%=request("description")%><%end if%>

<% set oFS = Server.CreateObject("Scripting.FileSystemObject") strPathFile = "Gallery\"& request("path") &"\Big\"& request("FileName") strOrigPathFile = "Gallery\"& request("path") &"\"& request("FileName") if oFS.FileExists(server.mappath(strPathFile)) then %>

&Gallery=<%=Server.URLEncode(Request("path"))%>" alt="Click on the photo to close this window." border="0" onClick="javascript:window.close();" onMouseOver="MM_displayStatusMsg('Click on the image to close the window');return document.MM_returnValue"> <% else %>

&path=<%=server.URLEncode(request("path"))%>" alt="Click on the photo to close this window." border="0" onClick="javascript:window.close();" onMouseOver="MM_displayStatusMsg('Click on the image to close the window');return document.MM_returnValue"> <% end if set oFS = nothing %>

','_blank');">

<% Set bc = Server.CreateObject("cyScape.browserObj") bc.SetExtProperties "screensize" 'this is the equivalent of "height, width" bc.GetExtPropertiesEx screenwidth = bc.width screenheight = bc.height set bc = nothing Set jpeg = Server.CreateObject("Persits.Jpeg") jpeg.Open(server.mappath(strPathFile)) jpegWidth = jpeg.OriginalWidth jpegHeight = jpeg.OriginalHeight jpeg.Close %>