| " style="text-decoration: none; font-weight:700"> <% Response.Write x_PackageName %> |
<% If Not IsNull(x_PackageImage) Then %>
|
| <% Response.Write x_Duration %> | |
| <% Response.Write x_Cities %> | |
| <% Response.Write x_Extra %> | |
|
Middle East Vacation Packages |
|
|
|
For genuine travelers and history lovers, the Middle East is the land where great civilizations were born, battled and perished. Middle East vacation packages have something to provide to tourists of all tastes and likes. Culture, sun, sand and shopping, could be the highlight of your Middle East vacation. |
<% '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 ='48' OR PackageID ='51' OR PackageID ='61' OR PackageID ='62' OR PackageID ='63' OR PackageID ='64' OR PackageID ='65' OR PackageID ='66' OR PackageID ='67' OR PackageID ='91' OR PackageID ='92' OR PackageID ='93' OR PackageID ='106' OR PackageID ='107' OR PackageID ='108') ", 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") %>
|