DackAle

bom daqui uns dias vo fazer um tutorial legal de upload... mas enquanto isso vamos ajudando aqui...rs

E ae galera minha duvida é besta, num achei nada sobre isso... mas queria saber se tem como deixar pessoas de fora verem alguma coisa que estou trablahndo, por exemplo queria mostrar para algumas pessoas meu portfolio... e passei meu ip e o diretorio para testar se elas conseguem acessar, mas aparentemente não... resumindo existe como fazer do IIS um servidor mesmo aonde as pessoas possam acessar minhas paginas ? e se sim, alguém sabe me explicar aonde configura ou algum tutorial ou dica oua té como posso procurar, porque só "iis" é muito vazio...rs Abraços

Vamos por partes... rs você sabe qual componente tem no teu servidor ? se não souber descobre, porque cada componente tem sua sintaxe =) fala ae que a gente vai tentando te ajudar abração

getrows... eu acho muito mais facil... guarda os resultados em array e faz um for a partir da array 1 (já que começa do 0) parece complicado mas é besta =)

bom eu estou fazendo uma loja virtual... ai surgiu esse problema, por equanto to usando access mas no final vou fazer em sql server... mas em access que que eu fiz ? joguei como campo tipo moeda, para inserir a sintaxe é essa 800 para R$ 800,00 8.00 para R$ 8,00 789.15 para R$ 789,15 157825 para R$ 157.825,00 reparem que você insere com PONTO e no banco o ponto vira virgula, se você tentar inserir como virgula da erro (bizarro né ?) A sintaxe é basicamente você por ponto se você quiser colocar os centavos, senão o access sozinho formata o valor... ele coloca as duas casas dos centavos no caso para resgatar os valores do banco você chama normalmente e utiliza a função formatcurrency exemplo <%=formatcurrency(rs("valor"))%> ele te retorna certinho com virgulas pontos e R$ se por exemplo você for modificar algum valor, quando você puxa-lo de um replace e mude a virgula para ponto, para na hora de fazer o update não dar erro. hoje vo ter que trabalhar com EUROs para um site internacional, vou descobrir como que faço isso em access e tal, dai posto aqui caso tiver alguma novidade =) mas se alguém souber trabalhar com moedas de melhor forma me da um toke =) abraços

não falou besteira não velho, e interessante isso bom... já deu os 15 dias o proximo é .inc mas é muito pouco pra se falar .inc e funções VB ? Só que acho melhor abordar o getrows e array antes, porque tem algumas funções que o pessoal vai ficar meio boiando antes exemplo ubdoun pega o maior numero da matriz... mas o que é matriz ? rs acho melhor explicar isso e depois as funções... o que acham ? qualquer coisa começo falando... e depois abordamos (daki 15) funções vb script, falamos das mais utilizadas, porque são muitas e nem todas a gente usa no dia-a-dia =) abraços

