code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| <%
TheLanguages=split (Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"),",")
Numberoflanguages=ubound(TheLanguages)
response.write("The languages selected in your browser:<BR>")
i=0
if Instr(TheLanguages(i),";") then
TheLanguages(i)=Mid(TheLanguages(i), 1,Instr(TheLanguages(i),";")-1)
end if
select case TheLanguages(i)
case "nl"
response.write "Hollanda"
case "en"
response.write "Engels"
case else
response.write "anders"
end select
response.write("<BR>")
%> |
Nu heb je bijv. ook: EN-JM enz enz
de bedoeling is dat ik dan alleen EN uitlees en vervolgens doorverwijs naar een engelse pagina, maar hoe test ik op de 1e 2 tekens, of hoe gooi ik de laatste 3 tekens weg
[ Voor 12% gewijzigd door Cai op 15-09-2003 13:34 ]