Popup mm ->Et objekt er obligatorisk:
Jeg ved ikke om folk kan se hved det er jeg prøver at stykke dsammen, men denne side skal bare lave en popup og redirecte tilbage, men jeg går den samme fejl:Det her et et billede-komponent, jeg får samme fejl om det er der eller ej..!
sPathIn = "..\galleri\" & StrRoot & "\" & StrShow
Set oImg = Server.CreateObject("aeImage.Canvas")
Fejler lyder på linie 51, udkommenter jeg den springer den bare til 49...
Nogen ideer...?
/Lars
<% @language = VBscript %>
<%Session.LCID=1030%>
<%
Response.Buffer = "true"
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
%>
<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, 'pop', 'height=' + h + ',width=' + w + ',top=' + topPos + ',left=' + leftPos + '')
}
// -->
</script>
<%
Response.Write "<body onLoad=""PopWin('popup.asp?id=" & StrId & "&root=" & StrRoot & "show=" & Image.Name & "&page=" & StrPage &"',440,300);"">"
Response.Redirect "default.asp?id=" & StrId & "&root=" & StrRoot & "show=" & Image.Name & "&page=" & StrPage
%>
