[script  language = "VBscript"      runat = "server"]

'/*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*  
'  FUNCTION: fnFileExists()
'  DESCRIPTION:
'    Determines if a file exists on the server. Returns 
'    0 on success, non-zero on failure.     
'  STATUS: working 
'  DOCUMENTATION: 
'   http://www.geocities.com/matth3wbishop/eg/asp/
'  SOURCE CODE:	
'    http://www.geocities.com/matth3wbishop/eg/asp/fnFileExists.txt
'  SEE ALSO: fnFileIndex(), fnDbugFileContents()
' *--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*/  


Function fnFileExists(strFileSpec)
  dim iReturn
  if (fso.FileExists(strFileSpec)) Then
    iReturn = 0	
  else
    iReturn = 1
  end if
  fnFileExists = iReturn
end Function

[/script]