<%@ Language=VBScript %><% option explicit %> <% Response.Buffer = FALSE %> <% DIM ScreenWidth, svgScreenWidth, svgScreenWidth1 DIM ScreenHeight, svgScreenHeight, svgScreenHeight1 DIM page_type, target_table DIM page_URI 'page to go to DIM CS_1 DIM RS_0, Q_0, SID 'RecordSet, Query - for sessionID ' CS_1 = "DSN=f_humble" ' CS_1 = "DSN=h_world" ' SID = Request.Cookies("Humble")("SID") ' IF NOT Len(SID)>0 THEN ' Response.Redirect("help/session.htm") ' END IF ' Q_0 = "SELECT * FROM Audience 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 ' ScreenWidth = RS_0.Fields("ScreenWidth") ScreenWidth = Request.Cookies("Humble")("ScreenWidth") svgScreenWidth1 = "100%" ' ScreenHeight = RS_0.Fields("ScreenHeight") ScreenHeight = Request.Cookies("Humble")("ScreenHeight") svgScreenHeight1 = "100%" page_type = Request.QueryString("p") target_table = Request.QueryString("t") IF LEN( page_type) > 0 THEN IF page_type = "onion" THEN page_URI = "images/concepts/1onion.asp" ELSEIF page_type = "space" THEN page_URI = "images/concepts/space1.asp" ELSEIF page_type = "joints" THEN page_URI = "images/joints/hip_1.asp" ELSEIF page_type = "pose" THEN ' Response.Write "--" & target_table & "
" ' Response.Flush page_URI = "views/pose.asp?t=" & target_table ' page_URI = "views/pose.asp" ELSEIF page_type = "top" THEN page_URI = "views/s_top.asp?t=" & target_table END IF END IF %>