Artisans By The Sea

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Artisans By The Sea - Contact <% Const IMGS_DIR = "/abts/topPics/" 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 %>

Please sign up for the free newsletter to find the next meeting place. We usually meet the 2nd Tuesday night of the month at different places. See the homepage for the location of the current month's venue.

Please contact these board members for more information about the group:

President of ABTS

Membership Director

Stencil images are used with permissions by Melanie Royals of Royal Design