<%






	Sub makelabel()
	Dim filepaths,plustemplate
	Dim Nextpath,arrpath,ii,filenames
	filepaths=fycms.getfilepath(delAsp(request("filepath")),0)

	filenames=fycms.getfilepath(delAsp(request("filepath")),1)
	Call fycms.CreateFolder(filepaths)
	plustemplate=LTemplate("plustemplate.txt")
	If left(files,1)="/" Then 
	files="/"&files
	files=rep(files,"//","")
	End If 
 	arrpath=Split(files,"/")

	If ubound(arrpath)<=1 Then 
		If  ubound(arrpath)=1 Then 
			plustemplate=rep(plustemplate,"{nextpath}","../")
		Else 
			plustemplate=rep(plustemplate,"{nextpath}","")
		End If 
	Else 
 		For ii=1 To ubound(arrpath)
			Nextpath=Nextpath&"../"
		Next 
		plustemplate=rep(plustemplate,"{nextpath}",Nextpath)
	End If 


 	plustemplate=rep(plustemplate,"{filenames}",filenames)
	plustemplate=rep(plustemplate,"{path}",files)
	plustemplate=rep(plustemplate,"{modeid}",modeid)
	plustemplate=rep(plustemplate,"{name}",delAsp(titles))
	plustemplate=rep(plustemplate,"{id}",id)
	plustemplate=rep(plustemplate,"{template}",delAsp(fycms.s("templatepath")))
	Call SaveFile(plustemplate,fycms.actsys&files)
	End Sub 














%>