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