Componente CsAspUpload Não Funciona
Bom Dia.
Eu baixei do site ChestySoft um componente de Upload de imagem para o banco de dados.
Eu sempre baixo o Trial.
Mas dessa vez não está funcionando mais.
Por exemplo, eu faço o upload e no código que carrega a imagem acusa que não foi 'postada' nenhuma.
Nessa parte:
Set Upload = Server.CreateObject("csASPUpload32Trial.Process")
If Upload.FileQty > 0 Then
if UCase(Upload.Extension(0)) = "JPG" or UCase(Upload.Extension(0)) = "JPEG" Then
Set Image = Server.CreateObject("csImageFileTrial.Manage")
Image.ReadVariant Upload.FileData(0)
Image.ResizeFit 650, 650
rst.open "select * from tblgavrtp where codrtp = '"& rtp & "'",con,1,3
if request.querystring("ted") <> "" then
Rst("cvtendencia") = Image.JPGData
else
Rst("spectro") = Image.JPGData
end if
Rst.Update
Rst.Close
end ifend if
No action <form> do Form está tudo certo. Não alterei nada, eu só substituo as DLL mês a mês por enquanto.
Mas essa variável If Upload.FileQty > 0 Then dá 0 ! Sendo que eu carrego uma imagem.
Alguém tem ideia do que pode ser ?
Obrigado.
Consegui. Que Raiva !
Discussão (1)
Carregando comentários...