<%@ 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") svgScreenWidth1 = "100%" ScreenHeight = RS_0.Fields("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 ELSE IF SID = 1 THEN 'view from StageFront StageCentre: dir=0 page_URI = "views/world.asp" ELSEIF SID = 2 THEN 'view from StageFront StageCentre: dir=0 page_URI = "views/s_front.asp" 'Trim(RS_0.Fields("page2")) ELSEIF SID = 3 THEN 'view from StageRight StageCentre: dir=90 page_URI = "views/s_right.asp" ELSEIF SID = 4 THEN 'view from StageLeft StageCentre: dir=270 page_URI = "views/s_left.asp" ELSEIF SID = 5 THEN 'view from StageRear StageCentre: dir=180 page_URI = "views/s_rear.asp" ELSEIF SID = 6 THEN 'Skelly_eye: cyclops eye direction page_URI = "Skelly_i/self.asp" ELSEIF SID = 7 THEN 'Director: usually front-centre direction page_URI = "views/self.asp" END IF END IF %>