<%@LANGUAGE=VBScript%>
<%
Dim fileCount
fileCount = 0
Sub ListEnglishFiles
Dim fso, f, fc, fl, filename
' Craete file system object
Set fso = CreateObject("Scripting.FileSystemObject")
' Get the files in the library
Set f = fso.GetFolder(Server.MapPath(".") & "\library")
Set fc = f.Files
For Each fl in fc
If InStr(fl.name, "JAPANESE") = False Then
fileCount = fileCount + 1
response.write "
" & _
"" & Left(fl.name, Len(fl.name)-4) & "
" & vbCrLf & vbCrLf
End If
Next
End Sub
Sub ListJapaneseFiles
Dim fso, f, fc, fl, filename
' Craete file system object
Set fso = CreateObject("Scripting.FileSystemObject")
' Get the files in the library
Set f = fso.GetFolder(Server.MapPath(".") & "\library")
Set fc = f.Files
For Each fl in fc
If InStr(fl.name, "JAPANESE") Then
fileCount = fileCount + 1
response.write "
" & _
"" & Left(fl.name, Len(fl.name)-12) & "
" & vbCrLf & vbCrLf
End If
Next
End Sub
%>
HEURIS - White Papers
HEURIS White Papers
Please select the white paper(s) that you
wish to receive.