~bom deu certo era isso mesmo... agora outra duvida, substitui os senha(10) = "a" e assim por diante por senha(10) = chr(65) por exemplo, to fazendo por chr, por dava confusao entre L e 1 e 0 e o na hora de criptografar... ele criptografa numeros normalmente, mas as letras continuam normal exemplo escrevi a senha abc123 e ele converteu para abcWCO os numeros ele fez normal e as letras não, alguém sabe porque ? function criptografia(palavra) dim senha(35), senha2(35) senha(0) = Chr(48) senha(1) = Chr(49) senha(2) = Chr(50) senha(3) = Chr(51) senha(4) = Chr(52) senha(5) = Chr(53) senha(6) = Chr(54) senha(7) = Chr(55) senha(8) = Chr(56) senha(9) = Chr(57) senha(10) = Chr(65) senha(11) = Chr(66) senha(12) = Chr(67) senha(13) = Chr(68) senha(14) = Chr(69) senha(15) = Chr(70) senha(16) = Chr(71) senha(17) = Chr(72) senha(18) = Chr(73) senha(19) = Chr(74) senha(20) = Chr(75) senha(21) = Chr(76) senha(22) = Chr(77) senha(23) = Chr(78) senha(24) = Chr(79) senha(25) = Chr(80) senha(26) = Chr(81) senha(27) = Chr(82) senha(28) = Chr(83) senha(29) = Chr(84) senha(30) = Chr(85) senha(31) = Chr(86) senha(32) = Chr(87) senha(33) = Chr(88) senha(34) = Chr(89) senha(35) = Chr(90) senha2(0) = Chr(53) senha2(1) = Chr(87) senha2(2) = Chr(67) senha2(3) = Chr(79) senha2(4) = Chr(69) senha2(5) = Chr(51) senha2(6) = Chr(81) senha2(7) = Chr(89) senha2(8) = Chr(85) senha2(9) = Chr(57) senha2(10)= Chr(76) senha2(11) = Chr(82) senha2(12) = Chr(52) senha2(13) = Chr(68) senha2(14) = Chr(86) senha2(15) = Chr(80) senha2(16) = Chr(56) senha2(17) = Chr(88) senha2(18) = Chr(71) senha2(19) = Chr(78) senha2(20) = Chr(84) senha2(21) = Chr(90) senha2(22) = Chr(65) senha2(23) = Chr(75) senha2(24) = Chr(48) senha2(25) = Chr(70) senha2(26) = Chr(74) senha2(27) = Chr(50) senha2(28) = Chr(83) senha2(29) = Chr(73) senha2(30) = Chr(77) senha2(31) = Chr(54) senha2(32) = Chr(49) senha2(33) = Chr(66) senha2(34) = Chr(72) senha2(35) = Chr(55) FOR I=1 TO len(palavra) texto = right(left(palavra,I),1) FOR X = 0 TO UBOUND(senha) if senha(x) = texto then y = x end if next texto2 = replace(texto,senha(y),senha2(y)) final = final & texto2 NEXT criptografia = final end function %> abraços e valeuuuuu

E ae galera a um tempinho postei essa função por causa de um erro... Hoje ela funciona perfeitamente, mas agora eu transformei ela em função mesmo, ou seja, quando for inserir a senha no banco de dados é só chama-la, só que acho que na hora de transforma-la e chama-la tem algo errado, já que insere a senha vazia no banco aa funçãozinha é essa ahahah function criptografia(palavra) senha(0) = "0" senha(1) = "1" senha(2) = "2" senha(3) = "3" senha(4) = "4" senha(5) = "5" senha(6) = "6" senha(7) = "7" senha(8) = "8" senha(9) = "9" senha(10) = "a" senha(11) = "b" senha(12) = "c" senha(13) = "d" senha(14) = "e" senha(15) = "f" senha(16) = "g" senha(17) = "h" senha(18) = "i" senha(19) = "j" senha(20) = "l" senha(21) = "m" senha(22) = "n" senha(23) = "o" senha(24) = "p" senha(25) = "q" senha(26) = "r" senha(27) = "s" senha(28) = "t" senha(29) = "u" senha(30) = "v" senha(31) = "x" senha(32) = "y" senha(33) = "z" senha(34) = "w" senha(35) = "k" senha2(0) = "5" senha2(1) = "w" senha2(2) = "c" senha2(3) = "o" senha2(4) = "e" senha2(5) = "3" senha2(6) = "q" senha2(7) = "y" senha2(8) = "u" senha2(9) = "9" senha2(10) = "l" senha2(11) = "r" senha2(12) = "4" senha2(13) = "d" senha2(14) = "v" senha2(15) = "p" senha2(16) = "8" senha2(17) = "x" senha2(18) = "g" senha2(19) = "n" senha2(20) = "t" senha2(21) = "z" senha2(22) = "a" senha2(23) = "k" senha2(24) = "0" senha2(25) = "f" senha2(26) = "j" senha2(27) = "2" senha2(28) = "s" senha2(29) = "i" senha2(30) = "m" senha2(31) = "6" senha2(32) = "l" senha2(33) = "b" senha2(34) = "h" senha2(35) = "7" FOR I=1 TO len(palavra) texto = right(left(palavra,I),1) FOR X = 0 TO UBOUND(senha) if senha(x) = texto then y = x end if next texto2 = replace(texto,senha(y),senha2(y)) final = final & texto2 NEXT response.write final end function %> tipo o nome é criptografia... a palavra, seria o parametro, tipo eu fiz assim para mostra-la Conexao.Execute("INSERT INTO administradores (usuario,nome,sobrenome,email,senha,data_criacao) VALUES ('" & variasp_usuario & "','" & variasp_nome & "','" & variasp_sobrenome & "','" & variasp_email & "','" & criptografia(variasp_senha) & "',#" & now & "#)") mas como eu disse ta indo em branco pro banco de dados, alguém sabe o que eu to ffazendo de errado para mostra-la ? é com o response.write no fim fa dunção que vou mostrar a senha criptografada dentro da função mesmo ? Abraços e valeu galera =)

