<%
dts = request("Date")
If dts = "" Then dts = "970112"
iy = Mid(dts, 1, 2) + 1900
im = CInt(Mid(dts, 3, 2))
id = CInt(Mid(dts, 5, 2))
mydt = DateSerial(iy, im, id)
displayTime = "06:00:46"
displayImg = dts & "AS060046.JPG"
DataDir = "http://www.gedds.alaska.edu/Akasofu/Allsky/" & dts & "/"
RealDir = "C:\InetPub\wwwroot\Akasofu\Allsky\" & dts & "\"
dim files(300)
ct = 0
GetFiles()
Function GetFiles()
Set fs = CreateObject ("Scripting.FileSystemObject")
Set demofolder = fs.GetFolder(RealDir)
Set filecoll = demofolder.Files
For Each fil in filecoll
If Left(fil.name, 2)="AS" Then
files(ct)=fil.name
ct = ct + 1
End If
Next
End Function
Function DisplayFile()
ts = files(ndx)
End Function
%>
Data for <%= FormatDateTime(mydt, 1) %>
