<% @Language="VBScript" %> <% response.buffer = true pdebug = false if request.servervariables("REMOTE_ADDR")="203.222.87.239" then pdebug=true %> Video Wall for <%=strStudio%> <% 'create a database connection object to check user:pw Set objadoWrapper = new FCV_ADOWrapper ' get studio form data strStudioID = objadoWrapper.ReplaceQuotes(Request.Form("StudioID")) strSPassword = objadoWrapper.ReplaceQuotes(Request.Form("SPassword")) if pdebug then response.write "strStudioID=" & strStudioID & "
" response.write "strSPassword=" & strSPassword & "
" end if strQuery = "select * from Studios where StudioID = '" & strStudioID & "' and Password = '" & strSPassword & "'" if pdebug then response.write "strQuery=[" & strQuery & "]
" set objRS = objadoWrapper.GetStaticRS(strQuery) if pdebug then response.write "objRS.recordcount=" & objRS.recordcount & "
" if objRS.recordcount < 1 then PrintError("Invalid User Name or Password.") else strQuery = "select PerformerID " & _ "from PerformersStudio " & _ "where StudioID = '" & strStudioID & "' " & _ "order by PerformerID" if pdebug then response.write "strQuery=[" & strQuery & "]
" set objRS = objadoWrapper.GetStaticRS(strQuery) if pdebug then response.write "objRS.recordcount=" & objRS.recordcount & "
" i = 0 if objRS.EOF then response.write "
" response.write "

 

" response.write "

No performers online at present. Return to Studio Admin

" response.write "

 

" response.write "
" else online_count = 0 strIPAddress = Request.ServerVariables("REMOTE_ADDR") 'strMemberID = "Mark" strTimeInPhil = dateadd("h",ph_offset,now) strTimeInPhil = GetLongDateTime(strTimeInPhil,true) %>

Online Performers - Video Feeds

back | refresh page

<% set objPerformer = Server.CreateObject("FireControl.Performer") While NOT objRS.EOF strPerformer = objRS.fields("PerformerID") objPerformer.GetPerformerProfile(strPerformer) bIsOnline = objPerformer.IsOnline if pdebug then response.write strPerformer & " is online; " & bIsOnline & "
" if bIsOnline then online_count = online_count + 1 if (i = 0) then %> <% end if %> <% if (i = 2) then ' 2=3 video windows across %> <% i = 0 else i = i + 1 end if end if objRS.MoveNext ' Move to the next in the list Wend ' print out the final if needed if (i <> 0) then %> <% end if %>
<%=strPerformer%> (<%=strTimeInPhil%>)

 

<% if online_count = 0 then response.write "
" response.write "

 

" response.write "

No performers online at present.

" response.write "

 

" response.write "
" end if end if Set objPerformer = Nothing end if Set objRS = Nothing Set objadoWrapper = Nothing %>