Fórum Contato
  
   O portal do desenvolvedor ASP Segunda-feira - 14 de Junho de 2021  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
 Fóruns   Meu cadastro   Meu perfil   Ranking de usuários 

 FórumProgramaçãoErros Responder mensagem 

 Erro = 424 Descrição=Object required Atualizado em 09/05/2011 ás 16:11:00

Postado em 01/05/2011 ás 22:23:00



Olá, estou tendo problemas para copiar uma imagem jpg para uma tabela de banco , segue o codigo abaixo poderiam me ajudar ?  Obrigado


<!--#include file="conecta_dados.inc"-->
<!--#include file="inc_testlog.inc"-->


<%
On Error Resume Next
Dim sCaminho, objUpload, objUploadedFile
Set objUpload = Server.CreateObject ("Dundas.Upload.2")
objUpload.MaxFileSize=1048576
objUpload.UseUniqueNames=FALSE
objUpload.UseVirtualDir = False
objUpload.SaveToMemory
nomefile = upload.form("Empfile")
EmpId = upload.form("EmpId")
EmpFotoNumber = upload.form("EmpFotoNumber")
'objUpload.Save sCaminho & ".jpg"


For Each objUploadedFile in objUpload.Files
  nomefile = objUpload.GetFileName(objUploadedFile.OriginalPath)
  'nomefile = right(objUploadedFile.Path,instr(strreverse(objUploadedFile.Path),"\") - 1)
  sCaminho = Server.MapPath ("/") & ("\upload") & ("\") & nomefile
  objUploadedFile.SaveAs Scaminho
next



If Err.Number <> 0 Then
   response.write "Erro Ocorrido"
   response.write "Número="
   response.write err.number & "</p>"
   response.write "Descrição="
   response.write err.description & "</p>"
   response.write "nomefile="
   response.write (nomefile & "</p>")
   response.write "Scaminho="
   response.write Scaminho
   Response.end()
end if


 


Select Case EmpFotoNumber
Case 001
FotoNumber = "002"
Case 002
FotoNumber = "003"
Case 003
FotoNumber = "004"
Case 004
FotoNumber = "005"
Case 005
FotoNumber = "006"
Case 006
FotoNumber = "007"
Case 007
FotoNumber = "008"
Case 008
FotoNumber = "009"
End Select


Select Case EmpFotoNumber
Case 001
imgSQL = "UPDATE DISTINCTROW TabelaEmp SET EmpImg001 = '" & (nomefile) & "' WHERE EmpId = " & (EmpId) & ""
Case 002
imgSQL = "UPDATE DISTINCTROW TabelaEmp SET EmpImg002 = '" & (nomefile) & "' WHERE EmpId = " & (EmpId) & ""
Case 003
imgSQL = "UPDATE DISTINCTROW TabelaEmp SET EmpImg003 = '" & (nomefile) & "' WHERE EmpId = " & (EmpId) & ""
Case 004
imgSQL = "UPDATE DISTINCTROW TabelaEmp SET EmpImg004 = '" & (nomefile) & "' WHERE EmpId = " & (EmpId) & ""
Case 005
imgSQL = "UPDATE DISTINCTROW TabelaEmp SET EmpImg005 = '" & (nomefile) & "' WHERE EmpId = " & (EmpId) & ""
Case 006
imgSQL = "UPDATE DISTINCTROW TabelaEmp SET EmpImg006 = '" & (nomefile) & "' WHERE EmpId = " & (EmpId) & ""
Case 007
imgSQL = "UPDATE DISTINCTROW TabelaEmp SET EmpImg007 = '" & (nomefile) & "' WHERE EmpId = " & (EmpId) & ""
Case 008
imgSQL = "UPDATE DISTINCTROW TabelaEmp SET EmpImg008 = '" & (nomefile) & "' WHERE EmpId = " & (EmpId) & ""
End Select
connect.Execute(imgSQL)


If InStr(1,objUploadedFile.ContentType,"octet-stream") Then
Response.Write "O Arquivo foi REMOVIDO por ser um tipo proibido"
objUploadedFile.Delete
End If
'Next


Set objUpload = Nothing


response.Redirect "lancamento_troca_foto"


FechaConnect


%>



Postado em 09/05/2011 ás 16:11:00

Sei que não deveria ser comum nem que deveria acontecer, mas muitas vezes já passei por esta situação. O que eu fiz para resolver? Simples, coloquei um response.write com um javascript com location = 'url';
resolvido.

Topo

Postado em 04/05/2011 ás 20:26:00



Olá, descobri que o erro faltou o .asp no response.direct, porém agora o programa passa direto para


o response.direct não dá erro nenhum porém não executa a rotina ???!!! como pode ser isso ???


mesmo colocando uma rotina response.write  e response.end() parece que despreza toda a rotina e vai direto para o response.redirect !!!!!


 



Topo

Postado em 04/05/2011 ás 18:25:00





Topo

Postado em 03/05/2011 ás 14:24:00

Se o erro está ocorrendo na linha:
Set objUpload = Server.CreateObject ("Dundas.Upload.2")
É que não esta instalado o Dundas Upload. Ou está em uma versão diferente, teria que verificar se o problema é este.

Topo


Exibindo página 1 de 1 encontradas
SuperASP do Brasil Ltda - contato@superasp.com.br

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados