Home

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_projectconifos2_STRING Recordset1.Source = "SELECT UserName FROM table_member" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> Home

Pictures\clips

Feature Screenplays

Short Screenplays

About Adrian

About Rob

Grayson/Webster Productions is a new independent film entity set up by two enthusiastic film makers. Our aim is to bring excellence and originality to independent film.

www.johncommandomovie.co.uk

John Commando is the story of a reluctant hero, who has abandoned his career in the military. After taking refuge in peaceful surroundings with his son, he is unable to appreciate the tranquillity as strange creatures invade his home. John must battle this new enemy and deal with the moral choices he once made as they come back to haunt him.

View John Commando Gallery

The Cellar Project

(More)

The Cellar Project

The film focuses on the kidnapping of two men and their subsequent captivity. One of the captors is forced to watch the brutal murder of his girlfriend and the other is forced into an act, which will shatter him completely.

Both are forced to contemplate their own existence as they realise that they may not escape with their lives.

‘Teaser Trailer for The Cellar Project ’

'To Watch The Full Movie Please Click Link'

Eyes in

Our first production, has been aired across Europe via a channel called Propeller TV.

Eyes In

(More)

On a night like any other, a driver witnesses an incident that draws him to question his own morals. And in the frantic few minutes that follow, he desperately searches the deepest reaches of himself to find an answer.

Download preview

Script Factory (Shorts)

The Last Seduction (30 pages)

Set in victorian times, the story follows the unnatural relationship between a human and a vampire. (More)

Script Factory

The Calling

A cross section of society simultaneously experience an uncontrollable desire to undertake a mass pilgrimage to an unknown destination. (More)

<% Recordset1.Close() Set Recordset1 = Nothing %>