<% dim sql,mycmd,rsoffer,rscat Set rsoffer = Server.CreateObject("ADODB.RecordSet") Set rscat = Server.CreateObject("ADODB.RecordSet") Set mycmd = Server.CreateObject("ADODB.Command") set mycmd.ActiveConnection = mycon %> Red Carpet Travel Weddings and Honeymoons - specialists in luxury weddings and honeymoons abroad

Home | Wedding & Honeymoons | Maldives | Caribbean & Bermuda | Mauritius & Seychelles | Cyprus & Greece | USA & Canada | Cruise |
|
Booking Enquiry | Special Offers | Terms and Conditions |

Valid HTML 4.01!
The ABTA logo The ATOL logo