Michael C

Andreia, Eu já tinha tentado com o isNumeric, porém ele sempre retornava TRUE pois o retorno é um número, mesmo que não inteiro. A boa notícia é que consegui uma solução no forum do iMaster, a má notícia é que não existe nada no ASP que retorne direto se o número é inteiro, então a solução é uma função, segue abaixo se alguém algum dia precisar: (o crédito pela solução é do JonathanDJ) function isInteger(valor) dim retorno retorno = false if isnumeric(valor) then valor = cstr(valor&"") if instr(valor,",")=0 and instr(valor,".")=0 then retorno = true end if end if isInteger = retorno end function Obrigado, Michael C.

Boa tarde galera, Preciso fazer uma verificação no resultado de uma conta, preciso saber se o número é inteiro. É possível fazer uma verificação e receber um valor booleado? Ex.: valor_1 = 5 valor_2 = 6 conta = valor_1 / valor_2 'aqui vem o problema if "a verificação se é inteiro?" = true then 'Minha acao else 'Minha outra acao end if Não sei como fazer a verificação... Se alguém tiver uma dica agradeço. Obrigado, Michael C.

Konras, O link do .fla segue abaixo: http://www.kmdesign.com.br/downloads/teste_load.zip Obrigado, Michael C.

Fala Galera! Estou batalhando para aprender na raça Action Script 2.0 ... Vamos lá, estou fazendo um loading de 6 imagens, sendo que: 01.jpg, 02.jpg e 03.jpg - São Verticais 04.jpg, 05.jpg e 06.jpg - São Horizontais Minha estrutura de Movieclipes é a seguinte: verticais (movie clipe principal das verticais) horizontais (movie clipe principal das horizontais) dentro desses movieclipes tenho 6 movieclipes da seguinte forma: verticais. (ultimas_0, ultimas_1 e ultimas_2) horizontais. (ultimas_3, ultimas_4 e ultimas_5) Quero inserir as imagens respectivamente nestes movieclipes através de um loading, esse loading precisa me avisar quando as 6 imagens estiverem sido carregadas, fiz o seguinte código: Sei que estou perto, mas não estou sabendo fazer o incremento do "i"... Não sei está no lugar certo. Neste código eu só carrego a primeira imagem... Se alguém me der uma luz fico muito grato. Abraços, Michael C.

Salve Galera!! Sei que existe uma maneira melhor de fazer isso, só não consegui ter uma idéia melhor... A lógica é a seguinte, estou fazendo um formulário de upload onde a pessoa vai informar em um passo anterior a quantidade de imagens que vai inserir. Esse número de quantidade irá duplicar os campos no formulário de upload. <% Dim numero numero = request.form("numero_de_campos") Select Case numero Case 1 campos = "<tr><td width='100'><label for='datafotos'>Imagem 1:</label></td><td><input name='imagem_1' type='file' id='imagem_1' /></td></tr>" Case 2 campos = "<tr><td width='100'><label for='datafotos'>Imagem 1:</label></td><td><input name='imagem_1' type='file' id='imagem_1' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 2:</label></td><td><input name='imagem_2' type='file' id='imagem_2' /></td></tr>" Case 3 campos = "<tr><td width='100'><label for='datafotos'>Imagem 1:</label></td><td><input name='imagem_1' type='file' id='imagem_1' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 2:</label></td><td><input name='imagem_2' type='file' id='imagem_2' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 3:</label></td><td><input name='imagem_3' type='file' id='imagem_3' /></td></tr>" Case 4 campos = "<tr><td width='100'><label for='datafotos'>Imagem 1:</label></td><td><input name='imagem_1' type='file' id='imagem_1' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 2:</label></td><td><input name='imagem_2' type='file' id='imagem_2' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 3:</label></td><td><input name='imagem_3' type='file' id='imagem_3' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 4:</label></td><td><input name='imagem_4' type='file' id='imagem_4' /></td></tr>" Case 5 campos = "<tr><td width='100'><label for='datafotos'>Imagem 1:</label></td><td><input name='imagem_1' type='file' id='imagem_1' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 2:</label></td><td><input name='imagem_2' type='file' id='imagem_2' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 3:</label></td><td><input name='imagem_3' type='file' id='imagem_3' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 4:</label></td><td><input name='imagem_4' type='file' id='imagem_4' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 5:</label></td><td><input name='imagem_5' type='file' id='imagem_5' /></td></tr>" End Select %> <form name="form1" action="upload.asp" method="post" enctype="multipart/form-data"> <fieldset> <legend>Imagens<br /> </legend> <table width="400" border="0" cellpadding="1" cellspacing="0"> <% =campos %> </table> </fieldset> <br> <input type="submit" name="Submit" value="Gerar link e enviar e-mail"/ class="botao"> </form> Assim até funciona só que eu sei que está errado e não sei como corrigir isso... Alguém tem alguma idéia? Valeu galera e obrigado. Michael C.

Fala Galera! Bom... Estou tentando fazer um loading da seguinte forma: Tenho um menu, com 5 botões. Cada botão irá mostrar uma imagem ao ser clicado. (até ai beleza) Porém eu quero este botão fique ativado apenas quando tiver sido feito o loading da imagem. Vi isso no site de um fotógrafo: http://www.studiozoom.com.br Assim que o site carregar, clique no portfólio e veja o menu do lado esquerdo. já pesquisei em vários lugares e não achei nada do tipo... Alguém tem uma dica de como fazer? Desde já... Valeu! B) Michael C.

Olá amigos! Sou iniciante e estou com uma dúvida! Preciso fazer um sorteio de registros em meu banco de dados, porém, este registro sorteado não participará de novos sorteios. Estive pesquisando aqui no fórum e achei uma programação que o BARETA (Valeu Bareta!) fez e que faz o sorteio: <% 'criando a conexão Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("testdb.mdb") 'conta o total de registros ComandoSQL = "SELECT COUNT(id) AS total FROM produtos" Set bd = Conexao.Execute(ComandoSQL) 'faz a escolha de um numero aleatorio randomize() peso = Int(bd("total") *Rnd) + 1 bareta=bd("total") 'seleciona o registro aleatorio ComandoSQL = "SELECT top "&peso&" * FROM produtos" Set bd = Conexao.Execute(ComandoSQL) bd.Move peso - 1 'imprime na tela o registro escolhido Response.Write bd("produto")%><br><% 'fecha a conexão Conexao.Close Set Conexao = Nothing Set bd = Nothing 'mostra o numero escolhido Response.Write peso %>|||<% 'mostra o total de registros Response.Write bareta %> Estive pensado que para fazer este sorteio sem repetições, eu deveria ter um campo no banco de dados que quando o registro for sorteado eu gravo neste campo a informação "sorteado". Minha dúvida é como selecionar apenas os que não tem "sorteado" no campo para participar do random? Desde já eu agradeço! Valeu!