<%
Dim StrURL
strURL = Request.ServerVariables("URL")
if strFocus <>"" Then strFocus="document."& strFocus & ".focus();"
%>
<%=strMETATags%>
<% If strRightIncludeFile<>"" Then
Function getFileContents(strIncludeFile)
Dim objFSO
Dim objText
Dim strPage
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objText = objFSO.OpenTextFile(Server.MapPath(strIncludeFile))
getFileContents = objText.ReadAll
objText.Close
Set objText = Nothing
Set objFSO = Nothing
End Function
%>
<% else %>
<% End If%>
