''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Recebe dados do formulario
''''''''''''''''''''''''''''''''''''''''''''''''''''''
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\meusite.com.br\"
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
Pessoal estou com grandes problemas, sai de 1 provedor q utilizava o ASPUPLoad como componente e fui pra Locaweb, q tem o DunDasUpload. Tentei eu mesmo migrar este codigo acima mas não tive sucesso, mesmo porque não sou programador e o pouco q sei foi sapiando nos foruns q frequento, mas este codigo é muito complexo e me perdi todo, ate mesmo com a documentacao do componente, alguém poderia me ajudar?
Pergunta
Aneurex
Pessoal estou com grandes problemas, sai de 1 provedor q utilizava o ASPUPLoad como componente e fui pra Locaweb, q tem o DunDasUpload. Tentei eu mesmo migrar este codigo acima mas não tive sucesso, mesmo porque não sou programador e o pouco q sei foi sapiando nos foruns q frequento, mas este codigo é muito complexo e me perdi todo, ate mesmo com a documentacao do componente, alguém poderia me ajudar?
grato antecipadamente
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.