Stormwater Capital Improvement Projects

Stormwater Capital Improvement Projects

")'response.Write("PATH_TRANSLATED = " & Request.ServerVariables("PATH_TRANSLATED") & "
")'response.Write("APPL_PHYSICAL_PATH = " & Request.ServerVariables("APPL_PHYSICAL_PATH") & "
")'response.EndIf strMode = "viewdetail" ThenstrProjectNo = ValidateProjID(Request.QueryString("project"))ElsestrContentTitle = "Projects "strProjectNo = ""End IfIf strSelOpt = "" Or Not IsNumeric(strSelOpt) ThenstrSelOpt = 0ElseSession("SelOpt") = strSelOptSession("Filter") = strFilterEnd Ifif Request.QueryString("v") = "true" thensession("ViewDisclaimer") = "true"end ifPublic Function DeriveReportName(strFileName)dim strWorkstrWork = Replace(strFileName,"_"," ")strWork = Left(strWork,len(strWork) - 4) 'lop off file extensionDeriveReportName = right(strWork, len(strWork) - 0) 'lop off the "WWW " in frontEnd FunctionPublic Function ValidateProjID(strIncomingProjId)If Len(strIncomingProjId) >= 9 ThenValidateProjID = strIncomingProjIdElsestrContentTitle = "Projects "strProjectNo = ""strMode = ""response.Redirect "/dept_stormwater/programs_and_services/Capital_Improvement_Projects/index.asp"End IfEnd FunctionIf strMode = "viewdetail" ThenDim strPathInfo, strPhysicalPath, strPathFolderInfo, strServerName, strReportName, bRelatedDocsAvailDim objFSO, objFile, objFileItem, objFolder, objFolderContents, objSubFolders, objSubFolder'********************Set initial path and folder*******************************'These initializations are translated from URL names into NT file names'The PathInfo needs a folder AND reference file (folder path updated 29 June 2007 due to site redesign)strPathFolderInfo = "/dept_stormwater/programs_and_services/Capital_Improvement_Projects/files/" & strProjectNo'********************Set initial path and folder******************************* strPhysicalPath = Server.MapPath(strPathFolderInfo)strServerName = Request.ServerVariables("SERVER_NAME")Set objFSO = CreateObject("Scripting.FileSystemObject")'--------------------------------------------------------------'Does folder exist? If so, are there any files within the folder to display?If objFSO.FolderExists(strPhysicalPath) thenSet objFolder = objFSO.GetFolder(strPhysicalPath)If objFolder.Files.Count > 0 ThenbRelatedDocsAvail = trueSet objFolderContents = objFolder.Files 'put files in this obj for use in building list belowElsebRelatedDocsAvail = falseEnd IfElsebRelatedDocsAvail = falseEnd If'--------------------------------------------------------------End If%>

Capital Improvement Projects


"viewdetail" Then%>


This screen displays the (CIP) Capital Improvement Projects for the Stormwater Division of the Public Works Department.  Projects are listed in order of Fiscal Year.  Each project contains a link to its corresponding 'Detail' page with additional information.  A City of Tampa Fiscal Year is a 12-month period from October 1 until September 30.
>
"viewdetail" Then%>

' tags)If Len(Trim(strXmlFinal))


No Project(s) found.


Related Documents

"" thenaryItems = aryItems & "|&|" & objFileItem.Name & "|+|" & objFileItem.DateLastModifiedelsearyItems = objFileItem.Name & "|+|" & objFileItem.DateLastModifiedend ifNextaryItems = split(aryItems,"|&|")i = ubound(aryItems)'write-out file listDo until i " & strReportName & "
" 'i=i-1Loop%>

>
&selFilter=" title="use this link to go back">Back to Project List

"No" thenobjMap.DisplayMap()End Ifset objMap = nothing%>

Get Acrobat Reader