<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Harelaw Cottages <% Const NUMBER_OF_IMAGES = 10 Randomize Dim intImageNumber intImageNumber = Int((NUMBER_OF_IMAGES * Rnd) + 1) %>

 

 
 
 
 
' <% dim cr Set cr=Server.CreateObject("MSWC.ContentRotator") response.write(cr.ChooseContent("quote/quotes.txt")) %> '