INTEGRA IN THE PRESS
INTEGRA e-Business suite is the first and most complete
web-based Enterprise Resource Planning and Management software
available today, so it’s only natural that the press
has had something to say.
Read all about it:
<%
archives=request.querystring("archives")
Dim urlfolder,filesys,demofolder,fil,filecole,filist,nameitems(1000),filetypeitems(1000),tr,i
tr = 0
set filesys= CreateObject("Scripting.FileSystemObject")
if archives = "" then
set demofolder = filesys.GetFolder ("D:\WWWebServer\JBMIntegra2002\html_en\articles")
urlfolder="/html_en/articles/"
else
set demofolder = filesys.GetFolder ("D:\WWWebServer\JBMIntegra2002\html_en\articles\archives")
urlfolder="/html_en/articles/archives/"
end if
set filecole = demofolder.Files
%>
<%
for each fil in filecole
nameitems(tr)=fil.name
filetypeitems(tr)= fil.type
tr=tr+1
next
'=left(fil.name,len(fil.name)-4)
for i = filecole.count -1 to 0 step -1
%>- <%=left(nameitems(i),len(nameitems(i))-4)%> <%=filetypeitems(i)%>
<%
next
if archives = "" then
response.write("![]()
Archives")
else
response.write("
![]()
New Documents")
end if
%>
