<% Const IMGS_DIR = "/quotes/" 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 %>









Contact Larry Brudnicki TODAY!

To engage Captain Larry Brudnicki to speak to your group and to find out more about his services please submit this simple contact form. Or contact us at the contact points below.

Your Information *Indicates required fields.
*First Name *Last Name
Organization
*Phone Fax
*Email

Event Information

Location of Event
Date of Event # of Attendees
Purpose of Event
Theme of Event

Message

Yes, I'd like more information on Captain Larry Brudnicki's speaking services.
Privacy Guarantee: We will not sell, rent or give away your e-mail address or personal information without your consent.

Toll Free:
866-816-8080

Local:
603-763-9537

Fax:
603-763-9648

Mailing Address:
Captain Larry Brudnicki
P.O. Box 318
Sunapee, NH 03782

Email: Info@Brudnicki.com

 

 

Home • The Perfect Storm • Speaking Programs • About Captain Brudnicki
Video Preview • Event Resources • Testimonials • Contact • Site Map

© 2006 Captain Larry Brudnicki. All Rights Reserved