Perdão, aqui está todo o código :) <%@ Language=VBScript %>
<%if Session("user")(0)="" then Response.Redirect("default.asp")%>
<!--#include file="../!include/funcoes.inc"-->
<!--#include file="../!include/conexao.inc"-->
<%
' arq_path = "e:\home\helpadm\web\documentos\"
arq_path = "E:\vhosts\helpadm.net\web\documentos\"
select case Request("acao")
case "incluir"
'set cn = server.CreateObject("ADODB.connection")
cn.BeginTrans()
sql = " INSERT INTO DOCUMENTO (sq_condominio, sq_tipodocumento, ds_documento, ds_path, dt_lancamento) VALUES "&_
"("&Request("in_condominio")&_
", "&Request("in_tipodocumento")&_
", '"&aspas(Request("nome"))&"'"&_
", ''"&_
", "& date() &")"
cn.execute(sql)
set rs = server.CreateObject("ADODB.recordSet")
sql = " select sq_documento from DOCUMENTO where " &_
" sq_condominio = "& Request("in_condominio") &_
" AND sq_tipodocumento = "& Request("in_tipodocumento") &_
" AND ds_documento = '"& Request("nome") &"'" &_
" AND ds_path = ''"
set rs = cn.execute(sql)
in_documento = rs("sq_documento")
set rs = nothing
tmp_path = arq_path & "temp\"
nome_ref = "HelpAdm" & request("in_condominio") & request("in_tipodocumento") & in_documento
err = false
set objUpload = Server.CreateObject ("Dundas.Upload.2") '=> CRIA OBJETO
objUpload.UseUniqueNames = true '=> COM MESMO NOME DO ENVIADO
objUpload.Save tmp_path '=> SALVA EM DIRETORIO TEMPORARIO
For Each Item in objUpload.Files '=> RETORNA NOME DO ARQUIVO SALVO
nome_arquivo = mid(item.path,len(tmp_path)+1)
nomeArqExt = mid(nome_arquivo,inStrRev(nome_arquivo,"."))
Next
If (objUpload.FileExists(arq_path&nome_ref)) then '=> VERIFICA EXISTENCIA DO ARQUIVO NO DIRETÓRIO DE PRODUÇÃO
objUpload.FileDelete tmp_path&nome_arquivo '=> SE EXISTE, APAGA O TEMPORÁRIO E RETORNA MENSAGEM DE ARQUIVO JÁ EXISTENTE
err = true
Response.Write("arquivo já existe")
else
objUpload.FileCopy tmp_path&nome_arquivo, arq_path&nome_ref&nomeArqExt '=> COPIA O ARQUIVO PARA O DIRETÓRIO DE PRODUÇÃO COM NOVO NOME
objUpload.FileDelete tmp_path&nome_arquivo '=> APAGA ARQUIVO DO TEMPORÁRIO
'objUpload.FileMove tmp_path&nome_arquivo,arq_path&nome_arquivo '=> SE NÃO EXISTE, MOVE DO DIR TEMPORÁRIO PARA O DE PRODUÇÃO
sql = " update DOCUMENTO set ds_path = '"& nome_ref&nomeArqExt &"' where sq_documento = " & in_documento
cn.execute (sql) '=> ATUALIZA O NOME DO ARQUIVO NO BD
end if
if err then
cn.RollbackTrans()
else
cn.CommitTrans()
msg = "O documento foi cadastrado com sucesso."
end if
Set objUpload = Nothing '=> DESTROI OBJETO DE UPLOAD
case "excluir"
sql = " select ds_path from DOCUMENTO where " &_
" sq_documento = " & request("ind")
set rs = cn.execute(sql)
nome_arquivo = rs("ds_path")
set rs = nothing
set objUpload = Server.CreateObject ("Dundas.Upload.2") '=> CRIA OBJETO
objUpload.FileDelete arq_path&nome_arquivo '=> APAGA ARQUIVO DO TEMPORÁRIO
set objUpload = Nothing '=> DESTROI OBJETO DE UPLOAD
sql = " delete from DOCUMENTO where sq_documento = "& Request("ind")
cn.execute(sql)
msg = "Arquivo excluido com sucesso."
end select
%>
<html>
<head><link rel="stylesheet" type="text/css" href="../!include/admin.css"></head>
<body>
<p> </p>
<p align='center'><%=msg%></p>
</body>
</html>
<%cn.close%>
