forked from pspc-spac/avadepth
-
Notifications
You must be signed in to change notification settings - Fork 0
/
language.asp
28 lines (28 loc) · 926 Bytes
/
language.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim DocName
DocName = request.serverVariables ("HTTP_REFERER")
Select Case True
Case instr (DocName, "eng.") > 0
DocName = Replace((DocName), "-eng.", "-fra.")
Case instr (DocName, "fra.") > 0
DocName = Replace((DocName), "-fra.", "-eng.")
Case instr (DocName, "ENG.") > 0
DocName = Replace((DocName), "-ENG.", "-FRA.")
Case instr (DocName, "FRA.") > 0
DocName = Replace((DocName), "-FRA.", "-ENG.")
Case instr (DocName, "Eng.") > 0
DocName = Replace((DocName), "-Eng.", "-Fra.")
Case instr (DocName, "Fra.") > 0
DocName = Replace((DocName), "-Fra.", "-Eng.")
Case instr (DocName, "e.") > 0
DocName = Replace((DocName), "_e.", "_f.")
Case instr (DocName, "f.") > 0
DocName = Replace((DocName), "_f.", "_e.")
Case instr (DocName, "E.") > 0
DocName = Replace((DocName), "_E.", "_F.")
Case instr (DocName, "F.") > 0
DocName = Replace((DocName), "_F.", "_E.")
End select
Response.redirect Docname
%>