<%
k = 0
str = "\thatboxinthecorner\pics"
Set fsObj = CreateObject("Scripting.FileSystemObject")
jobPath = Server.MapPath(str)
s = ""
Response.write(jobPath)
Set Rov = fsObj.GetFolder(jobPath)
Set fc = Rov.Files
For Each f1 in fc
If ((InStr(f1.name,".gif")<>0) OR (InStr(f1.name,".jpg")<>0)) Then
s = s & " "
End if
Next
Response.write(s)
%>