 |
<%
Dim ServiceLineName, i
ServiceLineName=request.ServerVariables("URL")
'Response.write(ServiceLineName)
i=InStrRev(ServiceLineName,"/",-1,1)
'Response.write("
")
'Response.write(i)
ServiceLineName=Mid(ServiceLineName,11,i-11)
ServiceLineName=UCase(Mid(ServiceLineName,1,1))+Mid(ServiceLineName,2)
i=InStrRev(ServiceLineName,"_",-1,1)
'Response.write(ServiceLineName)
'Response.write(i)
if i>0 then
ServiceLineName=Mid(ServiceLineName,1,i-1) + " " + Mid(ServiceLineName,i+1)
'Mid(ServiceLineName,i, 1) = " "
end if
'Response.write("*" & ServiceLineName & "*")
if lcase(ServiceLineName) = "ent" then
ServiceLineName = "ENT"
end if
Response.write(ServiceLineName)
if ServiceLineName="Library" then Response.write(" online")
%>
|
 |