ITSI and its products are working their way into the media. Here is where we will post both, our releases, and any media coverage we may recieve.

Press Releases:

<% Function ShowImageForType(strName) Dim strTemp strTemp = strName If strTemp <> "dir" Then strTemp = LCase(Right(strTemp, Len(strTemp) - InStrRev(strTemp, ".", -1, 1))) End If Select Case strTemp Case "doc", "txt" strTemp = "WordIcon" Case "dir" strTemp = "DirIcon" Case "pdf" strTemp = "AcrobatIcon" Case "xls" strTemp = "ExcelIcon" Case "pps", "ppt" strTemp = "PPIcon" Case "html", "htm" strTemp = "PPIcon" End Select strTemp = "" ShowImageForType = strTemp End Function Dim strPath Dim objFSO Dim objFolder Dim objItem strPath = "./press/" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) 'Response.Write("Contents of " & strPath& "
") 'Response.Write("
") Response.Write("") Response.Write("") 'Response.Write("") 'Response.Write("") 'Response.Write("") For Each objItem In objFolder.SubFolders If InStr(1, objItem, "_notes", 1) = 0 Then 'FOLDER EXCLUSIONS response.write("") If objItem.Type <> "File Folder" Then response.write("") Else response.write("") End If response.write("") response.write("") 'response.write("") response.write("") End If Next For Each objItem In objFolder.Files If InStr(1, objItem, ".asp", 1) = 0 AND InStr(1, objItem, ".html", 1) = 0 Then 'FILE EXCLUSIONS response.write("") response.write("") dim NewSize If objItem.Size < 1000 Then response.write("") ElseIf objItem.Size > 1000 AND objItem.Size < 1000000 Then newsize = objItem.Size / 1000 response.write("") ElseIf objItem.Size > 1000000 Then NewSize = objItem.Size / 1000000 response.write("") End If 'response.write("") response.write("") 'response.write("") response.write("") End If Next Set objItem = Nothing Set objFolder = Nothing Set objFSO = Nothing response.write("

File Name:	File Size:	Date Created:
" & ShowImageForType(objItem.Name) & " " & objItem.Name & "	" & ShowImageForType("dir") & " " & objItem.Name & "	" & objItem.Size & "	" & FormatDateTime(objItem.DateCreated,2) & " " & FormatDateTime(objItem.DateCreated,4) & "	" & objItem.DateCreated & "
" & ShowImageForType(objItem.Name) & " " & objItem.Name & "	" & objItem.Size & " bytes	" & FormatNumber(NewSize,0,0,-1) & " KB	" & FormatNumber(NewSize,2,0,-1) & " MB	" & objItem.Size & "	" & FormatDateTime(objItem.DateCreated,2) & " " & FormatDateTime(objItem.DateCreated,4) & "	" & objItem.DateCreated & "

") %>

Media Coverages:

Home | About | Job Opportunities | Contact Us | Site Map
IT Services | Criminal Justice | Transportation | Security | GSA
Contract Vehicles | Training | Kiosks | Test | 8(a) SDB