<%@ Language = "VBScript" %> <% %> Holiday accommodation in the Cotswolds
Click now to see the breathtaking views from White House World HotelForest of Dean Bed and Breakfast
 
homepage
accommodation
area attractions
testimonials
atmosphere
booking form
email anne
directions

Tariff and Booking

Bed & breakfast per night per person................................£30.00

  • Advice given on best local eating venuest
  • We can only accept bookings for a minimum of two nights on bank holidays
  • name: telephone (inc code):
    address line 1:     date of booking:   <%= LongFormatDate(Date()) %>
    address line 2:     date of stay:  
    address line 3:     number of nights:  
    town/city:     number of adults:  
    county/state:     your email:  
    post code/zip code:          
    country:        
           

      Read what our guests sayProprietors: Mr & Mrs B. Turner
    Address: White House World • Popes Hill • Newnham on Severn
    Gloucestershire • GL14 1LE
    Tel: +44 (0) 1452 760463
       
    <% Function LongFormatDate(vDate) Dim vDay Dim vDayOfMonth Dim vMonth Dim vYear vDay = DatePart("w", vDate, vbMonday) Select Case vDay 'Works out which day of the week. (First day of the week set to monday) Case 1: vDay = "Mon" Case 2: vDay = "Tues" Case 3: vDay = "Wed" Case 4: vDay = "Thur" Case 5: vDay = "Fri" Case 6: vDay = "Sat" Case 7: vDay = "Sun" End Select vDayOfMonth = Day(vDate) Select Case vDayOfMonth 'Works out the PostFix for any day of the month Case 1, 21, 31: vPostfix = "st" '1st, 21st, 31st Case 2, 22: vPostfix = "nd" '2nd, 22nd Case 3, 23: vPostfix = "rd" '3rd, 23rd Case Else: vPostfix = "th" 'all other dates end with "th" 4th, 5th etc. End Select vMonth = DatePart("m", vDate) Select Case vMonth 'Works out which month of the year it is. Case 1: vMonth = "January" Case 2: vMonth = "February" Case 3: vMonth = "March" Case 4: vMonth = "April" Case 5: vMonth = "May" Case 6: vMonth = "June" Case 7: vMonth = "July" Case 8: vMonth = "August" Case 9: vMonth = "September" Case 10: vMonth = "October" Case 11: vMonth = "November" Case 12: vMonth = "December" End Select vYear = DatePart("yyyy", vDate) LongFormatDate = vDay & " " & vDayOfMonth & vPostfix & " " & vMonth End Function %>