<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_s_STRING Recordset1.Source = "SELECT * FROM Area ORDER BY AreaName ASC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> Diving Worldwide Newsletter And Special Offers



Home Diving Areas Live AboardNewsletterAbout UsContact Us
Newsletter

Our Newsletter
For the next few months this newsletter page will carry special offers from our advertisers.
About www.divingworldwide.co.uk


Live aboard







Specials
Click here to
learn more

Advertise
Click here to
learn more
Looking to buy a dive business?



Diving related businesses   for sale:








































DivingWorldwide © 2007
Terms Of Use  |  Privacy Policy

Home     |     Diving Areas     |     News     |     Advertise     |     About Us     |     Contact Us

<% Recordset1.Close() Set Recordset1 = Nothing %>