<% @Language="VBScript" %> <% response.buffer = true pdebug = false if request.servervariables("REMOTE_ADDR")="203.222.87.239" then pdebug=true %> Photo 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 strIPAddress = Request.ServerVariables("REMOTE_ADDR") strTimeInPhil = dateadd("h",ph_offset,now) strTimeInPhil = GetLongDateTime(strTimeInPhil,true) %>

All Performers - Main Photos

back | refresh page

If any Performer is showing the "New Performer" image, then they need to take one or
more photos of themselves (using their cam and the AsiaBarGirlCams live video chat
software), and you need to select one of their photos in the Performer's Photo Library area.

<% While NOT objRS.EOF strPerformer = objRS.fields("PerformerID") if (i = 0) then %> <% end if %> <% if (i = 2) then ' 2=3 video windows across %> <% i = 0 else i = i + 1 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%>)
<%=strPerformer%> main profile photo

 

<% end if Set objPerformer = Nothing end if Set objRS = Nothing Set objadoWrapper = Nothing %>