Welcome

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Session("DocID") = "233" Const IMGS_DIR = "./rndimgs/" ' Initialize the random number generator. This is the ' command that tells the computer to give us psedo-random ' numbers when we use Rnd later. Randomize ' Variables for our FileSystemObject objects Dim objFSO, objFolderObject, objFileCollection, objFile, gccode, gccode2 ' A pair of integers for our random image selection Dim intFileNumberToUse, intFileLooper, intFileNumberToUse2 ' A "handle" to the file we choose to use Dim objImageFileToUse ' A variable to build our image tag Dim strImageSrcText, strImageSrcText2 ' Lets see what's in the directory: Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR)) Set objFSO = Nothing Set objFileCollection = objFolderObject.Files Set objFolderObject = Nothing ' Get a count of files and use it to generate a random ' number from 1 to the count-1. this is so that the 2nd 'number can always be one more than the first if they happen to be the same. intFileNumberToUse = Int((objFileCollection.Count-1) * Rnd)+1 ' Set up loop control so we exit when we get to the random ' file number we just picked. intFileLooper = 1 For Each objFile in objFileCollection If intFileLooper = intFileNumberToUse Then ' Get a "handle" on the appropriate file Set objImageFileToUse = objFile Exit For End If intFileLooper = intFileLooper + 1 Next ' Build our img src tag text strImageSrcText = IMGS_DIR & objImageFileToUse.Name gccode=mid(objImageFileToUse.Name,1,len(objImageFileToUse.Name)-4) ' Get a count of files and use it to generate a random ' number from 1 to the count. intFileNumberToUse2 = Int(objFileCollection.Count * Rnd) + 1 if intFileNumberToUse2=intFileNumberToUse Then intFileNumberToUse2=intFileNumberToUse2 + 1 end if ' Set up loop control so we exit when we get to the random ' file number we just picked. intFileLooper = 1 For Each objFile in objFileCollection If intFileLooper = intFileNumberToUse2 Then ' Get a "handle" on the appropriate file Set objImageFileToUse = objFile Exit For End If intFileLooper = intFileLooper + 1 Next Set objFileCollection = Nothing ' Build our img src tag text strImageSrcText2 = IMGS_DIR & objImageFileToUse.Name gccode2=mid(objImageFileToUse.Name,1,len(objImageFileToUse.Name)-4) Set objImageFileToUse = Nothing ' Show the image: %> Welcome

Thank-you

The third Mega event to be held in the UK took place on Saturday 31st July 2010, when the big event traveled North to the Scottish town of Perth.

As well as the main event there was a full range of side events, trade stands, geo-talks, raffle prizes, geocoin trading, travel bug swaps, and of course there was ample opportunity to speak to fellow cachers as well!

In all 1301 people attended the event and a big thank-you to everyone to came to Perth.

As previously stated, we indicated that we would publish the a Statement of Accounts within three months of the event and these can be accesed by clicking here.

Look forward to seeing you all at Mega Wales next summer.

The Mega Scotland team
October 2010

Site Meter