<%@ LANGUAGE=VBScript %> <% OPTION EXPLICIT %> <% 'on error resume next %> <% Response.Buffer = true Response.CacheControl="no-cache" Response.AddHeader "Pragma","no-cache" Response.Expires=0 %> <% Dim VSQL,clip,ClipList,strDBPath,vid,SortBy,SortDesc,RecCount,FileCheck,FilePath Dim conntemp,I,DelRec_Count,UpRecsCount,UpStat,DelStat,Recs_Deleted,Field,ProjectID Dim DelFile,FirstProj,LastClip Const quot="""" RecCount = 1 %> Manhattan Bureau Screening Room
<% If Session("GroupLevel") > 0 AND Session("GroupLevel") <= 5 Then %>
 
<% Else %>
Login Schedule Approval
<% End If %>
  <% strDBPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/video/db/mbvideo.mdb") If Session("DBUserID")<=0 Then Session("DBUserID") = 2140544208 'If not logged in set to ID to Anonymous User 'Response.Write "DBUID: " & Session("DBUserID") & "Numeric? " & Isnumeric(Session("DBUserID")) SortBy = "ProjStatus, UniqueProjects.ModDate DESC" If Len(Request.QueryString("Srt")) > 0 Then SortBy = Request.QueryString("Srt") If Request.QueryString("Des") = 1 Then SortBy = SortBy & " DESC" End If VSQL="SELECT * FROM SecureProjects WHERE DBUserID = " & Session("DBUserID") & " ORDER BY " & SortBy 'VSQL="SELECT * FROM SecureProjects ORDER BY " & SortBy Set vid = Server.CreateObject("ADODB.RecordSet") vid.Open VSQL,strDBPath,adOpenKeyset, adLockPessimistic, adCmdText If vid.EOF Then %>

There are no videos posted to your account.

<% Else %>

Viewing <%=vid.RecordCount%> Video Projects

Click on a column heading to sort by that field.

<% do while not vid.eof %> <% 'GET LIST OF CLIPS FOR THIS PROJECT VSQL="SELECT * FROM ClipInfo WHERE ProjectID = " & vid("ProjectID") & " ORDER BY ClipName;" Set clip = Server.CreateObject("ADODB.RecordSet") clip.Open VSQL,strDBPath,adOpenKeyset, adLockPessimistic, adCmdText ClipList = "" Do While NOT clip.EOF ClipList = ClipList & "" &_ clip("ClipName") & "
" 'ClipList = ClipList & "" & clip("ClipWidth") & "
" clip.movenext Loop clip.close %> <% vid.movenext RecCount = RecCount + 1 loop %>
# Project Name Clips Description Date Order
<%=RecCount%>    <% If Session("GroupLevel") > 0 AND Session("GroupLevel") <= 5 Then %> " target="_blank"> <%=vid("ProjName")%> <% Else Response.Write vid("ProjName") End If %>    <%=ClipList & " " %>  <%=vid("ProjDescription")%>   <%=vid("ModDate")%>   <%=vid("ProjOrder")%> 
<% End If ' Any records found %> <% vid.close set vid=nothing set clip=nothing %>

<% If Session("GroupLevel") > 0 AND Session("GroupLevel") <= 5 Then %> <% End If %>
Home About Contact News Room Screening PortfolioLogin