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 38, 10 %><%= getValue (10) %><% closeCell %> <% openCell 35, 9 %><%= getValue (-1) %><% closeCell %> <% openCell 38, 10 %><%= 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 Date Contact Person
Names Title
Company
Mailing Address
Tel. No.Fax No.
Fed. Express Acct #
E-mail Address:
Title of Program For/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 # Date Paid
$
$
Total Due $
Notes: <%= getValue (18) %>