Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

kriatorTB

Problemas em UPLOAD

Por , em ASP Clássico

Recommended Posts

kriatorTB    0

kriatorTB
Postado

Olá Pessoal do forum,

 

estou tendo problemas em fazer funcionar o sistema de upload.asp no servidor ele não está atualizando as fotos na pasta UPLOAD/.

 

vem ocorrendo a seguinte mensagem:

 

 

 

------------------------------------------------------Objeto Server erro 'ASP 0177 : 800401f3' Falha em Server.CreateObject /album/upload.asp, line 13

ProgID inválido. Para obter informações adicionais específicas sobre esta mensagem, visite o site Microsoft Online Support localizado em: http://www.microsoft.com/contentredirect.asp (site em inglês).

 

<!--#include file="restrito.asp"--><!--#include file="conectar.asp"--><html><head><title>Administração - Album</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#FFFFFF" text="#0033FF" link="#73BCF2" vlink="#73BCF2" alink="#73BCF2"><div align="center"> <font size="4">Administração - Album</font></div><BR><HR size="1"><BR><%'On Error Resume Next   Abreconexao   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") - linha 13   idalbum = mySmartUpload.Form("idalbum")'  id = mySmartUpload.Form("id")   mySmartUpload.AllowedFilesList = "jpg,gif,jpeg,bmp,png"   mySmartUpload.TotalMaxFileSize = 2000000   mySmartUpload.Upload   mySmartUpload.Save(server.MapPath(pastafigura))   For each file In mySmartUpload.Files      nomearquivo = file.FileName   NextIf Err < 1 Then   enviado = mySmartUpload.Form("enviado")   if enviado = "nova" then      Sql = "INSERT INTO fotos (idalbum,imagem,legenda) "      Sql = Sql & "VALUES('"&mySmartUpload.Form("idalbum")&"','"&nomearquivo&"','"&mySmartUpload.Form("legenda")&"')"       Conexao.Execute(Sql)       Response.Write "Enviado Com Sucesso<BR><A href=admin.asp>Voltar</a>"   else      if nomearquivo <> "" then         Sql = "SELECT * FROM fotos WHERE id = "&mySmartUpload.Form("id")&" "         set rs = Conexao.Execute(Sql)          While not rs.EOF             Set fso = CreateObject("Scripting.FileSystemObject")            fso.DeleteFile server.mappath(pastafigura&rs("imagem")),true            Set fso = Nothing            rs.Movenext         Wend         Sql = "UPDATE fotos SET idalbum='"&mySmartUpload.Form("idalbum")&"', imagem='"&nomearquivo&"', legenda='"&mySmartUpload.Form("legenda")&"' WHERE id = "&mySmartUpload.Form("id")&" "      else      Sql = "UPDATE fotos SET idalbum='"&mySmartUpload.Form("idalbum")&"', legenda='"&mySmartUpload.Form("legenda")&"' WHERE id = "&mySmartUpload.Form("id")&" "   end if      Conexao.Execute(Sql)      Response.Write "Alterado com sucesso<BR><A href=admin.asp>Voltar</a>"   end ifElse   Response.Write("<b>Wrong selection : </b>" & Err.description)End If%></body></html>

 

Alguem poderia me ajudar.

Alex

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito