<%
Function getMonthValue (mv)
If Instr (1, mv, "Jan", 1) > 0 Then
getMonthValue = 1
ElseIf Instr (1, mv, "Feb", 1) > 0 Then
getMonthValue = 2
ElseIf Instr (1, mv, "Mar", 1) > 0 Then
getMonthValue = 3
ElseIf Instr (1, mv, "Apr", 1) > 0 Then
getMonthValue = 4
ElseIf Instr (1, mv, "May", 1) > 0 Then
getMonthValue = 5
ElseIf Instr (1, mv, "Jun", 1) > 0 Then
getMonthValue = 6
ElseIf Instr (1, mv, "Jul", 1) > 0 Then
getMonthValue = 7
ElseIf Instr (1, mv, "Aug", 1) > 0 Then
getMonthValue = 8
ElseIf Instr (1, mv, "Sep", 1) > 0 Then
getMonthValue = 9
ElseIf Instr (1, mv, "Oct", 1) > 0 Then
getMonthValue = 10
ElseIf Instr (1, mv, "Nov", 1) > 0 Then
getMonthValue = 11
ElseIf Instr (1, mv, "Dec", 1) > 0 Then
getMonthValue = 12
Else
getMonthValue = 1
End if
End Function
Function getDateValue (dv)
Dim p
p = InStr (1, dv, ".", 1)
getDateValue = CInt (Left (dv, p - 1))
End Function
Sub writeCRList
Dim fs, fo, fc, csrc, ffcount, j, yv, y, m, mv, d, dv, dt, s, l, f, off, fn
Set fs = CreateObject("Scripting.FileSystemObject")
' on error resume next
csrc = "c:\INetPub\WWWRoot\akasofu\singles\"
Set fo = fs.GetFolder(csrc)
Set fc = fo.Files
ffcount = CInt (fc.Count)
For each f in fc
fn = CStr (f.Name)
j = InStr (1, fn, ".GIF")
if j > 0 then
Response.Write ("" & fn & "" & vbCrLf)
end if
next
End Sub
%>
<% writeCRList %>