[Resolvido] Problemas com SaFileUp

Boa tarde,tenho um script de upload que funcionava com o Persits.Upload

mais precisei trocar de componente ,troquei pelo SaFileUp ,porém ainda nao conseguir

fazer funcionar, está dando o seguinte erro:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Files'

/sites/ModuloFotos/upload.asp, line 30

(óbvio que da para perceber que o erro diz que o componente nao suporta o metodo utilizado,

com o outro componente este metodo funcionava,como utilizar para este ? )

NA LINHA 30 TEM O SEGUINTE CÓDIGO

For Each File in SaFileUp.Files

CÓDIGO INTEIRO COM SaFileUp ADPATADO

<!--#include file="adovbs.inc"-->
<!--#include file="criptografia.asp"-->

<%
randomize
tam=8 'Define o tamanho da senha
md=md5(now())
aleat=Int(22-tam*Rnd)+1
codigoAleatorio=mid(md, aleat, tam)
%>
<%'###### início loop SaFileUp componente##########################################################%>

<%
'Server.ScriptTimeout = 360

Dim SaFileUp
Dim strFormElement
Dim strSubItem

Dim sCaminho

'Instancia o componente
SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp")

'Configura o caminho onde arquivo será salvo
Count = SaFileUp.Save = ("e:\home\imagens\fotos\")

For Each File in SaFileUp.Files

'######### início do registro na Base de Dados, dentro do loop do script de upload ##############

nome_original = codigoAleatorio & "_" & File.Filename
nome_arquivo = File.FileName

id= request.QueryString("id")%>

<%'################# criando a miniatura para o thumbnail ASPJPG ################################%>

<%
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("SoftArtisans.Jpeg")
' Open source image
Jpeg.Open "e:\home\imagens\fotos\" & nome_arquivo &""

' New width
L = 600

' Resize, preserve aspect ratio
If Jpeg.OriginalWidth > jpeg.OriginalHeight Then
Jpeg.Width = L
Jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
Jpeg.Height = L
Jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If

'Esse método é opcional, usado para melhorar o visual da imagem
'Jpeg.Sharpen 1, 150

Jpeg.Quality = 100

' create thumbnail and save it to disk
Jpeg.Save "e:\home\imagens\thumbs\" & codigoAleatorio & "_" & nome_arquivo &""

%>

<%Set Jpeg = Nothing%>

<%
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("SoftArtisans.Jpeg")
' Open source image
Jpeg.Open "e:\home\imagens\fotos\" & nome_arquivo &""

' New width
L = 600
' Resize, preserve aspect ratio
If Jpeg.OriginalWidth > jpeg.OriginalHeight Then
Jpeg.Width = L
Jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
Jpeg.Height = L
Jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If

'Esse método é opcional, usado para melhorar o visual da imagem
'Jpeg.Sharpen 1, 150

Jpeg.Quality = 100
jpeg.Adjust 3, -1
jpeg.Adjust 1, 0.2

' create thumbnail and save it to disk
Jpeg.Save "e:\home\imagens\thumbs\pb_" & codigoAleatorio & "_" & nome_arquivo &""

%>

<%Set Jpeg = Nothing%>

<%
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("SoftArtisans.Jpeg")
' Open source image
Jpeg.Open "e:\home\imagens\fotos\" & nome_arquivo &""

' New width
L = 1000

' Resize, preserve aspect ratio
If Jpeg.OriginalWidth < 1000 Then

ElseIf Jpeg.OriginalWidth > jpeg.OriginalHeight Then
Jpeg.Width = L
Jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
Jpeg.Height = L
Jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If

'Esse método é opcional, usado para melhorar o visual da imagem
'Jpeg.Sharpen 1, 150

Jpeg.Quality = 100

X = Jpeg.Width - 300
Y = Jpeg.Height - 200

'Jpeg.Canvas.DrawPNG X, Y, "e:\home\"

Jpeg.Canvas.Font.Color = &HFFFFFFF
Jpeg.Canvas.Font.Family = "Arial"
Jpeg.Canvas.Font.Size = 14
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Font.ShadowColor = &H000000
Jpeg.Canvas.Font.ShadowXoffset = 1
Jpeg.Canvas.Font.ShadowYoffset = 1
Jpeg.Canvas.Font.Quality = 1

Dados = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("dados.mdb")

sqlstmtConfig = "SELECT * FROM configuracoes where id=1"
Set rsConfig = Server.CreateObject("ADODB.Recordset")
rsConfig.Open sqlstmtConfig, Dados

enderecoSite = rsConfig("enderecoSite")

Set rsConfig = nothing

'Jpeg.Canvas.Print 10, 10, "© " & Year(Date) & " " & enderecoSite

' create thumbnail and save it to disk
Jpeg.Save "e:\home\imagens\fotos\" & codigoAleatorio & "_" & nome_arquivo &""

%>

<%Set Jpeg = Nothing%>

<%'########################################### FIM ASPJPG #######################################%>

<%
ConnString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\ModuloFotos\dados.mdb;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString

set insertSet = Server.CreateObject("ADODB.Recordset")
insertSet.Open "fotos", Conn,_
adOpenStatic, adCmdTable

insertSet.AddNew
insertSet("idAlbum") = id
insertSet("foto") = codigoAleatorio & "_" & nome_arquivo
insertSet("thumb") = codigoAleatorio & "_" & nome_arquivo
insertSet.update

insertSet.close
set insertSet = Nothing

%>
<%
set RS = nothing
Conn.close

%>

<%
Next
'--- Dereference FileUp
Set SaFileUp = Nothing
'####### FIM do SaFileUp componente #########################################################

if nome_arquivo = "" then

else
Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
ObjFSO.DeleteFile "e:\home\imagens\fotos\"&nome_arquivo&" "
Set ObjFSO = Nothing
end if

%>

<%
id= request.QueryString("id")
album= request.QueryString("album")
response.Redirect("albumDetalhe.asp?album="&album&"&id="&id&"")
%>

O CÓDIGO COM O COMPONENTE Persits.Upload (ASSIM FUNCIONA)

<!--#include file="adovbs.inc"-->
<!--#include file="criptografia.asp"-->

<%
randomize
tam=8 'Define o tamanho da senha
md=md5(now())
aleat=Int(22-tam*Rnd)+1
codigoAleatorio=mid(md, aleat, tam)
%>
<%

'Server.ScriptTimeout = 360

Dim oFileUp
Dim strFormElement
Dim strSubItem

Dim sCaminho

'--- Instantiate the FileUp object
Set oFileUp = Server.CreateObject("Persits.Upload.1")

oFileUp.OverwriteFiles = False
oFileUp.SetMaxSize 99999999
Count = oFileUp.Save("e:\home\imagens\fotos\")

For Each File in oFileUp.Files

'######### início do registro na Base de Dados, dentro do loop do script de upload ##############

nome_original = codigoAleatorio & "_" & File.Filename
nome_arquivo = File.FileName

id= request.QueryString("id")%>

<%'################# criando a miniatura para o thumbnail ASPJPG ################################%>

<%
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open source image
Jpeg.Open "e:\home\imagens\fotos\" & nome_arquivo &""

' New width
L = 600

' Resize, preserve aspect ratio
If Jpeg.OriginalWidth > jpeg.OriginalHeight Then
Jpeg.Width = L
Jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
Jpeg.Height = L
Jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If

'Esse método é opcional, usado para melhorar o visual da imagem
'Jpeg.Sharpen 1, 150

Jpeg.Quality = 100

' create thumbnail and save it to disk
Jpeg.Save "e:\home\imagens\thumbs\" & codigoAleatorio & "_" & nome_arquivo &""

%>

<%Set Jpeg = Nothing%>

<%
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open source image
Jpeg.Open "e:\home\imagens\fotos\" & nome_arquivo &""

' New width
L = 600
' Resize, preserve aspect ratio
If Jpeg.OriginalWidth > jpeg.OriginalHeight Then
Jpeg.Width = L
Jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
Jpeg.Height = L
Jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If

'Esse método é opcional, usado para melhorar o visual da imagem
'Jpeg.Sharpen 1, 150

Jpeg.Quality = 100
jpeg.Adjust 3, -1
jpeg.Adjust 1, 0.2

' create thumbnail and save it to disk
Jpeg.Save "e:\home\imagens\thumbs\pb_" & codigoAleatorio & "_" & nome_arquivo &""

%>

<%Set Jpeg = Nothing%>

<%
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open source image
Jpeg.Open "e:\home\imagens\fotos\" & nome_arquivo &""

' New width
L = 1000

' Resize, preserve aspect ratio
If Jpeg.OriginalWidth < 1000 Then

ElseIf Jpeg.OriginalWidth > jpeg.OriginalHeight Then
Jpeg.Width = L
Jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
Jpeg.Height = L
Jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If

'Esse método é opcional, usado para melhorar o visual da imagem
'Jpeg.Sharpen 1, 150

Jpeg.Quality = 100

X = Jpeg.Width - 300
Y = Jpeg.Height - 200

'Jpeg.Canvas.DrawPNG X, Y, "e:\home\ema.png"

Jpeg.Canvas.Font.Color = &HFFFFFFF
Jpeg.Canvas.Font.Family = "Arial"
Jpeg.Canvas.Font.Size = 14
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Font.ShadowColor = &H000000
Jpeg.Canvas.Font.ShadowXoffset = 1
Jpeg.Canvas.Font.ShadowYoffset = 1
Jpeg.Canvas.Font.Quality = 1

Dados = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("dados.mdb")

sqlstmtConfig = "SELECT * FROM configuracoes where id=1"
Set rsConfig = Server.CreateObject("ADODB.Recordset")
rsConfig.Open sqlstmtConfig, Dados

enderecoSite = rsConfig("enderecoSite")

Set rsConfig = nothing

'Jpeg.Canvas.Print 10, 10, "© " & Year(Date) & " " & enderecoSite

' create thumbnail and save it to disk
Jpeg.Save "e:\home\imagens\fotos\" & codigoAleatorio & "_" & nome_arquivo &""

%>

<%Set Jpeg = Nothing%>

<%'########################################### FIM ASPJPG #######################################%>

<%
ConnString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\web\sistema\dados.mdb;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString

set insertSet = Server.CreateObject("ADODB.Recordset")
insertSet.Open "fotos", Conn,_
adOpenStatic, adCmdTable

insertSet.AddNew
insertSet("idAlbum") = id
insertSet("foto") = codigoAleatorio & "_" & nome_arquivo
insertSet("thumb") = codigoAleatorio & "_" & nome_arquivo
insertSet.update

insertSet.close
set insertSet = Nothing

%>
<%
set RS = nothing
Conn.close

%>

<%

Next
'--- Dereference FileUp
Set oFileUp = Nothing
'####### FIM do SaFileUp componente #########################################################

if nome_arquivo = "" then

else
Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
ObjFSO.DeleteFile "e:\home\imagens\fotos\"&nome_arquivo&" "
Set ObjFSO = Nothing
end if

%>

<%
id= request.QueryString("id")
album= request.QueryString("album")
response.Redirect("albumDetalhe.asp?album="&album&"&id="&id&"")
%>