Ir para conteúdo
Fórum Script Brasil

Aneurex

Membros
  • Total de itens

    15
  • Registro em

  • Última visita

Tudo que Aneurex postou

  1. '''''''''''''''''''''''''''''''''''''''''''''''''''''' ' 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? grato antecipadamente
  2. Aneurex

    Mudando Componentes

    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
  3. Aneurex

    Mudando Componentes

    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
  4. Aneurex

    Mudando Componentes

    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
  5. Aneurex

    Mudando Componentes

    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
  6. Aneurex

    Mudando Componentes

    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
  7. Aneurex

    Mudando Componentes

    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!
  8. Aneurex

    Isso Pode Mesmo Acontecer?

    valeu felipe cabei de checar aki e realmente não estava correta a importação, fiz nova importação e tudo funcionando! obrigado pela dica!
  9. Aneurex

    Isso Pode Mesmo Acontecer?

    ah, e este campo ae citado é autonumber :/ to perdidinho da silva
  10. Senhores, estou mudando o site de 1 provedor para outro. Ate aí sem novidades. O que esta acontecendo é que o mesmo codigo só funciona no antigo provedor. Subi tudo, mudei a conexao ao banco normal e o editar, excluir e consultar estao funcionando ok. Agora o que estou achando estranho é que ao dar algum insert into o banco não me deixa dar, informando erro: Microsoft OLE DB Provider for SQL Server error '80040e2f' Cannot insert the value NULL into column 'IdNoticiasSites', table 'noticias.dbo.NoticiasSites'; column does not allow nulls. INSERT fails. Vi que se refere ao campo q não pode ser null, mas o gozado é que no antigo provedor funciona, mas na locaweb não funciona! Um amigo meu progamador me disse q pode ser trigger ou stored procedure que tem no banco e q no bkp feito não veio estas infos que gravam automaticamente os dados no banco, então ao subir na locaweb da esse erro! Procede esta informação? Estou perdidinho porque não sei nada de programaçao! Grato!
  11. tentei mudar a string de conexao mas tb não funfo :/
  12. o connection foi fornecido pelo novo provedor, no caso a locaweb Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") Conn.Open "Provider=SQLOLEDB.1;SERVER=ip;DATABASE=nomedobanco;UID=nomedeusuario;PWD=Senha de Acesso ao Banco de Dados;" :/ valeu pela ajuda manow
  13. coloquei isso e continua <% '''''''''''''''''''''''''''''''''''''''''''''''''' ' Definicao de variaveis globais '''''''''''''''''''''''''''''''''''''''''''''''''' gDebug = false gDate = "" gPermicao = "" gLojaNome = "" set gConnDB = nothing if (gDebug = true) then ShowDebugInformations() ShowDebugCookie() end if '''''''''''''''''''''''''''''''''''''''''''''''''' ' Abrir conexao com o Banco de Dados '''''''''''''''''''''''''''''''''''''''''''''''''' function openDB () Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") Conn.Open "Provider=SQLOLEDB.1;SERVER=xxxxxx;DATABASE=xxx;UID=xx;PWD=xxxx" end function '''''''''''''''''''''''''''''''''''''''''''''''''' ' Fechar conexao com o Banco de Dados '''''''''''''''''''''''''''''''''''''''''''''''''' function closeDB () gConnDB.close set gConnDB = nothing end function %>
  14. Senhores a empresa q trabalho esta migrando o site para a Locaweb e sobrou pra mim a migraçao, mesmo sem eu saber nada disso. Bem, subi as paginas e logo de cara estou com este erro: Microsoft VBScript compilation error '800a0400' Expected statement /_Server/Database.asp, line 34 "Provider=SQLOLEDB.1;SERVER=xxx.xxx.xxx.xx;DATABASE=xxxxxx;UID=xxxx;PWD=xxxxxx" ^ Na linha 34 eu tenho isso: "Provider=SQLOLEDB.1;SERVER=xxx.xxx.xxx.xx;DATABASE=xxxxxx;UID=xxxx;PWD=xxxxxx" Eis o codigo da conexao com o banco da pagina Database: function openDB () Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") Conn.Open "Provider=SQLOLEDB.1;SERVER=xxxxxx;DATABASE=xxxxx;UID=xxx;PWD=xxxxxx" end function '''''''''''''''''''''''''''''''''''''''''''''''''' ' Fechar conexao com o Banco de Dados '''''''''''''''''''''''''''''''''''''''''''''''''' function closeDB () gConnDB.close set gConnDB = nothing end function Grato aos que me ajudarem, desde já!
×
×
  • Criar Novo...