%@ 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;"
%>