% 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) %>
CALL: 07875 053116
EMAIL: info@speakerswithpassion.com
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.