aspsmartupload

[mx loco 1]

olhe sóestou o aspsmartupload para tranferir arquivo para o servidor, e que quero que so envie arquivos pdf e docfis da seguinte maneiro Set ObjBoletim = Server.CreateObject("aspSmartUpload.SmartUpload") ObjBoletim.AllowedFilesList = "pdf,doc" ObjBoletim.Upload For each file In ObjBoletim.Files If not file.IsMissing Thenquando envio arquivos doc, ele envia normal mas quando envio arquivos "pdf"da este erroRequest object error 'ASP 0104 : 80004005' Operation not Allowed /boletins/add_acao.asp, line 5tem algo errado?ou poderian me informar como fasso para aceitar quaquer tipo de arquivo.

[Leebano 0]

olhe só

 

estou o aspsmartupload para tranferir arquivo para o servidor, e que quero que so envie arquivos pdf e doc

 

fis da seguinte maneiro

 

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

  ObjBoletim.AllowedFilesList = "pdf,doc"

  ObjBoletim.Upload

  For each file In ObjBoletim.Files

  If not file.IsMissing Then

 

quando envio arquivos doc, ele envia normal mas quando envio arquivos "pdf"

 

da este erro

 

Request object error 'ASP 0104 : 80004005'

 

Operation not Allowed

 

/boletins/add_acao.asp, line 5

 

tem algo errado?

 

ou poderian me informar como fasso para aceitar quaquer tipo de arquivo.

<{POST_SNAPBACK}>

Poderia colocar pra gente o que está escrito nas 10 primeiras linhas do seu code???

 

Lee

[mx loco 1]

scripto total da page

 

ASP

[*]

 

[*]<!--#include file="../com_geral.asp" -->

 

[*]<% On Error Resume Next

 

[*]'criando obejto

 

[*]  Set ObjBoletim = Server.CreateObject("aspSmartUpload.SmartUpload")

 

[*]  ObjBoletim.AllowedFilesList = "pdf,doc"

 

[*]  ObjBoletim.Upload

 

[*]  

 

[*]  For each file In ObjBoletim.Files

 

[*] If not file.IsMissing Then

 

[*]

 

[*] Set fs=Server.CreateObject("Scripting.FileSystemObject")

 

[*] If (fs.FileExists("c:\web\leonardomonteirocombr\www/boletins/arquivos/"&file.FileName))=true Then

 

[*]  renome=time&"__"&date

 

[*]  renome=replace(renome, ".", "-")

 

[*]  renome=replace(renome, ":", "-")

 

[*]  renome=replace(renome, "/", "-")

 

[*]  renome=replace(renome, "*", "-")

 

[*]  renome=replace(renome, "?", "-")

 

[*]  renome=replace(renome, "\", "-")

 

[*]  renome=replace(renome, ",", "-")

 

[*]  file.SaveAs("arquivos/"&renome&"__"&file.FileName)

 

[*]  nome = renome&"__"&file.FileName

 

[*]

 

[*] Else

 

[*]

 

[*]  file.SaveAs("arquivos/"&file.FileName)

 

[*]  nome = file.FileName

 

[*]

 

[*] End If

 

[*]

 

[*] set fs=nothing

 

[*]  

 

[*]  titulo = replace(ObjBoletim.form("titulo"), "'", "")

 

[*]  dia = ObjBoletim.form("dia")

 

[*]  mes = ObjBoletim.form("mes")

 

[*]  ano = ObjBoletim.form("ano")

 

[*]  tamanho = file.Size  

 

[*]  

 

[*] End If

 

[*]  Next

 

[*]  

 

[*] If Err Then

 

[*]  Response.Write("<b>Ocorreu um erro : </b>" & Err.description)

 

[*]  Else

 

[*]

 

[*]  set add_boletim=server.CreateObject("adodb.command")

 

[*]  add_boletim.activeconnection=com_geral

 

[*]  add_boletim.commandtext="insert into boletim (titulo, dia, mes, ano, arquivo, tamanho) values ('"&titulo&"', "&dia&", "&mes&", "&ano&", '"&nome&"', "&tamanho&")"

 

[*]  add_boletim.execute()

 

[*]  response.Redirect("ver_boletins.asp")

 

[*]  end if  

 

[*]

 

[*]%>

 

[*]

[Leebano 0]

E o asquivo add_acao.asp?? É esse o código???

[mx loco 1]

é sim...