Não, ela só vão ser carregadas quando chamadas... se você tiver 50 funções e chamar só duas, só duas vão ser ativadas e vão funcionar... pode colocar suas funções em uma include sucegado...

procure sobre as funções vbscript (assinatura do dark0 e imasters.com.br) sobre o dateadd e o datediff, um adiciona data (primeiro caso) e o outro subtrai, os dois você manipula datas, horarios e afins é bem facinho... abraços

E ae galera seguinte, arranjei o codigo de botão que quando clica joga algo na textarea, tipo aqui emcima, se clicar em quote, aparece quote escrito aqui na textarea, funciona, o caso é que ele sempre joga o texto no fim da textarea... e eu precisa que quando clicasse ele jogasse o texto de preferencia aonde ta selicionado ou só aonde ta o cursor do mousa já ajudaria... porque to fazendo um sistema pro cliente, aonde ele clica e aparece as tags de bold (igual aqui) só que sempre vai pro final e o cliente pode ser leigo para não entender isso, então queria tentar melhor... oc odigo é essse <html> <head> <title>SmiliePost v1.0 by rEd nEcK</title> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <!-- ############################################ # # # SmiliePost v1.0 # # # # By: Luiz Fernando B. de Souza # # MSN: redneck@placedesign.net # # E-Mail: luizfbs@hotmail.com # # # # Creditos: Toda ScriptBrasil.com.br ! # # # # Por favor manter creditos =/ # # # ############################################ --> <script language='javascript'> <!-- function smilie(code) { document.all['textarea'].value += ' ' + code + ' '; //return true; } //--> </script> </head> <body> <form method="POST" action="" name="form"> <textarea rows="20" name="textarea" cols="60"></textarea> </form> <a href="javascript:smilie(':O')">:-O</a> </body> </html> Se alguém puder me ajudar fico grato =) Abraços

E ae galera =) Seguinte deve ser a quinta versão do meu portfolio que nunca ponho no ar ahuhauhua mas como PRECISO por no ar, fiz esse ai, fico simples, mas o importante é que no final funcione... rs depois ainda vo arrumar muitas coisas, mas tipo o estilo, a estrutura é essa... a unica coisa que ainda vou tentar melhorar são os titulos (noticias, portfolio e tutoriais) que achei que fico estranho e simples... Meu Portfolio Aceito sugestões, reclações e dinheiro ahahahha abraços e valeu galera =)

cara eu já vi função que tipo faz não quebrar a tabela... deve servir pra isso.... da uma procura aqui no tópico de codigos, funções ou no imasters forum, certeza que algum dos dois tem... mas da pra desenvolver algo, se você souber +/- quantos caracteres tem por linha... é só mandar contar, quando chegar nos 50 caracteres, você ve aonde foi o ultimo espaço (pra não quebrar a palavra no meio por exemplo) e mandar dar um enter (no caso <br>) e assim vai... não é dificil de montar, a logica é essa =) abraçoss

