code(CStr(resWidth))+""" ") Dim resHeight resHeight = Request.QueryString("rH") If resHeight < 200 or resHeight > 1200 Then resHeight = 600 End If Response.Write("HEIGHT="""+Server.HTMLEncode(CStr(resHeight)) + """ " ) %> <% End If %> <% End Function %> <% Sub ServePage %> <%=L_PAGETITLE_TEXT%> <% Call SA_EmitAdditionalStyleSheetReferences("") %> <% Dim bIsSupported bIsSupported = false ' ' The Terminal Server ActiveX control is only supported on Windows Clients ' running Internet Explorer. ' If IsIE() Then If InStr( Request.ServerVariables("HTTP_USER_AGENT"), "Windows") Then bIsSupported = true End If End If If ( bIsSupported ) Then ServeContent Else Response.Write("
") Response.Write("

"+Server.HTMLEncode(L_WINCLIENT_ERROR)+"

") Response.Write("
") End If %> <% End Sub %>