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 Function getValueC (pos) Dim str str = GetValue (pos) str = str & "" getValueC = str End Function 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 %>
Original Contact Date <%= getValueC (17) %> Contact Person <%= getValue (1) %> <%= getValueC (2) %>
Names <%= getValueC (-1) %> Title <%= getValueC (10) %>
<%= getValueC (-1) %> Company <%= getValueC (9) %>
Mailing Address <%= 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 %><%= getValueC (6) %>
Tel. No. <%= getValueC (11) %> <% If rst.Fields (12).Value <> "" Then Response.Write (" x " & getValueC (12)) End If %> Fax No. <%= getValueC (15) %>
Fed. Express Acct # <%= getValueC (19) %>
E-mail Address: <%= getValueC (16) %>
Title of Program <%= getValueC (20) %> For/Network: <%= getValueC (-1) %>
Deadline for Images: <%= getValueC (21) %>
Type of production, story line or treatment of images: <%= getValueC (22) %>
1. Received $100 deposit  Yes  No by <%= getValueC (-1) %>
2. Date sent 1/2" T/C. videotape <%= getValueC (-1) %>
<%= getValue (-1) %> <%= getValue (-1) %>
3. Policy Downloaded  Yes  No

Date:

 <%= getValueC (17) %>
Draft License Form  Yes  No by <%= getValueC (-1) %>
<%= getValue (-1) %> <%= getValue (-1) %>
4. T/C Tape Returned  Yes  No
Date Received <%= getValueC (-1) %> Received by <%= getValueC (-1) %>
<%= getValue (-1) %> <%= getValue (-1) %>
5. Date Deposit Returned <%= getValueC (-1) %>
<%= 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 <%=getValueC (-1) %>  w/ draft license
Method <%=getValueC (-1) %>
<%= getValue (-1) %>
9. License Agreement Sent  Yes  No  signed copy returned
  Date <%=getValueC (-1) %>
<%= getValue (-1) %>
10. Received Copy of Program  Yes  No
  Date <%=getValueC (-1) %>
<%= getValue (-1) %>
11. Date Final Payment Made <%=getValueC (-1) %>
<%= getValue (-1) %>
Invoice # <%=getValueC (-1) %> Paid

Date

$

 <%=getValueC (-1) %> <%=getValueC (-1) %>

$

 <%=getValueC (-1) %> <%=getValueC (-1) %>
Total Due

$

 <%=getValueC (-1) %> <%=getValueC (-1) %>
<%=getValueC (-1) %>
Notes: <%= getValue (18) %>