<%
'*********************************************************
'Do not edit anything in this box
Dim SmallURL, AgencyName, ContactUsURL, FOIAURL, AgencyTagLine, UseAgencyLink, UseSearchBox, TemplateUse, ContactPhone, ContactTTY
Dim SearchText, SearchURL, FAQURL, Montage, MontageWidth, MontageHeight, SearchBoxName, AgencyAcronym, MontageCopyright, TagStyle
Dim CrumbText(10)
Dim CrumbLink(10)
Dim FindItText(10)
Dim FindItLink(10)
Dim objFSO, NoSlash, objOpenFile, FileNoSlash, NoHTML
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
TheSlash = InStrRev(request.ServerVariables("URL"), "/")
NoSlash = Len(request.ServerVariables("URL")) - InStrRev(request.ServerVariables("URL"), "/")
FileNoSlash = Server.MapPath(request.ServerVariables("URL")) & ".meta"
If objFSO.FileExists(FileNoSlash) then
Set objOpenFile = objFSO.OpenTextFile(FileNoSlash, 1)
Do while not objOpenFile.AtEndOfStream
NoHTML = objOpenFile.ReadLine & chr(13) & chr(10)
NoHTML = replace(NoHTML, "", "")
NoHTML = replace(NoHTML, "", "")
NoHTML = replace(NoHTML, "
", "")
NoHTML = replace(NoHTML, "", "")
response.write NoHTML
Loop
end if
Set objOpenFile = Nothing
Set objFSO = Nothing
'*********************************************************
TemplateUse = "primary" ' primary or destination
AgencyName = "Office of Workers' Compensation Programs"
AgencyAcronym = "OWCP"
AgencyTagLine = ""
TagStyle = "italics" ' italics or normal
SmallURL = "www.dol.gov/owcp"
FAQURL = "/owcp/faqs.htm"
SearchText = "Search / A to Z Index"
SearchURL = "/dol/siteindex.htm"
ContactUsURL = "/owcp/contact.htm"
ContactPhone = "1-866-4-USA-DOL (1-866-487-2365)"
ContactTTY = "1-877-889-5627"
FOIAURL = "/dol/foia/"
UseAgencyLink = "yes" ' yes or no
UseSearchBox = "yes" ' yes or no
SearchBoxName = "FullText"
Montage = "/images/header-montage2.jpg"
MontageWidth = "356"
MontageHeight = "70"
MontageCopyright = "Photos representing the workforce - Digital ImageryŠ copyright 2001 PhotoDisc, Inc."
CrumbText(0) = "DOL Home"
CrumbLink(0) = "/index.htm"
CrumbText(2) = "OWCP"
CrumbLink(2) = "/owcp/"
CrumbText(3) = "DEEOIC"
CrumbLink(3) = "/owcp/energy/"
CrumbText(4) = ""
CrumbLink(4) = ""
FindItText(0) = "Find It!: "
FindItLink(0) = "."
FindItText(1) = "By Topic"
FindItLink(1) = "/dol/topic/index.htm"
FindItText(2) = "By Audience"
FindItLink(2) = "/dol/audience/index.htm"
FindItText(3) = "By Top 20 Requested Items"
FindItLink(3) = "/owcp/requested.htm"
FindItText(4) = "By Form"
FindItLink(4) = "/libraryforms/"
FindItText(5) = "By Organization"
FindItLink(5) = "/dol/organization.htm"
FindItText(6) = "By Location"
FindItLink(6) = "/dol/location.htm"
%>
Office of Workers' Compensation Programs (OWCP)
EEOICP Program Statistics by State and Worksite
Statistics for Claimants Living in UTAH
Statistics for Worksites Located in UTAH