<%@ Language=VBScript %><% option explicit %> <% DIM ScreenWidth, ScreenHeight DIM CS_1 'Connection String DIM RS_0, Q_0, SID 'RecordSet, Query - for sessionID IF NOT Len(Request.QueryString("ScreenWidth")) > 0 THEN %> <% ELSE ScreenWidth = Request.QueryString("ScreenWidth") ScreenHeight = Request.QueryString("ScreenHeight") Response.Cookies("Humble")("ScreenWidth")=ScreenWidth Response.Cookies("Humble")("ScreenHeight")=ScreenHeight Response.Redirect("toc_top.htm") ' Response.End END IF %>