<%@ Language=VBScript %><% option explicit %> <% DIM ScreenWidth, ScreenHeight DIM CS_1 'Connection String DIM RS_0, Q_0 'RecordSet, Query - for sessionID DIM SID 'session ID DIM dtNow 'current date and time DIM sRoot 'root of server: www.konigslow.com, its DNS, or 192.168.3.24 from inside DIM SVG_direct 'NULL initial, 0=indirection through htmi_svg.asp, 1=direct DIM hideClient '=TRUE; FALSE: hide client info CS_1 = "DSN=power_t" IF NOT Len(Request.QueryString("ScreenWidth")) > 0 THEN dtNow = Now Q_0 = "SELECT * FROM Design" ' Response.Write Q_0 & "
" SET RS_0 = Server.CreateObject("ADODB.Recordset") RS_0.Open Q_0, CS_1, adOpenKeySet, adLockPessimistic, adCmdText RS_0.AddNew RS_0.Fields("date_time")=dtNow RS_0.Fields("username")="demo" RS_0.Fields("access")=1 sRoot = Request.ServerVariables("HTTP_HOST") RS_0.Fields("root") = sRoot RS_0.Fields("visitor") = Request.ServerVariables("REMOTE_HOST") IF InStr( 1, sRoot, "192.168.3", vbTextCompare) > 0 THEN SVG_direct = 1 hideClient = TRUE ELSEIF InStr( 1, sRoot, "192.168.1", vbTextCompare) > 0 THEN SVG_direct = 1 hideClient = TRUE ELSE SVG_direct = NULL hideClient = FALSE END IF RS_0.Fields("SVG_direct")=SVG_direct RS_0.Fields("hideClient") = hideClient RS_0.Update RS_0.Close Q_0 = "SELECT * FROM Design WHERE date_time=#" & dtNow & "# AND username='demo'" ' Response.Write Q_0 & "
" SET RS_0 = Server.CreateObject("ADODB.Recordset") RS_0.Open Q_0, CS_1, adOpenKeySet, adLockPessimistic, adCmdText SID = RS_0.Fields("SID") Response.Cookies("Power_clientCR")("SID")=SID %> <% ELSE ScreenWidth = Request.QueryString("ScreenWidth") ScreenHeight = Request.QueryString("ScreenHeight") SID = Request.Cookies("Power_clientCR")("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.Redirect("scores/summary.asp") ' Response.End END IF %>