Ir para conteúdo
Fórum Script Brasil

marcus Gemeos

Membros
  • Total de itens

    404
  • Registro em

  • Última visita

Tudo que marcus Gemeos postou

  1. há! Acho que não dar por que o meu é sem componente! Você tem como indicar ou enviar para meu e-mail? Se for possível! marcus_gemeos@hotmail.com Obrigada amiga!! Marcus
  2. Olá amiga Deslcupa... não percebir na correria aqui... Vou tentar dessa forma para vê! desculpa mesmo!!! E obrigado por tudo!!!!!!! Marcus
  3. Olá amigo, Abaixo segue todo o código! Acho que é isso mesmo o problema... quebrei minha cabeça não conseguir mesmo! Código: <html> <head> <title>SISTEMA DE UPLOAD DE QUALQUER ARQUIVO</title> </head> <body> <form method=post ENCTYPE="multipart/form-data"> Arquivo : <input type="file" name="File1" size="20"><br> <input type="submit" Name="Action" value="Upload do Arquivo"> </form> </body></HTML> <% VarArq = Trim(request.form("File1")) //não está fincionando VarArq = Replace(VarArq, "'", "") %> <!---#INCLUDE FILE="upload.inc" ---> <% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'Request method must be "POST" For get the fields Set Fields = GetUpload() 'ALTERE A PASTA CHAMADA "imgs" PELA PASTA QUE VOCÊ QUER DEIXAR AS IMGENS 'LEMBRANDO QUE DEVE ESTAR NO MESMO DIRETORIO DAS PAGINAS UPLOAD.ASP E UPLOAD.INC 'DEIXE A BARRA "/" - PARA USAR NO SEU SITE 'DEIXE A BARRA "\" - PARA USAR NA SUA INTRANET nome_arquivo = right(VarArq,instr(strreverse(VarArq),"\") - 1) FilePath = Server.MapPath("imgs") & "\" & Fields("File1").FileName Fields("File1").Value.SaveAs FilePath%> <p><%=nome_arquivo%></p> <%End If 'BY - ROBERTO GODOY %>
  4. Olá amigo, Parece mo seguinte erro abaixo, pois já descobrir porque esse erro, pois o caminho tem que ser assim "c:/site..." e não só o arquivo "foto.jpg" ou seja, só funciona se mostrar p diretorio do arquivo todo, mas fui tentar não consigo extrair o diretorio do campo do form todo, esta dando o erro abaixo. Entendes? Obrigado! Marcus Request object error 'ASP 0206 : 80004005' Cannot call BinaryRead /upload/upload.inc, line 38 Cannot call BinaryRead after using Request.Form collection.
  5. Há tem um problema! Como posso chamar todo o conteúdo do campo? "C:/site..." pois com o comando "Trim(request.form("File1"))" ele não aceita!?? Obrigado! Marcus
  6. Olá amigo, Como saberei o nome do meu servidor na Internet ou aqui local? Abraços! Marcus
  7. Olá amigo, Você sabe um comando que só pegue a extenção do arquivo? Obrigado! Marcus
  8. Olá pessoal, Quanto ao banco de dados SQL Server eu posso ficar tranquilo para mais segurança? Eu possuo o banco de dados Microsoft Access e gostaria de converte-lo para SQL Server, e depois é só mudar a string de conexão não é isso? E tudo bem? E por sinal alguém tem como converter a string de conexão abaixo de Microsft Access para SQL Server? Precisso! Muito obrigado! Marcus <% sub abre_conexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=" & server.mappath("dados/dados.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" end sub sub fecha_conexao Conexao.close Set Conexao =nothing end sub %>
  9. Olá pessoal, Eu gostaria de saber como faço para colocar senha no banco de dados Microsoft Access? Para guando alguém pegar o arquivo e querer abrir, não poder, pois será solicitado uma senha? Precisso! Obrigado! Marcus
  10. Eu estou usando aqueles sistemas de uploads sem componente sabe qual é? Mas caso queira falar sobre algum que tenha componente eu uso também "Dundas", mas gostaria mesmo de saber é do sistema sem componente! Obrigado! Marcus
  11. Olá pessoal, Como faço para que em sistema de upload haja um comando que extraia somente o nome do arquivo e não o seu diretório todo do campo? Ex.: C:/diretorio/foto.jpg eu gostaria que o comando só pegasse o nome "foto.jpg" do campo? Precisso! Obrigado! Marcus
  12. Obrigado amigo! Deu certo! Abraços! Marcus
  13. Olá pessoal, Eu gostaria de mudar o código abaixo de conexão para aquele modo "Server" ou seja, qualquer servidor que eu colocar não precisso mudar o diretório do banco de dados, pois ele reconhece por se só automaticamente! Precisso! Obrigadão! <% sub abre_conexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\Marcus\Site Bahia Mercado\dados\dados.mdb;Driver={Microsoft Access Driver (*.mdb)}" end sub sub fecha_conexao Conexao.close Set Conexao =nothing end sub %>
  14. Olá amigo, Desculpa, pois meu irmão as vezes usa minha conta para por nos foruns... vou falar com ele! Se não eu mudo a senha! Obrigado mesmo!! Desculpa!!! Marcus
  15. Olá pessoal, Um colega respondeu aqui no fórum seguinte reposta: "você vai precisar setar o valor de absolute page da sua consulta. comece com if isempty(request(pagina)) then pag=1 else pag=request(pagina) absolute.page=pagina aí você usa um href no final da página para passar o valor da página que você quer ver..." Aí coloquei esse link: <p><a href="proxima.asp">Próxima</a></p> Mas como aponto a próxima página com restos das informações! Quebrei a cabeça e não conseguir muita coisa! Preciso! Obrigado!
  16. Ola, Fiz tb no flash 8 pro....ele só falou se eu iria importar uns frames...fiz mas está tudo estatico, não vejo nada....como é o processo? Obrigado!
  17. Olá pessoal, Como faço para lê todos os registros de um banco de dados e dar um valor total! Já tentei de tudo e não conseguir! Ex.: Selecione todos os valores dos campos ValorUnit de todos registros e dê total desses valores! Alguém poderia me ajudar? Obrigadão!!
  18. Ola, estou importando um arquivo .flv mas não roda no flash MX e Flash 8, porque? Tem o comando importar e escolher arquvio .flv mas fica sem video no flash não exibi, como fazer?? Preciso! Obrigado! Marcus
  19. Olá pessoal, Eu tenho um pequeno sistema que ele realiza contas com os valores que estão cadastrado no banco de dados, mas ele só lê o primeiro registro não lê de segundo em diante por que? Abraixo segue o código Precisso!!!! Obrigado! Marcus ---------------------------------------------------------------------------------------------- <% IF rs.EOF then Response.write "<i>Não existem débitos pendentes...</i>" ELSE rs.MoveFirst While not rs.EOF %> <tr> <td width="9%">&nbsp;</td> <td width="66%" bgcolor="#F8F8F8"> <p align="left"><font size="2" face="Verdana"><%=rs("Produto")%></font></td> <td width="14%" bgcolor="#F8F8F8"> <p align="left"><font face="Verdana" size="2">R$ <%=rs("Valor")%></font></td> <td width="11%">&nbsp;</td> </tr> <% VarValor = rs("Debitos") VarValorPorcentagem = 5 VarComissao = VarValor * VarValorPorcentagem / 100 VarTotal = VarComissao + VarValor rs.movenext Wend end if rs.Close %> </table> </td> </tr> <tr> <td width="100%"> <table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber32"> <tr> <td width="25%">&nbsp;</td> <td width="39%">&nbsp;</td> <td width="11%" bgcolor="#DFDFDF"> <p align="right"><b><font face="Verdana" size="2">Comissão:</font></b></td> <td width="25%"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber34"> <tr> <td width="54%" bgcolor="#F8F8F8"> <p align="left"><font face="Verdana" size="2">R$ <%=VarComissao%></font></td> <td width="46%"> <p align="left">&nbsp;</td> </tr> </table> </td> </tr> <tr> ...
  20. Tem nada haver, já tenho essas duas placas de redes...e assim mesmo não roda...
  21. Ola, Coloquei uma internet a rádio com controle de MAC....fica um IP automático no computador...mas tem outro computador na rede que se enxegam, trocam arquivos, mas não trocam acesso a internet, fez com proxy, compartilhei e não deu, o que fazer?? preciso! Obrigado! Marcus
  22. Anderson então porque entra no forum? não é a toa que não sabe nada, já sei como é! achei
  23. Olá pessoal, Eu tenho um pequeno sistema que ele realiza contas com os valores que estão cadastrado no banco de dados, mas ele só lê o primeiro registro não lê de segundo em diante por que? Abraixo segue o código Precisso! Obrigado! Marcus ---------------------------------------------------------------------------------------------- <% IF rs.EOF then Response.write "<i>Não existem débitos pendentes...</i>" ELSE rs.MoveFirst While not rs.EOF %> <tr> <td width="9%">&nbsp;</td> <td width="66%" bgcolor="#F8F8F8"> <p align="left"><font size="2" face="Verdana"><%=rs("Produto")%></font></td> <td width="14%" bgcolor="#F8F8F8"> <p align="left"><font face="Verdana" size="2">R$ <%=rs("Valor")%></font></td> <td width="11%">&nbsp;</td> </tr> <% VarValor = rs("Debitos") VarValorPorcentagem = 5 VarComissao = VarValor * VarValorPorcentagem / 100 VarTotal = VarComissao + VarValor rs.movenext Wend end if rs.Close %> </table> </td> </tr> <tr> <td width="100%"> <table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber32"> <tr> <td width="25%">&nbsp;</td> <td width="39%">&nbsp;</td> <td width="11%" bgcolor="#DFDFDF"> <p align="right"><b><font face="Verdana" size="2">Comissão:</font></b></td> <td width="25%"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber34"> <tr> <td width="54%" bgcolor="#F8F8F8"> <p align="left"><font face="Verdana" size="2">R$ <%=VarComissao%></font></td> <td width="46%"> <p align="left">&nbsp;</td> </tr> </table> </td> </tr> <tr> ...
  24. Olá pessoal, Já procurei de tudo de upload e só arranjo uploads que envia qualquer tipo de arquivos! Eu gostaria de upload que só desse opção de enviar imagens!! Alguém tem como? Precisso!! Obrigado! Marcus
  25. Olá amigo, Desculpe mas não houve resultados! Marcus
×
×
  • Criar Novo...