<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart 
  Application("CompanyImage")  = "http://www.miosito.it/images/logo.gif"
  Application("CompanyNumber") = ""
  Application("CompanyCity") = ""
   Application("CompanyEMail")  = ""
  Set ObjApp = Server.CreateObject("Area51.Settings")
  Application("ServiceStatus") = ObjApp.SetTheSiteUp("miodito")
end sub
Sub Session_onStart
  Session("IdLingua")= 1
  Session("SuffLang") = "eng"
  Session("IDValuta") = 1
  Session("Campovisibilita") = "Visibility"
  Session("CharSet") = "text/html; charset=iso-8859-1"  
  Session("ChiaveSito") = "Base"
    Session("Cld") = 0
  Session("Adl") = 2
  Session("QtStanza") = 1
  Session("IDVehicle") = 1
  Session("IDCategory") = 1
  Session("IDPCombo") = 1
   Session("IndirizzoSito") = "http://www.miosito.it" 
  Session("IndirizzoSitoImg") = "http://www.miosito.it"
  Session("IndirizzoSitoBase") = "http://www.miosito.it" 
  Session("IndirizzoSitoResImage") = "http://www.miosito.it"
  Session("IndirizzoSitohttps") = "http://www.miosito.it"
  Session("HeadBgImage") = "pix.gif"
  Session("NomeSito") = "miosito"
  Session("TitoloSito") = "miosito"
  Session("Logged") = "KO"
  Session.Timeout = 30
  Session("Start") = Now()
  Session("ADVANCE_DAYS")  = 15
  Session("ADVANCE_PERC")  = 15
  Session("BALANCE_DAYS")  = 7
  Session("PAYMENTMETHOD") = 1
  Session("SpecialCalc") = 0
  Session("TotaleLimite") = 500
  Session("ThemeArea") = 140
  Session("ThemeHotel") = 1
  Session("ThemeTours") = 2
  Session("AgencyCode") = "WEBSITEREG"
  Session("RegEMail") = "noresponse@miosito.it"
  Session("PromoDuration") = 9999
  Session("PromoPerc") = 10
  Session("BaseColor") = "#CC3333"
  Session("PageMenu_Resume")  = 25
  Session("PageMenu_Support") = 19
  Session("PageMenu_HotDeals") = 21
  Session("PageMenu_SupportSearch") = 19
  Session("PageMenu_TermConditions") = 2
  Session("PageMenu_Enquiry") = 19
  Session("PackMulti") = 0
  Session("SendInvoice") = 0
  Session("NationalInvoice") = 0
  Session("EnquiryEnabled") = 1
  Session("LogoImage") = "logo.gif"
  Session("Booking_StartPage") = "booking_op/travel.asp?Ty=H"
  Set ObjApp = Server.CreateObject("Area51.Settings")
  Call ObjApp.StartSession(Session.SessionID)
  Session("BookingMark") = "MASTER"
End Sub
Sub Session_OnEnd()
  Session("Logged") = "KO"
End Sub
Sub Session_OnAbandon
  Session("Logged") = "KO"
End sub
Sub Application_OnEnd()
   Set ObjApp = Nothing
End Sub
</SCRIPT>