AspSmartUpload

[fabiosc80 0]

Pessoal eu sempre utilizei o AspSmartUpload nos meus sites ASP.

Os que estao hospedados aqui na empresa estao perfeitos porem o de um cliente meu particular esta dando o seguinte erro:

 

aspSmartUpload error '800a0009'

 

Subscript out of range

 

/admin/cursos4.asp, line 22

 

 

alinha 22 é essa aqui:

 

mySmartUpload.Upload

 

e a página é essa aqui olhem o código:

 

ASP [/tr][tr]<!--#include file="../conexao.asp"-->

<%Session.LCID = 1046%>

 

<%

 

Dim codigo,palestrante,curriculo,imagem

 

' Variaveis

' *********

Dim mySmartUpload

Dim intCount

 

' Criando Objeto

' ***************

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.AllowedFilesList = "gif,jpg,zip,cdr,psd,jpeg,tif,doc,txt,png,htm,html,pdf,ps,prn,ai,fh,fh11,pmd

,qxd"

mySmartUpload.MaxFileSize = 20000000

 

' Upload

' ******

 

mySmartUpload.Upload

 

 

 

codigo = mySmartUpload.form("codigo")

palestrante = mySmartUpload.form("palestrante")

curriculo = mySmartUpload.form("curriculo")

imagem = mySmartUpload.form("imagem")

 

For Each file In mySmartUpload.Files

Imagem = File.FileName

next

 

Dim BC : AbreBanco

Dim TB

 

if Imagem <> "" then

 

 

' Salva o arquivo em um caminho virtual

' ****************************************************************************

intCount = mySmartUpload.Save("Upload" )

 

%>

<%

 

Dim SQ,SQ1

 

SQ = ""

SQ = SQ & "INSERT INTO Palestrante "

SQ = SQ & "(codigo,palestrante,curriculo,imagem)"

SQ = SQ & "VALUES( "

SQ = SQ & "" & codigo & ","

SQ = SQ & "'" & palestrante & "',"

SQ = SQ & "'" & curriculo & "',"

SQ = SQ & "'" & imagem & "')"

 

SET TB = BC.Execute(SQ)

 

else

SQ1 = ""

SQ1 = SQ1 & "INSERT INTO Palestrante "

SQ1 = SQ1 & "(codigo,palestrante,curriculo)"

SQ1 = SQ1 & "VALUES( "

SQ1 = SQ1 & "" & codigo & ","

SQ1 = SQ1 & "'" & palestrante & "',"

SQ1 = SQ1 & "'" & curriculo & "')"

 

SET TB = BC.Execute(SQ1)

 

end if

 

response.redirect "index.asp"

 

%>

[/tr]

 

Alguem sabe oque pode estar acontecendo?

 

Abraços

 

Fábio Sanches Carmona

[fabiosc80 0]

Pessoal sanei aquele erro desculpem , mas esse aqui nao sei mesmo olhem sóaspSmartUpload error '800a0034'Bad file name or number/admin/cursos4.asp, line 43

[fabiosc80 0]

Me ajudem por favor.Eu Imploro

[fabiosc80 0]

Me ajudem por favor.Eu Imploro

Pessoal,Continua dando:aspSmartUpload error '800a0034'Bad file name or number/admin/cursos4.asp, line 43Oque faço?

[fabiosc80 0]

ao invés disso:intCount = mySmartUpload.Save("Upload" )tente assim:mySmartUpload.Save("Upload" )

beleza Vou tentar.

[fabiosc80 0]

ao invés disso:

 

intCount = mySmartUpload.Save("Upload" )

 

tente assim:

 

mySmartUpload.Save("Upload" )

Nao deu certo continua dando o erro mesmo com a dica cara.

 

o erro é esse aqui:

 

aspSmartUpload error '800a0034'

 

Bad file name or number

 

/admin/cursos4.asp, line 44

 

To colocando a página pra ver se alguem me da uma luz

 

ASP [/tr][tr]<!--#include file="../conexao.asp"-->

<%Session.LCID = 1046%>

 

<%

 

Dim codigo,palestrante,curriculo,imagem

 

' Variaveis

' *********

Dim mySmartUpload

Dim intCount

 

' Criando Objeto

' ***************

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.AllowedFilesList = "gif,jpg,zip,cdr,psd,jpeg,tif,doc,txt,png,htm,html,pdf,ps,prn,ai,fh,fh11,pmd

,qxd"

mySmartUpload.MaxFileSize = 20000000

 

' Upload

' ******

 

mySmartUpload.Upload

 

 

 

codigo = mySmartUpload.form("codigo")

palestrante = mySmartUpload.form("palestrante")

curriculo = mySmartUpload.form("curriculo")

imagem = mySmartUpload.form("imagem")

 

For Each file In mySmartUpload.Files

Imagem = File.FileName

next

 

Dim BC : AbreBanco

Dim TB

 

if Imagem <> "" then

 

 

' Salva o arquivo em um caminho virtual

' ****************************************************************************

'intCount =

mySmartUpload.Save("Upload" )

 

%>

<%

 

Dim SQ,SQ1

 

SQ = ""

SQ = SQ & "INSERT INTO Palestrante "

SQ = SQ & "(codigo,palestrante,curriculo,imagem)"

SQ = SQ & "VALUES( "

SQ = SQ & "" & codigo & ","

SQ = SQ & "'" & palestrante & "',"

SQ = SQ & "'" & curriculo & "',"

SQ = SQ & "'" & imagem & "')"

 

SET TB = BC.Execute(SQ)

 

else

SQ1 = ""

SQ1 = SQ1 & "INSERT INTO Palestrante "

SQ1 = SQ1 & "(codigo,palestrante,curriculo)"

SQ1 = SQ1 & "VALUES( "

SQ1 = SQ1 & "" & codigo & ","

SQ1 = SQ1 & "'" & palestrante & "',"

SQ1 = SQ1 & "'" & curriculo & "')"

 

SET TB = BC.Execute(SQ1)

 

end if

 

response.redirect "index.asp"

 

%>

[/tr]

 

Abraços

[fabiosc80 0]

num sou lá muito bom de inglês, mais acho que isso pode ajudar: Link

Descobri o problema. na verdade nem era erro meu. Era pau do componente no servidor da IPHOTEL. Eles nem sabiam que tava ruim.Arrumaram e agora ta perfeito.

[André Baltieri 0]

Boa tarde Fábio, como resolveu o problema "aspSmartUpload error '800a0009' Subscript out of range"??Abraços