<% Response.Expires = 0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-control", "private, no-cache, no-store, must-revalidate" %> <% If Not IsLoggedIn And Request.Cookies(ewProjectName)("autologin") = "autologin" And Request.Cookies(ewProjectName)("password") <> "" Then Response.Redirect "login.asp" Call LoadUserLevel() If IsLoggedIn Then ewCurSec = CurrentUserLevelPriv("packages") Else ewCurSec = GetAnonymousPriv("packages") End If If (ewCurSec And ewAllowView) <> ewAllowView Then Response.Redirect "packageslist.asp" %> <% ' Initialize common variables x_PackageID = Null: ox_PackageID = Null: z_PackageID = Null x_PackageName = Null: ox_PackageName = Null: z_PackageName = Null x_PackageImage = Null: ox_PackageImage = Null: z_PackageImage = Null fs_x_PackageImage = 0: fn_x_PackageImage = "": ct_x_PackageImage = "" wd_x_PackageImage = 0: ht_x_PackageImage = 0: a_x_PackageImage = "" x_Duration = Null: ox_Duration = Null: z_Duration = Null x_Cities = Null: ox_Cities = Null: z_Cities = Null x_Program = Null: ox_Program = Null: z_Program = Null x_ImageHome = Null: ox_ImageHome = Null: z_ImageHome = Null fs_x_ImageHome = 0: fn_x_ImageHome = "": ct_x_ImageHome = "" wd_x_ImageHome = 0: ht_x_ImageHome = 0: a_x_ImageHome = "" x_HomeAdd = Null: ox_HomeAdd = Null: z_HomeAdd = Null %> <% Response.Buffer = True x_PackageID = Request.QueryString("PackageID") If x_PackageID = "" Or IsNull(x_PackageID) Then Response.Redirect "packageslist.asp" ' Get action sAction = Request.Form("a_view") If sAction = "" Or IsNull(sAction) Then sAction = "I" ' Display with input box End If ' Open connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str Select Case sAction Case "I": ' Get a record to display If Not LoadData() Then ' Load Record based on key Session(ewSessionMessage) = "No records found" conn.Close ' Close Connection Set conn = Nothing Response.Clear Response.Redirect "packageslist.asp" End If End Select %> Continental Tours | Travel Agency | Egypt | <% Response.Write x_PackageName %> Package



 

">
  <% Response.Write x_PackageName %>
 

<% If Not IsNull(x_PackageImage) Then %> <% End If %>

 
  <% Response.Write x_Duration %>
 
  <% Response.Write x_Cities %>
 
Full Name *
Email *
Telephone number *
Nationality *
Number of Adults *
Number of Children *
Number of Rooms *
Type of Room * Single : Double : Triple :
Meal Plan *
Accommodation category *
Approximate arrival time *
Approximate departure time *
Comments
 

* Required fields

<% conn.Close ' Close Connection Set conn = Nothing %><% '------------------------------------------------------------------------------- ' Function LoadData ' - Load Data based on Key Value ' - Variables setup: field variables Function LoadData() Dim rs, sSql, sFilter sFilter = ewSqlKeyWhere If Not IsNumeric(x_PackageID) Then LoadData = False Exit Function End If sFilter = Replace(sFilter, "@PackageID", AdjustSql(x_PackageID)) ' Replace key value sSql = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sFilter, "") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sSql, conn If rs.Eof Then LoadData = False Else LoadData = True rs.MoveFirst ' Get the field contents 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") End If rs.Close Set rs = Nothing End Function %>