Scuba Diving Packages

Over the years, the Red Sea has become one of the most popular tourist destinations in the world. Aside from being a central location that provides easy access to many parts of the Middle East region, it is also one of the best diving and snorkeling sites in the world.

Even though many coral reefs around the world are becoming pale and lifeless because of pollution, you will find that those beneath the Red Sea in Egypt still retain their vibrant colors and exotic appearance.

Egypt is also making an enormous effort to ensure that the corals, fish, and other marine animals in this area are carefully protected.

When you get our diving experience in cities like Sharm El Sheikh, Hurghada, or Marsa Alam you will certainly understand why many divers prefer to return to the Red Sea as often as possible.
 

<% 'Start the ASP Tag Set conn = server.createobject("adodb.connection") 'Define the location of your database and your Password conn.connectionstring = "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost; DATABASE=contour2_continentaltours; UID=contour2_tamer;PASSWORD=titi2000; OPTION=3" 'Open Connection conn.Open Set rs=Server.CreateObject("ADODB.recordset") 'Enter your SELECT Statement rs.open "Select * from packages where (PackageID ='29' OR PackageID ='30' OR PackageID ='31' OR PackageID ='32' OR PackageID ='33' OR PackageID ='34' OR PackageID ='35') ", conn do until rs.EOF x_PackageID = rs("PackageID") x_PackageName = rs("PackageName") x_PackageImage = rs("PackageImage") x_Duration = rs("Duration") x_Cities = rs("Cities") x_Program = rs("Program") x_ImageHome = rs("ImageHome") x_HomeAdd = rs("HomeAdd") %>

" style="text-decoration: none; font-weight:700"> <% Response.Write x_PackageName %> <% If Not IsNull(x_PackageImage) Then %> <% End If %>
<% Response.Write x_Duration %>
<% Response.Write x_Cities %>
<% Response.Write x_Extra %>
<% 'Move to the Next Record in the database rs.movenext loop %>