%@ Language=VBScript %><% option explicit %>
<% Response.Buffer = FALSE %>
<% Response.ContentType = "image/svg+xml" %>
<%
'--- memory.asp ---
DIM ScreenWidth, ScreenHeight
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")
%>
<%
'' reset the timeout
' Server.ScriptTimeout = timeout
Response.End '-----------------------------------------------------------%>