Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
COMPONENTE ASPUPLOAD
<%
Server.ScriptTimeout = 960 'valor em segundos
%>
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save "e:\home\dominio\web\admin\ARQ_CLIENTES"
%>
<%
For Each File in Upload.Files
Response.Write Right(File.Path,Len(File.Path)-InstrRev(File.Path,"\"))
Next
%>
ATÉ AI DÁ CERTO. MAS EU PRECISO COLOCAR O RESPONSE.WRITE EM UMA VARIÁVEL, DAI QUANDO COLOCO ASSIM:
Nome_Arquivo = Response.Write Right(File.Path,Len(File.Path)-InstrRev(File.Path,"\"))
DÁ O SEGUINTE ERRO:
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/admin/assessoria_envia_arquivo3.asp, line 64
Nome_Arquivo = Response.Write Right(File.Path,Len(File.Path)-InstrRev(File.Path,"\"))
------------------------------^
O QUE FAZER PARA ARRUMAR ISSO?
ATT,
GRINGO
Carregando comentários...