<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Rscab_numRows = Rscab_numRows + Repeat1__numRows %> <% 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 %> Marketeers Carnival Club Home20072006200520042003200220012000Rat Jacket

Home
Contact
News Letter
History
Join
Multimedia
Other Pages


Keep updated about our Web Site & Marketeers Carnival Club


Powered by
MessageBot

Web Site is
hosted by
Pipm.com
Web Site
Maintained by
Bridgwater Photos
Google
Chilton School Bridgwater
Chilton School Bridgwater

Marketeers  Carnival Club have been doing Cabaret for over 25 years now. We hold 4 Cabaret's a year in February, May, September & Decembe





Inside The School
Inside The School

 

  • Here is a copy of a letter taken from the Bridgwater Mercury May 27 2003

    Click here for a review of our May 2003 Cabaret taken from the
    Bridgwater Mercury

    Click here for a review of our February 2003 Cabaret taken from the
    Bridgwater Mercury