a new short film by
William M. Johns
WATCH
THE MOVIE
DOWNLOAD
THE MOVIE
(right click and select "save target/link as")
Quicktime
Movie file - 16 Megs Widescreen
BUY
THE DVD COMPILATION DISK - ONLY $10.00
FRAME
GRABS FROM THE SHOOT
A special thanks to:
We had a very successful shoot on
Sunday, Feb 15th and I am so grateful to everyone who came out and helped.
From crew to talent, everyone pitched in and made it a great shoot!
- Thanks!
|
Special Thanks to Papa John's of Kent,
Co-Sponsors with The Robin Hood Nite Club who provided Pizza and
Beverages for the shoot!!
Papa John's Pizza - 439 E. Main St. -
Kent, OH
|
This film was shot
in one day and edited in one day for the
Project Greenlight contest and to submit to festivals
and webcasts.
SYNOPSIS:
The film is about a girl who walks into a club and runs into
a guy who had somehow badly mistreated her. He acts as though
nothing has happened and after an argument and some name calling,
he pushes her to the floor. That's the last straw. A fight breaks
out and in the end she wipes the floor with him, leaving him
whimpering the question, "Why?" To find out the answer
come to the shoot, or watch Project Greenlight in the fall on
Bravo.
About the filmmaker
|
a presentation
of
3 South State Street
- Suite 4 - Painesville, OH 44077
<%
'Dimension variables
Dim fsoObject 'File System Object
Dim tsObject 'Text Stream Object
Dim filObject 'File Object
Dim lngVisitorNumber 'Holds the visitor number
Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count
'Create a File System Object variable
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
'Initialise a File Object with the path and name of text file to open
Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt"))
'Open the visitor counter text file
Set tsObject = filObject.OpenAsTextStream
'Read in the visitor number from the visitor counter file
lngVisitorNumber = CLng(tsObject.ReadAll)
'Increment the visitor counter number by 1
lngVisitorNumber = lngVisitorNumber + 1
'Create a new visitor counter text file over writing the previous one
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt"))
'Write the new visitor number to the text file
tsObject.Write CStr(lngVisitorNumber)
'Reset server objects
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
'Loop to display graphical digits
For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber)
'Display the graphical hit count
Response.Write(" ")
Next
%>
|