<% ' Declare our vaiables Dim objFSO, objCountFile ' object vars for FSO and File Dim strCountFileName ' filename of count text file Dim iCount ' count variable Dim I ' standard looping var ' Compute our count file's filename ' This is based on the file from which you call count.asp ' It basically takes that name and appends a .cnt so I don't ' accidently overwrite any files. If for some reason you have ' a file named script_name.asp.cnt then change this or watch out! iVideoID = Request("i") '-- To handle requests like "http://www.dpcfilms.com//VideoPlayer.asp?i=144?btnPlay.x=11&btnPlay.y=14" If InStrRev(iVideoID, "?") Then iVideoID = left(iVideoID, InStrRev(iVideoID, "?")-1) End If '-- DEBUG 'Response.Write("iVideoID=[" & iVideoID & "]") strCountFileName = "\\\\boswinfs03\\home\\users\\web\\b1182\\whl.dpcfilms\www\TheChickFlick\includes\cnt\" & Trim(iVideoID) & ".cnt" 'Response.Write("strCountFileName" & strCountFileName) ' Create FileSystemObject to deal with file access Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Open the file as a text stream (1 = ForReading, True = Create) Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True) ' Read the current count from the file If Not objCountFile.AtEndOfStream Then ' Set value to contents of the file iCount = CLng(objCountFile.ReadAll) Else ' If no file exists or it's empty start at 0 iCount = 0 End If ' Close the file and destroy the object objCountFile.Close Set objCountFile = Nothing ' Increment the count iCount = iCount + 1 ' Overwrite existing file and get a text stream to new one Set objCountFile = objFSO.CreateTextFile(strCountFileName, True) ' Write updated count objCountFile.Write iCount ' Close the file and destroy the object objCountFile.Close Set objCountFile = Nothing ' Destroy the FSO object Set objFSO = Nothing %> <% Dim s_move_player_function %> The Chick Flick - An all female wakeboard video by David Cervenka & Joe Umali

<% Select case Request("i") Case "1" response.Write("") Case "2" response.Write("") Case "3" response.Write("") Case Else response.Write("") End Select %>
Can't see the video? Download Quicktime 7 HERE

The Chick Flick

The Chick Flick is the first full-length ALL female wakeboard film to hit the market since 1998. Eight years overdue DPC Films is making sure that this video will make a lasting impression!

Featuring World and X-Games Champions Dallas Friday and Emily Copeland-Durham, X-Games Champion Maeghan Major, UK's Champion Louise Moore & Will Christien, Florida's locals Sonja Scheffler, Cathy Williams, Leslie Kent, Heather Johnson, Australia's Amber Wing & Hayley Smith, New Zealand's Andrea Fountain, Argentinas Robbie Rendo, West Coast riders Gretchen Hammarberg, Shelby Kantar, Raequel Hoffman, and Shawna Hoffman, Wakeskaters Stef Tor, Megan McNeil and many more!