%@ Language=VBScript %><% option explicit %>
<% Response.Buffer = FALSE %>
<% Response.ContentType = "image/svg+xml" %>
<%
'--- imitate.asp ---
DIM ScreenWidth, ScreenHeight
DIM ScreenWidth1, ScreenHeight1
DIM ImageWidth, ImageHeight, ImageWidthHeight
DIM timeout, SID
DIM msg '-- for errors
'' extend the timeout to allow for long files
' timeout = Server.ScriptTimeout
'' Response.Write "Initial timeout=" & timeout & "
"
' Server.ScriptTimeout = 1200
' SID = Request.Cookies("Humble")("SID")
ScreenWidth = Request.Cookies("Humble")("ScreenWidth")
ScreenHeight = Request.Cookies("Humble")("ScreenHeight")
ImageWidth = 600
ImageHeight = 730
ImageWidthHeight = " 0 0 " & ImageWidth & " " & ImageHeight
ScreenWidth1 = ScreenWidth
ScreenHeight1 = ScreenHeight
IF ScreenWidth1 > ((ImageWidth * ScreenHeight) / ImageHeight) * 1.5 THEN
ScreenWidth1 = ((ImageWidth * ScreenHeight) / ImageHeight) * 1.5
ELSEIF ScreenHeight1 > ((ImageHeight * ScreenWidth) / ImageWidth) * 1.5 THEN
ScreenHeight1 = ((ImageHeight * ScreenWidth) / ImageWidth) * 1.5
END IF
' set it up for a graph bounding box of ImageWidth horizontal by ImageHeight vertical
' the viewBox may have to be larger, to allow for left and right stuff
' baseProfile="basic"
' xmlns="&ns_svg;"
' xmlns:xlink="&ns_xlink;"
%>