Europe Vacation Packages

 

Experience the style and culture of Europe, from its ancient wonders to its timeless beauty. Marvel at the Sistine Chapel. Admire masterpieces in the Louvre. Cruise the canals of Venice—or the canals of Amsterdam. And that's just the start!

<% '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 ='68' OR PackageID ='69' OR PackageID ='70' OR PackageID ='73' OR PackageID ='74' OR PackageID ='75' OR PackageID ='76' OR PackageID ='77' OR PackageID ='78' OR PackageID ='79' OR PackageID ='80' OR PackageID ='81' OR PackageID ='82' OR PackageID ='83' OR PackageID ='84' OR PackageID ='85' OR PackageID ='86' OR PackageID ='87' OR PackageID ='88' OR PackageID ='89' OR PackageID ='90') ", 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 %>