<%
Function IsExists(filespec) 
	Dim fso
	Set fso = CreateObject("Scripting.FileSystemObject")
	If (fso.FileExists(server.MapPath(filespec))) Then
	IsExists = True
	Else
	IsExists = False
	End If
End Function

Function IsFolder(Folder)
	Set  objFSO  =  Server.CreateObject("Scripting.FileSystemObject")  
	If  objFSO.FolderExists(server.MapPath(Folder))  Then  
	IsFolder = True
	Else
	IsFolder = False
	End If
End Function

Function CreateFolder(fldr) 
	Dim fso, f
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.CreateFolder(Server.MapPath(fldr))
	CreateFolder = f.Path
	Set f=nothing
	Set fso=nothing
End Function
%>