Persits Upload

[thiagocs 0]

Na linha ext = extensao(File1.FileName) ele diz Object required: 'File1' .

 

 

<%Dim upload            Dim NamePatternDim extFunction extensao(completo)	completo = StrReverse(completo)	completo = left(completo,4)	completo = StrReverse(completo)	extensao = completoEnd FunctionNamePattern = "foto_"Const CstrCaminho = "C:\web\globaltes\trentin\globaltes.com.br\www\upload4"Set upload = Server.CreateObject("Persits.Upload.1")upload.OverWriteFiles = Falseupload.SaveToMemory  Set File1 = Upload.Files("FILE1")ext = extensao(File1.FileName)File1.SaveAs CstrCaminho&"\"&NamePattern&i&extSet upload = Nothingresponse.write "OK!!!"%>

[speedoli 0]

tenta usar desse geitoext = extensao(File1.VALUE)se naum der certo substituaSet File1 = Upload.Files("FILE1")ext = extensao(File1.FileName)porext = extensao(Upload.Files("FILE1").Value)