Africa Vacation Packages

 

From the Serengeti and grasslands of the savannah to stunning Cape Town…from the lofty majesty of Mount Kilimanjaro to the life-sustaining depths of Ngorongoro Crater, Continental Tours shows you Africa in the way most meaningful to you.

<% '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=204.93.172.30; 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 ='47' OR PackageID ='49' OR PackageID ='50' OR PackageID ='109') ", 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 %>