<% Function getFileName() Dim lsPath, arPath lsPath = Request.ServerVariables("SCRIPT_NAME") arPath = Split(lsPath, "/")' split path into array and grab last item for file name getFileName = arPath(UBound(arPath,1)) End Function Function GetIncName() dim sFilename sFileName = getFileName() GetIncName=left(sFilename,Len(sFilename)-4) & ".inc" End Function Function GetPrintName() dim sFilename sFileName = getFileName()' get scripts file name GetPrintName=left(sFilename,Len(sFilename)-4) & "_print.asp" End Function %> <% 'don't forget to put ithe inc filename below dirpath="../" CurTitle="VEPT - Coal" Location="Home/Coal" $BigTable-false; %> <%=CurTitle%> <% select case Request.QueryString("yr") Case "90" %> <% Case "91" %> <% Case "92" %> <% Case "93" %> <% Case "94" %> <% Case "95" %> <% Case "96" %> <% Case "97" %> <% Case "98" %> <% Case "99" %> <% Case "00" %> <% Case "01" %> <% Case "02" %> <% Case "03" %> <% Case "04" %> <% End select %>