<% Const IMGS_DIR = "/radom mainpage/" Dim objFSO, objFolderObject, objFileCollection, objFile Dim intFileNumberToUse, intFileLooper Dim objImageFileToUse Dim strImageSrcText Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR)) Set objFSO = Nothing Set objFileCollection = objFolderObject.Files Set objFolderObject = Nothing Randomize() intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1 intFileLooper = 1 For Each objFile in objFileCollection If intFileLooper = intFileNumberToUse Then Set objImageFileToUse = objFile Exit For End If intFileLooper = intFileLooper + 1 Next Set objFileCollection = Nothing strImageSrcText = IMGS_DIR & objImageFileToUse.Name Set objImageFileToUse = Nothing %> <% Const IMGS_DIR = "/" Dim objFSO, objFolderObject, objFileCollection, objFile Dim intFileNumberToUse, intFileLooper Dim objImageFileToUse Dim strImageSrcText Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR)) Set objFSO = Nothing Set objFileCollection = objFolderObject.Files Set objFolderObject = Nothing Randomize() intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1 intFileLooper = 1 For Each objFile in objFileCollection If intFileLooper = intFileNumberToUse Then Set objImageFileToUse = objFile Exit For End If intFileLooper = intFileLooper + 1 Next Set objFileCollection = Nothing strImageSrcText = IMGS_DIR & objImageFileToUse.Name Set objImageFileToUse = Nothing %>

Mock
Mardi Gras Ball

Kings and Queens were chosen for Best Dressed at the Mock Mardi Gras Ball.

Princes and Princesses were chosen for Best Performers of the Waltz at the Mock Mardi Gras Ball.

 

 

 

 

 

 

 

 
Krew of Sanders


Queen Madelyn
King Vernon



Princess Laura
Prince Raven
Princess Jessica
Prince William
Princess Abby


Krew of Paille

 

     

Queen Victoria, King Walker, and Queen Karah
Not Pictured: Prince Connor Princesses Alexis and Savannah

 

 

 

 

 


    

Krewe of Petro



Queen Corrine and
King Justin


Princess Brianna and Princess Victoria

Krewe of Mosbey

Prince Noah and Princess Taylor

Queen Erynne and King Colt
Krewe of Tosso


Princess Emily & Princess Taylor




Queen Alissa and King Jared


Krewe of Smith
Queen Holly
Princess Caitlin
Princess Elise
Princess Makayla
Princess Caylee