Mudando Componentes

[Aneurex]

Senhores, finalmente com a ajuda dos amigos aki o site esta quase 100%. Para fechar com chave de ouro só preciso arrumar este pqno codigo abaixo. Atualmente o site aki usa AspUpload mas na Locaweb eles utilizam o SafileUpload. Eu fiz a alteração de uma parte do codigo mas não funfionou. No exemplo deles é bem simples e não me resolveu tb não.

Voces me auxiliariam a fazer funcionar este codigo abaixo mostrado no novo componente?

function ReaderForm()
  if (Request("ty2") = "Form" or Request("ty2") = "Save") then

  	'strPath = Mid(Server.MapPath("Destaque.asp"),1,Len(Server.MapPath("Destaque.asp"))-19)
  	'strPath = "C:\home\dom711\homepage\html\"
  	strPath = "D:\Inetpub\wwwroot\galeria\"

  	
  	Set Upload = Server.CreateObject("Persits.Upload")
  	Upload.OverwriteFiles = False
  	Count = Upload.Save(strPath & "Temp\")

  	gTitulo    = Replace(Replace(Upload.Form("txtTitulo"), "'", "`"), """", """)
  	gTipoo     = Replace(Replace(Upload.Form("txtTipo"), "'", "`"), """", """)
  	''gTexto     = Replace(Replace(Upload.Form("DESCRIPTION"), "'", "`"), """", """)
  	gTexto     = Replace(Upload.Form("DESCRIPTION"), "'", "`")
  	gLogin     = Request.Cookies("AdmUsr")("Login")
  	gIdNoticia = Upload.Form("IdNoticias")
  	gImagem    = Upload.Form("txtImagem")
  	gCodigo    = Upload.Form("txtCodigo")
  	gAlinhamento = Upload.Form("txtAlinhamento")

  	if (CInt(Count) = 1) then
    if (gTipo = "Insert") then
    	gCodigo = CreateDateKey()
    else
    	if (Upload.Form("txtCodigo") = "0") then
      gCodigo = CreateDateKey()
    	end if
    end if
    Set File1 = Upload.Files("THEFILE")
    File1.Copy strPath & "Galeria\Noticias\Thu_" & gCodigo & ".gif"
    File1.Delete
  	end if
  end if

  if (gImagem = "1") then
  	gCodigo = "0"
  end if
	end function

O meu muito obrigado mais 1 vez!

[bareta]

qual o erro e qual a linha do erro???

[Aneurex]

ele fala q não pode criar o objeto solicitado

no caso o ASPUPLOAD

o que preciso é trocar este codigo citado para o codigo com o componente SafileUpload

tks mais 1 vez

[bareta]

então o server não tem esse componente!!!! veja no tópico de funções um codigo que lista os comp instalados no server....

[Aneurex]

o componente que eles tem é o SafileUpload

o meu codigo é este, no ASPUPLOAD:

function ReaderForm()
 if (Request("ty2") = "Form" or Request("ty2") = "Save") then

   strPath = "D:\Inetpub\wwwroot\galeria\"

  
  Set Upload = Server.CreateObject("Persits.Upload")
  Upload.OverwriteFiles = False
  Count = Upload.Save(strPath & "Temp\")

  gTitulo    = Replace(Replace(Upload.Form("txtTitulo"), "'", "`"), """", """)
  gTipoo     = Replace(Replace(Upload.Form("txtTipo"), "'", "`"), """", """)
  ''gTexto     = Replace(Replace(Upload.Form("DESCRIPTION"), "'", "`"), """", """)
  gTexto     = Replace(Upload.Form("DESCRIPTION"), "'", "`")
  gLogin     = Request.Cookies("AdmUsr")("Login")
  gIdNoticia = Upload.Form("IdNoticias")
  gImagem    = Upload.Form("txtImagem")
  gCodigo    = Upload.Form("txtCodigo")
  gAlinhamento = Upload.Form("txtAlinhamento")

  if (CInt(Count) = 1) then
   if (gTipo = "Insert") then
    gCodigo = CreateDateKey()
   else
    if (Upload.Form("txtCodigo") = "0") then
     gCodigo = CreateDateKey()
    end if
   end if
   Set File1 = Upload.Files("THEFILE")
   File1.Copy strPath & "Galeria\Noticias\Thu_" & gCodigo & ".gif"
   File1.Delete
  end if
 end if

 if (gImagem = "1") then
  gCodigo = "0"
 end if
end function

preciso deste mesmo codigo só que no componente SafileUpload

tks

[bareta]

veja

http://www.vetorhost.com/html/componentes.asp?comp=15

[Aneurex]

fala bareta, obrigado pelo interesse

eu tinha visto já este exemplo e cheguei a colocar ele, o erro não deu mais no site mas tb a imagem não esta sendo enviada e não aparece no site

:/

valeus

[bareta]

crie uma pasta chamada upload.... vamos testar

form.htm

[Aneurex]

fala bareta, funcionou sim esse exemplo seu mas para o meu codigo não deu certo porque este upload recebe 1 id q é o mesmo id da news. então se eu mandar a imagem aparece a imagem junto a news, se não mandar não aparece, esse exemplo q você deu envia a mensagem mas não me completa o codigo entende

grato + 1 vez

[bareta]

não entendi

[Aneurex]

cada noticia adiconada poder ter 1 imagem thumbmail nela, essa imagem é enviada pelo sistema da news

no exemplo seu eu envio a imagem mas não anexo ela a sua noticia de origem entende

te add no meu MSN se puder me de ok

valeus

[bareta]

crie uma opção de adição de fotos numa popup ai faz o upload e adiciona na noticia via js