File: D:/HostingSpaces/HVliet/thomashuisdeborg.nl/wwwroot/old/popup.asp
<%@LANGUAGE="VBSCRIPT"%>
<%
'**********************************************************************************************************
'* This page opens a popup window with the page you want at any size *
'* centered on the screen regardless of resolution *
'* *
'* Syntax = popup.asp?page=YourPage&Height=xx&Width=xx&Scroll=Yes/No&Close=Yes/No&Type=doctype&Extra=Text *
'* YourPage = The page you want to open *
'* Height = The Height of the window / object you want to display in pixels *
'* Width = The Width of the window / object you want to display in pixels *
'* Scroll = Wether you want scrollbars in your window *
'* Close = Wether you want a close button below your page/object *
'* The window will be slightly bigger than the height and width you supply *
'* to hold the close-button and you must supply the *
'* Type = Type of object to display *
'* If either Close or Type is omitted, the button will not display *
'* Valid types are among others: (Do not use the quotes) *
'* "image/gif" (also for jpeg), "image/png", "audio/wav", "audio/midi", *
'* "video/mpeg", "video/quicktime", "application/x-shockwave-flash", *
'* "text/html" en "text/plain" *
'* Extra = Fallbacktext or htmlcode in case the object doesn't show when you use a closebutton *
'* *
'* created by Fuzzy Daze Please do not remove this line. *
'**********************************************************************************************************
Sub FuzWrite(strWriteThis)
'This subroutine just writes out whatever is
'passed to it.
'syntax: FuzWrite("Text" or Variable)
response.write(strWriteThis &vbNewLine)
end sub
FuzPage = Request.QueryString("Page")
FuzHeight = Request.QueryString("Height")
FuzWidth = Request.QueryString("Width")
FuzScroll = Request.QueryString("Scroll")
FuzClose = Request.QueryString("Close")
FuzType = Request.QueryString("Type")
FuzExtra = Request.QueryString("Extra")
FuzHeight1 = FuzHeight
FuzWidth1 = FuzWidth
If FuzExtra = Empty Then
FuzExtra = "The object is unavailable"
End If
If FuzClose="yes" then
If FuzType <> Empty Then
FuzType = "Type='" &FuzType &"'"
FuzPage = Chr(34) &"about:<html><head><title>Thicor.com</title></head><body><div align='center'><object standby='One moment please' data=" &FuzPage &" height='" &FuzHeight &"' width='" &Fuzwidth &"' " &FuzType &">" &FuzExtra &"</object><br><input type='button' value='close window' onclick='window.close()'></div></body></html>" &Chr(34)
If FuzWidth1 < 90 then
FuzWidth1 = 140
Else
FuzWidth1 = FuzWidth1 + 50
End If
FuzHeight1 = FuzHeight1 + 50
Else
FuzPage = "'" &FuzPage &"'"
End If
Else
FuzPage = "'" &FuzPage &"'"
End If
%>
<html>
<HEAD>
<SCRIPT LANGUAGE="JavaScript">
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable=no'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
</script>
</HEAD>
<BODY>
<script language='javascript'>
<%
FuzWrite ("NewWindow(" &FuzPage &",'Fuzzy','" &FuzWidth1 &"','" &FuzHeight1 &"','" &FuzScroll &"');")
%>
history.go(-1)
</script>
</body>
</html>