- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
Case vIP(1)
Case "1" v_empirumserver="evempr"
....
ещё где-то 100 таких-же строчек
....
Case "160" v_empirumserver = "svcf1501"
Case "161"
Select Case vIP(2)
Case "17"
End Select
v_empirumserver = "svnrw040"
Case "163"
v_empirumserver = "svrg5008"
....
ещё где-то 100 таких-же строчек
....
End Select
и если это так - то такого изврата я еще не видел....