<% Dim WhatLanguage If len(Request.QueryString("lang")) = 2 Then Select Case lcase(Request.QueryString("lang")) Case "en" Response.Cookies.Item("PBLang") = "en" Case "es" Response.Cookies.Item("PBLang") = "es" Case "fr" Response.Cookies.Item("PBLang") = "fr" End Select End If If Request.Cookies.Item("PBLang") <> "" Then WhatLanguage = Request.Cookies.Item("PBLang") ElseIf Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") <> "" Then Dim reqlang : reqlang = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") Dim arreqlang, iz : arreqlang = split(reqlang,",") For iz = Lbound(arreqlang) to Ubound(arreqlang) Select Case Left(arreqlang(iz),2) Case "en" WhatLanguage = "en" Response.Cookies.Item("PBLang") = "en" Exit For Case "es" WhatLanguage = "es" Response.Cookies.Item("PBLang") = "es" Exit For Case "fr" WhatLanguage = "fr" Response.Cookies.Item("PBLang") = "fr" Exit For End Select Next End If If not len(WhatLanguage) = 2 Then WhatLanguage = "en" Dim esPage : esPage = "/es" & Request.ServerVariables("SCRIPT_NAME") If WhatLanguage = "es" Then Response.Redirect(esPage) Dim frPage : frPage = "/fr" & Request.ServerVariables("SCRIPT_NAME") If WhatLanguage = "fr" Then Response.Redirect(frPage) 'Response.Write Request.ServerVariables("ALL_HTTP") & "
" 'Response.Write Request.Cookies.Item("PBLang") & "
" 'Response.write Request.ServerVariables("SCRIPT_NAME") 'Response.End %> Pierina B

English - " class="lang">Spanish - " class="lang">French


Now purchased in EURO - Maintenant faites vos achats en EURO - Ahora haga sus compras con EURO

  © 2005 Pierina B. a PAWD design