<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Computer Users | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- Call GetComputerDetails ( parClient_ip, objComputerCollector ) '---------------------------------------------- %>

<%=PARENT_TITLE%> <%Call RenderTitle ( objComputerCollector )%> <% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleMac" objTabControl.AddTabDefnition ( arrComputer ) 'objTabControl.SelectByName ( "Members" ) objTabControl.Render () %> <% OraDatabase.Parameters.Add "CLIENT_IP", parClient_ip, ORAPARM_INPUT, ORATYPE_VARCHAR2 Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ComputerUsers.sql") , ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> <%rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%> <%End If%> <% WEnd OraDatabase.Parameters.Remove "CLIENT_IP" %> Full Name User Name "> <%=rsQry("user_online")%> &<%=objPMod.ComposeURL%>" class="body_link"><%=Eval( rsQry("user_image") ) & rsQry("full_name")%> <%=rsQry("user_name")%>

<% '------------ RUN AFTER PAGE RENDER ----------- '---------------------------------------------- %>