<%@ Language=VBScript %>
<%
okruh = Request.QueryString("okruh")
Select Case okruh
Case "all" ramec="treepv.asp"
Case "cp" ramec="treecp.asp"
Case "ce" ramec="treece.asp"
Case "cn" ramec="treecn.asp"
Case "cl" ramec="treecl.asp"
Case "da" ramec="treeda.asp"
Case "de" ramec="treede.asp"
Case "mp" ramec="treemp.asp"
Case "oe" ramec="treeoe.asp"
Case "oi" ramec="treeoi.asp"
Case "pp" ramec="treepp.asp"
Case "sz" ramec="treesz.asp"
Case "sp" ramec="treesp.asp"
Case "uc" ramec="treeuc.asp"
Case "zp" ramec="treezp.asp"
Case "os" ramec="treeos.asp"
End Select
%>
V∞cn² rejst°φk