<%
On Error Resume Next
Response.Expires = 0
Dim strLanguage
Dim strLogin
Dim strSecureURL
Dim blnOptimizedCode : blnOptimizedCode = True
Session.CodePage ="1252"
Response.CharSet ="windows-1252"
strLanguage = "it"
Set ApplicationDispatcher = Session("ApplicationDispatcher")
If (Err.number = 0) Then
ApplicationDispatcher.LanguageCode = strLanguage
If (ApplicationDispatcher.Application.Business.UserLoggedIn) Then
strLogin = "az_registered"
If (ApplicationDispatcher.Application.Business.Customers.CurrentLogged.IsMilleMiglia) Then
strLogin = "mm_member"
If (ApplicationDispatcher.Application.Business.Customers.CurrentLogged.Market = "ITALY") Then
strLogin = "mm_member_italian"
End If
End If
Else
strLogin = ""
End If
End If
%>
Alitalia - Oficinas Alitalia
