Källkoden för /anders.enges/asp/lang.asp

---

<!--#include file="../inc/navstuff.asp" -->
<%  L= Request("L")
if L = "" Then
   L = 0
End If
Select Case L
   case 0
      Response.write "Tämä sivu on suomenkielinen?<p>"
   case 1
      Response.write "Denna sida är svensk<p>"
   case 2
      Response.write "This is a english page?<p>"
   case else
      Response.write "Vilket språk menar du?<p>"
End Select
%>

Prova följande:<p>

Välj browserns adressfält där det nu står
<%  If Request.QueryString() <> "" Then %>
<b>http://<%  =Request.ServerVariables("SERVER_NAME")%><%  =Request.ServerVariables("URL")%>?<%  =Request.ServerVariables("QUERY_STRING")%>
<%  Else %>
<b>http://<%  =Request.ServerVariables("SERVER_NAME")%><%  =Request.ServerVariables("URL")%>
<%  End If %></b><p>
Ändra adressen till <b>http://<%  =Request.ServerVariables("SERVER_NAME")%><%  =Request.ServerVariables("URL")%>?L=<%  =Request("L") + 1 %></b><p>

Ibland vill man ha sidor på flera olika språk. Istället för att skapa
separata sidor kan man göra på följande sätt. Se även <a href="request.asp">request</a> och sektionen om <a href="easy.asp#problem">include</a><p>
<div class=code>
<font color="#8B008B">
<span class=asp><% L= Request("L")<br>
if L = "" Then<br>
  L = 1 ' default är 1<br>
End If %></span><br>
<FONT COLOR=#006400><!--#include file="konstanter.asp" --></font><br>
<span class=asp><% =greeting %></span><p><br>
<span class=asp><% =weAre %></span><br><br>
<span class=asp><% =adress %></span><br><br>
</font>
</div><p>
Där filen <b>konstanter.asp</b> innehåller följade<p>
<div class=code>
<span class=asp><%<br>
Dim greeting<br>
Dim weAre<br>
Dim adress<br>
Select Case L<br>
  case 0<br>
    greeting = "Tervetuloa"<br>
    weAre = "Vaasa liketalous ..."<br>
    adress = "Ruutinkellarintie 2-4"<br>
  case 1<br>
    greeting = "Välkommen"<br>
    weAre = "Vasa intitut för ..."<br>
    adress = "Krutkällarv. 2-4"<br>
  case 2<br>
    greeting = "Welcome"<br>
    weAre = "Vasa intitute of ..."<br>
    adress = "Powdercellarroad 2-4"<br>
End Select<br>
%></span>
</div><p>
Genom att sätta till <b>?L=<i>språkkod</i></b> kan man få en sida flerspråkig.
Det är inte alltid det lönar sig att göra på ovanstående sätt, men om man
har sidor där det inte finns så mycket text kan man göra på detta sätt
(den ökända VapVal är konstruerad så)<p>
<!--#include file="../inc/footer.asp" -->