<%
function FRM(value)
FRM=Replace(Trim(value)," "," ")
end function
'--------------------------------------
Dim LNG, PG, Tit
LNG=Trim(Request.QueryString("lng")): IF LNG<>"uk" Then LNG="gr"
PG=Trim(Request.QueryString("pg")): IF PG="" THEN PG="1_0"
Select Case LNG
Case "uk"
Tit="Federation of Peloponnese & Western Greece Industries"
PageHome="Home"
PageNews="News"
PageContact="Contact"
Case "gr"
Tit="Σύνδεσμος Βιομηχανιών Πελοποννήσου & Δυτικής Ελλάδος"
PageHome="Αρχική Σελίδα"
PageNews="Νέα"
PageContact="Επικοινωνία"
End Select
%>
<%= Replace(Tit,"<br>"," ")%>
