Estou com um probleminha tenho que fazer um sistema de upload, e quando for salvar a imagem no banco
ela ja salva os espaços do nome com _ mas na hora de colocar na pasta onde esta direcionada o upload nao coloca continua com o espaço..
<!--#include virtual="/scripts/scripts_asp/funcoes_con.asp"-->
<%
'//////////////////////////// efetua o upload do arquivo para o servidor e grava caminho em ARQWAY
erro=0
arquivo=""
set upload = Server.CreateObject("persits.Upload.1")
Diretorio = Server.MapPath("/modulos/_compartilhado/caixapostal/TMP_MAIL")
Upload.OverwriteFiles = False
Count = Upload.Save(diretorio)
For Each File in Upload.Files
arqway = File.Path
arqway_banco = File.filename
if File.name = "arq" then
caminho=diretorio & "/" & File.filename
arquivo=File.filename
elseif File.name = "img" then
caminho2= Application("HTTP_LMSDTCOM") & "/modulos/_compartilhado/caixapostal/TMP_MAIL/" & File.filename
'caminho2=diretorio & "\" & File.filename
arquivo2=File.filename
arquivo2 = replace(arquivo2, " ","_")
end if
Next
caminho = REPLACE(caminho,"\","/")
caminho2 = REPLACE(caminho2,"\","/")
mensagem = upload.form("mensagem")
mensagem = Replace(mensagem,"'","''")
tipo_aluno = upload.form("tipo_aluno")
assunto = upload.form("assunto")
var_msn = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transational//EN"">"
var_msn = var_msn & "<HTML>"
var_msn = var_msn & "<BODY BGCOLOR=#FFFFFF>"
var_msn = var_msn & "<TABLE>"
var_msn = var_msn & "<TR>"
var_msn = var_msn & "<TD>" & mensagem & "</TD>"
var_msn = var_msn & "</TR>"
var_msn = var_msn & "<TR>"
var_msn = var_msn & "<TD height=100> </TD>"
var_msn = var_msn & "</TR>"
IF caminho2 <> "" THEN
var_msn = var_msn & "<TR>"
var_msn = var_msn & "<TD><img src=" & caminho2 & "></TD>"
var_msn = var_msn & "</TR>"
END IF
var_msn = var_msn & "</TABLE>"
var_msn = var_msn & "</BODY></HTML>"
set count = nothing
set upload = nothing
'Campo anulado
caminho2 = ""
strSQL="INSERT INTO tb_mensagem_geral(id_remetente_geral,ds_assunto_geral,ds_mensagem_geral, ds_arquivo_geral, ci_ciclo,dt_cadastro_geral,ds_arquivo_nome_geral, ds_arquivo_nome_imagem, ds_arquivo_link_imagem , tipo_aluno) "
strSQL = strSQL & " VALUES('" & session("usuario_codigo") & "','" & assunto & "','" & var_msn & "','" & caminho & "'," & session("ciclo")&",GETDATE(),'"&arquivo&"', '"&arquivo2&"', '" & caminho2 & "',"&tipo_aluno&")"
var=func_Open (strSQL,2)
response.Redirect("/modulos/_compartilhado/caixapostal/SV_MENSAGEM.asp")
%>
