<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
/images/logos/favicon.ico" type="image/x-icon">
/images/logos/favicon.ico" type="image/x-icon">
<%
'extract the title for this page from the name
'of the file. this obviously relies on the fact
'that someone has given it a nice name
ScriptName=CStr(Request.ServerVariables("SCRIPT_NAME"))
'Response.Write (ScriptName) + " "
ScriptParts=Split(ScriptName,"/")
ScriptFile=ScriptParts(Ubound(ScriptParts))
ScriptFileParts=Split(ScriptFile,".")
ScriptTitle=ScriptFileParts(0)
First_3_chars = Left (ScriptTitle, 3)
If Right (First_3_chars, 1) = "$" Then
ScriptTitle = Mid (ScriptTitle, 4)
End If
'if whatever we are left with is an index file
'then use the name of the parent directory instead
If Lcase(ScriptTitle) = "index" Then
ScriptTitle=ScriptParts(Ubound(ScriptParts)-1)
End If
'if Request.QueryString("title") exists then
'append it to ScriptTitle
If Trim(Request.QueryString("title")) <> "" Then
ScriptTitle = ScriptTitle + ": " + Request.QueryString("title")
Else
If Trim(Request.QueryString("directory")) <> "" Then
ScriptTitle = Request.QueryString("directory")
End If
End If
ScriptTitle=Replace(ScriptTitle,"-"," ")
ScriptTitle=Replace(ScriptTitle,"_"," ")
ScriptTitle=Replace(ScriptTitle,"/pages/","")
ScriptTitle=Replace(ScriptTitle,"/"," - ")
ScriptTitle=Replace(ScriptTitle," and "," & ")
%>
<%=Application("company_long_name")%> - <%=ScriptTitle%>
">
