<%@ 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") ' CS_1 = "DSN=power_t" ' SID = Request.Cookies("PowersmithsCR")("SID") ' IF NOT Len(SID)>0 THEN '' Response.Redirect("help/session.htm") ' Response.Write "SID= " & SID ' Response.Flush ' END IF ' Q_0 = "SELECT * FROM Design WHERE SID=" & SID '' Response.Write Q_0 & "
" ' SET RS_0 = Server.CreateObject("ADODB.Recordset") ' RS_0.Open Q_0, CS_1, adOpenKeySet, adLockPessimistic, adCmdText ' IF RS_0.EOF THEN ' Response.Redirect("help/session.htm") ' END IF ' RS_0.Fields("ScreenWidth")=ScreenWidth ' RS_0.Fields("ScreenHeight")=ScreenHeight ' RS_0.Update Response.Cookies("Humble")("ScreenWidth")=ScreenWidth Response.Cookies("Humble")("ScreenHeight")=ScreenHeight Response.Redirect("entry.asp") ' Response.End END IF %>