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
<% end if %>
if rowcount mod 2=1 then %>
<% end if %>
sql="select a.catid,a.catname,(select count(b.offerid) from mstoffer b where b.catid=a.catid) as co from cdcat a"
while not rscat.eof
if rscat("co")>0 then
sql="select a.*,b.catname,c.otype from mstoffer a,cdcat b,cdotype c where a.catid=b.catid and a.otypeid=c.otypeid and a.catid=" & rscat("catid")
while not rsoffer.eof
The air holidays and flights* shown are ATOL Protected by the Civil Aviation Authority. Our ATOL number is ATOL 6383. ATOL Protection extends primarily to customers who book and pay in the United Kingdom.
Click on the ATOL logo if you want to know more.
The air holidays shown are ATOL Protected by the Civil Aviation Authority, and we act as agents for licensed tour
operators; the relevant ATOL number is displayed with each holiday shown. The flight bookings we make are also ATOL Protected, except when tickets for scheduled flights are sent to you within 24 hours of payment being accepted, or where your payment is made direct to airlines. ATOL Protection extends primarily to customers who book and pay in the United Kingdom. Click on the ATOL logo if you want to know more.