<% Server.ScriptTimeout = 300 ' Encontramos el lenguaje del browser ' Espaņol=es, Ingles=en, Aleman=de, Sueco=sv ' comienza comentado por ccv. If Instr(1,Ucase(request.servervariables("http_accept_language")), ",", 0) > 0 Then strLangBrowser = Mid(Ucase(request.servervariables("http_accept_language")), 1, Instr(1,Ucase(request.servervariables("http_accept_language")), ",", 0)-1) Else strLangBrowser = Ucase(request.servervariables("http_accept_language")) End if If InStr(1, strLangBrowser, "EN", 0) > 0 Then Session("IdIdiomaBrowser") = 2 'ElseIf InStr(1, strLangBrowser, "DE", 0) > 0 Then ' Session("IdIdiomaBrowser") = 3 'ElseIf InStr(1, strLangBrowser, "SV", 0) > 0 Then ' Session("IdIdiomaBrowser") = 4 Else Session("IdIdiomaBrowser") = 1 ' lenguaje del browser es Espaņol End If %> Proincosta






Bienvenido a PROINCOSTA


Si no puede entrar pulse Aquí