<% Set objUpload = Server.CreateObject("Persits.Upload.1") 'response.write objUpload.expires Sub FileUpload(Personalpath) Personalpath=trim(Personalpath) strThisDir=Server.mappath(Personalpath) set FileObject = server.createobject("Scripting.FileSystemObject") if not FileObject.FolderExists(strThisDir) then FileObject.CreateFolder strThisDir end if set FileObject = nothing objUpload.Save strThisDir For each file In objUpload.Files strFileName=strFileName&","&file.ExtractFileName next end Sub Function EncriptRequest(InputName) InputName=trim(InputName) IF InputName="" then exit Function end if EncriptRequest=replace(trim(objUpload.Form(InputName).Value),"'","''") End Function %>