nossa eu to ficando velho eu jurava que tinha respondido esse tópico... bom mas fico assim nome <email> a sintaxe seria essa pra funciona, deu certo, mas tem alguns provedores tipo o IG que ainda barram a msg =/ mas melhor do que nada =) valeuuuuu abraços obs: dark0 não é de ser feio que chamo os outros feios... já falei que só eu so bonito hahuahuhauhua abração dark0

aahuahuaahuha relaxa dark, é bom descontrair ahuahahhau e pode fechar sim feio hahahaa =) valeu pela ajuda abraçossssssss

ahuhuahauhuahua poxa, se doeu dark0, você nem tava no meio huauhahuau feio huahuahuahua é mania minha, é mó legal, sem você conhecer a pessoa chamar de feio, ta certo que todo homem tirando eu e meu pai, são feios, mas anyway hahahahahahahahahahahhaa brincadeira =) obs: sera que feiura e proprorcional ao conhecimento ?? =P Abraço dark0 feio mor =) aahhuahua

bom consegui resolver com a dica do baretaa =) phalowww feiosss =) brigadaum =)

o tal do iif uma vez vi uma explicação sobre isso, mas nem lembro mais... rs acho que é usado em VB...

E ae galera =) Seguinte, urgente...rss sempre peguei nome de arquivo com o variavel = file.filename mas fiz um script aqui pra pegar um arquivo, ler (fso) e depois inserir os emails no BD... mas gera esse erro o codigo ta assim <!--#include file="sis_seguranca.asp" --> <!--#include file="../database/conn.asp" --> <% SET UPLOAD = Server.CreateObject("Persits.upload") endereco = "D:\webpoint\docs\gpskal8\wwwroot\teste\admgpskalserver\arquivos\" Upload.OverwriteFiles = False Upload.Save endereco arquivo = File.FileName <------- AQUI É A LINHA DOZE caminho = endereco & arquivo Const forReading = 1, forWriting = 2, forAppending = 8 Set FSO = CreateObject("Scripting.FileSystemObject") Set Arquivo = FSO.GetFile(caminho) Set Stream = Arquivo.OpenAsTextStream(forReading,false) While Not Stream.AtEndOfStream Linha = Linha & Stream.Readline & "<br>" Wend Quebra = Split(Linha,"<br>") FOR I=LBOUND(quebra) TO UBOUND(quebra) - 1 SET RS = Server.CreateObject("Adodb.recordset") Conn.Execute("INSERT into newsletter (nome, email, data) VALUES ('Contato','" & quebra(i) & "',#" & now & "#)") SET RS = Nothing NEXT Stream.Close SET Arquivo = Nothing Set FSO = nothing Set Stream = nothing response.redirect "emails.asp" %> a linha doze ta com uma seta ali ó...rss alguém sabe como é que posso arrumar essa birosca ? lhei no site a persits e eles só ensinam dessa forma Abraços

ela tambem me adicionou gente boa, queria uma ajuda em um site...rs mas bareta, afinal que que houve ? rs

sqlProdresultado_de_profissionais = "SELECT * FROM profissionais where Cid_id = " & varCategoriaresultado_de_profissionais & " or Cid_id_02 = " & varCategoriaresultado_de_profissionais &" or Cid_id_03 = "& varCategoriaresultado_de_profissionais &" and profissao = '"& Session("pesquisa") & "'" sqlProdresultado_de_profissionais = sqlProdresultado_de_profissionais & " ORDER BY id" tente assim =) abraços

bareta, fiquei curioso para ver o link do "ladrões sem vergonha" rs mas ta fora do ar...

Sim, e inclusive entrei em todos os links... todos os exemplos é exemplos simples pra enviar só para o email, sem nome =/ vou continuar olhando pela busca do forum... ver se alguém já fez isso... pior que um carinha aonde eu trampava tinha comentado como fazia... mas nunca vou lembrar ahhuahuahua abraços

hãm a pergunta idiota, qual a sintaxe para colocar email + nome ? huahuahuahuahu serio... não lembro... to = "lalala@lala.com.br" e com o nome fica como ? procurei na documentação do cdonts não vi nada =/ abraçosss

hmmmm valeu, vo testar aqui cyber =) abração