Complete 

Aurora Images License Checklist

<%@ Language = "VBScript" %> <% Dim szDSN, szSQL, rstData, intFields, rst Dim ID Function getValue (pos) Dim str str = " -1 Then str = str & "-" str = str & "1"">" If pos > -1 Then If rst.Fields (pos).Value <> "" Then str = str & rst.Fields (pos).Value Else str = str & " " End If Else str = str & " " End If str = str & "" getValue = str End Function Sub openCell (per, span) Response.Write ("") Response.Write ("
") ' Response.Write ("
") Response.Write (vbCrLf) End Sub Sub closeCell () ' Response.Write ("
") Response.Write ("
") Response.Write ("") Response.Write (vbCrLf) End Sub ID = CInt (Request.QueryString ("ID")) ' -- Specify the database to connect to via ODBC ' -- Use an existing data source name szDSN = "DSN=ACTP" ' -- OR ' -- You can also use a DSN-less connection by providing the driver and database ' szDSN = "Driver=Microsoft Access Driver (*.mdb);DBQ=C:\Data\MyDatabase.mdb" Set rst = Server.CreateObject("ADODB.Recordset") ' -- Supply a SQL statement to query by 'szSQL = "SELECT ID=ContactID, 'Download Date'=InitialContactDate, 'First Name'=FirstName, 'Last Name'=LastName, 'Company'=CompanyName FROM requests ORDER BY InitialContactDate" 'szSQL = "SELECT ContactID, InitialContactDate, FirstName, LastName, CompanyName FROM requests ORDER BY InitialContactDate" szSQL = "SELECT * FROM requests WHERE ContactID=" & ID ' -- Execute the query on the data source rst.Open szSQL, szDSN %> <% openCell 16, 4 %><%= getValue (17) %><% closeCell %> <% openCell 35, 9 %><%= getValue (1) %> <%= getValue (2) %><% closeCell %> <% openCell 35, 9 %><%= getValue (-1) %><% closeCell %> <% openCell 42, 11 %><%= getValue (10) %><% closeCell %> <% openCell 35, 9 %><%= getValue (-1) %><% closeCell %> <% openCell 42, 11 %><%= getValue (9) %><% closeCell %> <% openCell 77, 20 %><%= getValue (3) %>, <%= getValue (4) %>, <%= getValue (5) %>, <% If rst.Fields (7).Value <> "" Then Response.Write (getValue (7) & ", ") End If If rst.Fields (8).Value <> "" Then Response.Write (getValue (8) & ", ") End If %><%= getValue (6) %> <% closeCell %> <% openCell 34, 9 %><%= getValue (11) %> <% If rst.Fields (12).Value <> "" Then Response.Write (" x " & getValue (12)) End If %> <% closeCell %> <% openCell 42, 11 %><%= getValue (15) %><% closeCell %> <% openCell 44, 11 %><%= getValue (19) %><% closeCell %> <% openCell 48, 12 %><%= getValue (16) %><% closeCell %> <% openCell 44, 11 %><%= getValue (20) %><% closeCell %> <% openCell 16, 4 %><%= getValue (-1) %><% closeCell %> <% openCell 24, 6 %><%= getValue (21) %><% closeCell %> <% openCell 36, 9 %><%= getValue (22) %><% closeCell %> <% openCell 8, 2 %><%= getValue (-1) %><% closeCell %> <% openCell 32, 8 %><%= getValue (-1) %><% closeCell %> <% openCell 16, 4 %><%= getValue (17) %><% closeCell %> <% openCell 8, 2 %><%= getValue (-1) %><% closeCell %> <% openCell 20, 5 %><%= getValue (-1) %><% closeCell %> <% openCell 8, 2 %><%= getValue (-1) %><% closeCell %> <% openCell 40, 10 %><%= getValue (-1) %><% closeCell %> <% openCell 40, 10 %> <% closeCell %> <% openCell 56, 14 %> <% closeCell %> <% openCell 28, 7 %> <% closeCell %> <% openCell 28, 7 %> <% closeCell %> <% openCell 40, 10 %> <% closeCell %> <% openCell 15, 4 %> <% closeCell %> <% openCell 16, 4 %> <% closeCell %> <% openCell 16, 4 %> <% closeCell %> <% openCell 16, 4 %> <% closeCell %> <% openCell 16, 4 %> <% closeCell %> <% openCell 16, 4 %> <% closeCell %> <% openCell 16, 4 %> <% closeCell %> <% openCell 100, 26 %> <% closeCell %>
Original Contact DateContact Person
NamesTitle
Company
Mailing Address
Tel. No.Fax No.
Fed. Express Acct #
E-mail Address:
Title of ProgramFor/Network:
Deadline for Images:
Type of production, story line or treatment of images:
1. Received $100 deposit  Yes  No by
2. Date sent 1/2" T/C. videotape
<%= getValue (-1) %> <%= getValue (-1) %>
3. Policy Downloaded  Yes  No

Date:

Draft License Form  Yes  No by
<%= getValue (-1) %> <%= getValue (-1) %>
4. T/C Tape Returned  Yes  No
Date Received Received by
<%= getValue (-1) %> <%= getValue (-1) %>
5. Date Deposit Returned
<%= getValue (-1) %> <%= getValue (-1) %>
6. Images Requested  Yes  No If no, file in DEAD File
<%= getValue (-1) %>
7. Received Letter of Intent  Yes  No
Kill Fee Received ($600)  Yes  No
<%= getValue (-1) %>
8. Date Images Shipped w/ draft license
Method
<%= getValue (-1) %>
9. License Agreement Sent  Yes  No  signed copy rec'd
  Date
<%= getValue (-1) %>
10. Received Copy of Program  Yes  No
  Date
<%= getValue (-1) %>
11. Date Final Payment Made
<%= getValue (-1) %>
Invoice # Paid

Date

$

$
Total Due

$
Notes: <%= getValue (18) %>