<% Option Explicit Response.Buffer = True 'For browsers (set expiration date some time well in the past) Response.Expires = -1000 'For HTTP/1.1 based proxy servers Response.CacheControl = "no-cache" 'For HTTP/1.0 based proxy servers Response.AddHeader "Pragma", "no-cache" Dim img(5) img(1) = "david.jpg" img(2) = "richard.jpg" img(3) = "peter.jpg" img(4) = "harun.jpg" img(5) = "john.jpg" dim link(5) link(1) = "davidhyner.htm" link(2) = "speakers.htm" link(3) = "peterroper.htm" link(4) = "harunrabbani.htm" link(5) = "johnsealey.htm" Function RandomNumber(intHighestNumber) Randomize RandomNumber = Int(intHighestNumber * Rnd) + 1 End Function Dim strRandom strRandom = RandomNumber(5) Dim strRandomimg strRandomimg = img(strRandom) Dim strRandomlink strRandomlink = link(strRandom) %> Speakers with Passion

CALL: 07875 053116
EMAIL: info@speakerswithpassion.com

Bookings

Would you like more information of any of the speakers we manage?

Please tell us a little about you and your event and we will advise you without any obligation on your part.

Please click here to submit details of your event.

Welcome to Speakers with Passion