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 ("
")
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 %>
| ") Response.Write (vbCrLf) End Sub Sub closeCell () ' Response.Write (" |
| 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 # | Paid |
Date |
|||||||||||||||||||||||
|
$ | |||||||||||||||||||||||||
|
$ | |||||||||||||||||||||||||
| Total Due |
$ | ||||||||||||||||||||||||
| Notes: | <%= getValue (18) %> | ||||||||||||||||||||||||