Set obj=Server.CreateObject("LyfUpload.UploadFile")
obj.extname="doc,html,htm,xls,txt,gif,jpg,bmp,ppt,rar,zip"
set rs=server.CreateObject("adodb.recordset")
subject=trim(obj.request("subject"))
str="select * from cs_document"
rs.open str,conn,1,3
rs.addnew
rs("createdate")=date()
rs("subject")=subject
ss1=obj.SaveFiletodb("addfile")
aa1=obj.filetype("addfile")
if ss1<>"" then
rs("file1").AppendChunk obj.DBContent
rs("filename")=ss1
rs("filetype")=aa1
rs("filesize")=obj.filesize
end if
rs.update