Onload i body
<% @language = VBscript %><%Session.LCID=1030%>
<%
StrId = Request.QueryString("id")
StrGrp = Request.QueryString("grp")
Strroot = Request.QueryString("root")
Strshow = Request.QueryString("show")
StrPage = Request.QueryString("page")
'File to load
sPathIn = "..\galleri\" & StrRoot & "\" & StrShow
Set oImg = Server.CreateObject("aeImage.Canvas")
With oImg
'Load the image and get dimensions
.LoadImage Server.MapPath(sPathIn)
lOldWidth = .Width
lOldHeight = .Height
End With
StrSti = "id=" & StrId & "&root=" & StrRoot & "&show=" & StrShow
%>
<html>
<head>
<script language="JavaScript">
<!-- Gem koden for gamle browsere
function PopWin(url,h,w) { var ww = 480, wh = 340, leftPos = null, topPos = null;
IE=(document.all)?true:false;
var wh = (IE)?document.body.clientHeight : window.innerHeight;
var ww = (IE)?document.body.clientWidth : window.innerWidth;
if (top.screen){
if (screen.width){
leftPos = Math.round((ww-w-10)/2);
topPos = Math.round((wh-h-29)/2);
} else {
leftPos = 50
topPos = 50
}
}
popupWin = window.open(url, 'showpop', 'height=' + h + ',width=' + w + ',top=' + topPos + ',left=' + leftPos + '')
}
// -->
</script>
</head>
<body>
<%
Response.Write "<body onLoad=""PopWin('../popup.asp?" & StrSti & "',300,300);"">"
Response.Redirect "../default.asp?id=" & StrId & "&grp=gallshow&root=" & StrRoot & "&page=" & StrPage
%>
