<% 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("hotdeals") Else ewCurSec = GetAnonymousPriv("hotdeals") End If If (ewCurSec And ewAllowView) <> ewAllowView Then Response.Redirect "hotdealslist.asp" %> <% ' Initialize common variables x_HotDealsID = Null: ox_HotDealsID = Null: z_HotDealsID = Null x_HotDealsImage = Null: ox_HotDealsImage = Null: z_HotDealsImage = Null fs_x_HotDealsImage = 0: fn_x_HotDealsImage = "": ct_x_HotDealsImage = "" wd_x_HotDealsImage = 0: ht_x_HotDealsImage = 0: a_x_HotDealsImage = "" x_HotDealsTitle = Null: ox_HotDealsTitle = Null: z_HotDealsTitle = Null x_HotDealsDuration = Null: ox_HotDealsDuration = Null: z_HotDealsDuration = Null x_Cities = Null: ox_Cities = Null: z_Cities = Null x_SpecialPrice = Null: ox_SpecialPrice = Null: z_SpecialPrice = Null x_HotDealsDescription = Null: ox_HotDealsDescription = Null: z_HotDealsDescription = Null %> <% Response.Buffer = True x_HotDealsID = Request.QueryString("HotDealsID") If x_HotDealsID = "" Or IsNull(x_HotDealsID) Then Response.Redirect "hotdealslist.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 "hotdealslist.asp" End If End Select %> Continental Tours | Hot Deals | <% Response.Write x_HotDealsTitle %>


  <% If (ewCurSec And ewAllowEdit) = ewAllowEdit Then %> ">Edit  <% End If %> <% If (ewCurSec And ewAllowAdd) = ewAllowAdd Then %>   <% End If %> <% If (ewCurSec And ewAllowDelete) = ewAllowDelete Then %> ">Delete  <% End If %>

" target="PromoteFirefoxWindow" onclick="openRequestedPopup(this.href, this.target); return false;" title="Quote Request" rel="gb_page_fs[]" >

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

 
<% Response.Write x_HotDealsTitle %>
 
<% Response.Write x_HotDealsDuration %>
 
<% Response.Write x_Cities %>
 
<% Response.Write x_SpecialPrice %>
 
<%= Replace(x_HotDealsDescription&"", vbLf, "") %>

" target="PromoteFirefoxWindow" onclick="openRequestedPopup(this.href, this.target); return false;" title="Quote Request" rel="gb_page_fs[]" >

<% 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_HotDealsID) Then LoadData = False Exit Function End If sFilter = Replace(sFilter, "@HotDealsID", AdjustSql(x_HotDealsID)) ' 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_HotDealsID = rs("HotDealsID") x_HotDealsImage = rs("HotDealsImage") x_HotDealsTitle = rs("HotDealsTitle") x_HotDealsDuration = rs("HotDealsDuration") x_Cities = rs("Cities") x_SpecialPrice = rs("SpecialPrice") x_HotDealsDescription = rs("HotDealsDescription") End If rs.Close Set rs = Nothing End Function %>