% response.expires=-1000 response.expiresabsolute=dateadd("m", -2, date) response.CacheControl="private" if not session("username")="" then loginstatus=1 else loginstatus=0 end if response.buffer=true On Error Resume Next set Conn=Server.CreateObject("ADODB.Connection") 'Conn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".") & "\indiahoy.mdb;" Conn.open Application("dbConnStr") 'isinbound is used to check the regions to be displayed if request("isinbound") = "" OR request("isinbound") = "I" then isinbound = "I" else isinbound = "O" end if 'select regions as user have choosed isinbound Set rs=Conn.execute("Select regionid, region from region WHERE status='A' and ISINBOUND = '"&isinbound&"' Order by region") if not rs.eof then reglist=rs.getrows() end if flashstring="" if session("username")<>"" then flashstring="&loginstatus=1&username=" & session("FirstName") end if %>
|
<% if session("totalamount") <> "" then %>
|
||
|
|
<%
'com object will used to display banners
Set CrossSell = Server.createObject("MMTREV2.CrossSell")
Set CrossSell.DataConnection = conn
CrossSell.BannerPath = "/CrossSell" 'Path of the banners
CrossSell.CrossSellItem = CrossSell.CrossSellChatItem ' [CrossSellFlightItem | CrossSellPackageItem | CrossSellHotelItem | CrossSellCarItem | CrossSellChatItem]
banner = crossSell.getBanner
response.write " " if not isNull(banner) then response.write banner end if response.write " " CrossSell.sizeName = "square" ' ["square" | "vrect" | "hrect" | "lrect"] CrossSell.CrossSellItem = CrossSell.CrossSellPackageItem ' [CrossSellFlightItem | CrossSellPackageItem | CrossSellHotelItem | CrossSellCarItem] Response.Write CrossSell.getBanner response.write " " Set CrossSell=nothing Conn.close Set conn = nothing %>![]() |
||||||||||||||||||
|
|
||||||||||||||||||