<!--ASP code for checking image presence, adding to Terascan database, and resizing images-->
<%
<!--
Dim hold01,fs,fo,imgYear, imgMonth, imgDay, cnvrtDate, imgSat
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set fo=(fs.GetFolder(server.mappath("/mmt/Pictures/original/")))

'Write Current Path to folder
response.write("SERVER.MAPPATH = " & fo & "<br/><br/>")

'START FOR LOOP
for each hold01 in fo.files
response.write("File Name: " & hold01.name & "<br />")

'START Date conversion
''vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
cnvrtDate=Mid(hold01.name,3,2) & "/" & Mid(hold01.name,5,2) & "/20" & Mid(hold01.name,1,2)
response.write("Converted Date = " & cnvrtDate & "<br/>")
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'END Date conversion

'START Satellite Conversion
''vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
if Mid(hold01.name,13,1)="n" then
imgSat = "NOAA-" & Mid(hold01.name,14,2)
response.write("Satellite Converted = " & imgSat & "<br/>")
End if

if Mid(hold01.name,13,1)="s" then
imgSat = "Seawifs-" & Mid(hold01.name,14,2)
response.write("Satellite Converted = " & imgSat & "<br/>")
End if
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'END Satellite Conversion

response.write("--------------------------------------------------" & "<br/><br/>")
Next
'END FOR LOOP

-->
%>