pgmador

amigo, pra podermos te ajudar melhor, teríamos que saber em que linha está dando o erro, e qual o erro. A linha 2661 não tem como a gente saber qual é.

bem, a resposta do Bareta não era exatamente o que eu queria, mas tive uma idéia, a partir dela. Se eu pego um número e divido por outro, terei um resultado. Então, para ter o resto em decimal eu posso pegar o resultado, multiplicar por quem está dividindo e diminuir o resultado do número principal <% numero = 18.4 divisor = 10 resultado = numero/divisor resto = numero - (resultado*divisor) %> Fiz isto, e tenho o resto em decimal. Valeu pessoal, pela ajuda! Pode fechar o tópico!!

Faça isto direto no select <% rs.Open "SELECT SUM(coluna) AS total FROM tabela", conexao Response.Write(rs.fields("total")) %>

Olá amigos, Estou tentando pegar o resto da divisão, mas este resto não volta com as casas decimais. Por exemplo: <% resto = 18.4 mod 10 response.write (resto) %> A resposta que vem resto=8 quando deveria vir 8.4, que é o resto da divisão. Alguém poderia ajudar a corrigir isto? Abs a todos!

Olá pessoal, Sou novo em PHP, e estou tentando fazer um redimensionamento na hora de fazer um upload. Aqui no fórum tem muitos tópicos que explicam o redimensionamento, mas sinceramente não vi fazer enquanto se faz o upload. No meu sistema, por exemplo, capturo o arquivo que estou enviando com $_FILES["arquivo"].. nos exemplos aqui, estão com $_GET... Enfim... gostaria de saber se é possível fazer este redimensionamento na hora que estiver enviando, ou se primeiro tem que enviar e depois redimensionar, apagando a foto original. Se puderem me ajudar, agraço, Abs,

Bem pessoal, tentei fazer deste jeito, como eu faria em asp, sem utilizar o javascript ObjRS.Open "INSERT INTO lng_depoimento (produto_id, cadastro_id, nota, titulo, pros, contras, depoimento, funcionalidade, qualidade, durabilidade, custobeneficio, data VALUES ("+produto_id+", "+cadastro_id+", "+nota+", '"+titulo+"', '"+pros+"', '"+contras+"', '"+depoimento+"', "+funcionalidade+", "+qualidade+", "+durabilidade+", "+custobeneficio+", '"+data+"')", C,3 Mas deu o seguinte erro: Tipo de erro: Erro de compilação do Microsoft JScript (0x800A03EC) ';' esperado /lingerio/depoimentoScripts.asp, line 47, column 11 Alguma ajuda?

Bem pessoal, tentei fazer deste jeito, como eu faria em asp, sem utilizar o javascript ObjRS.Open "INSERT INTO lng_depoimento (produto_id, cadastro_id, nota, titulo, pros, contras, depoimento, funcionalidade, qualidade, durabilidade, custobeneficio, data VALUES ("+produto_id+", "+cadastro_id+", "+nota+", '"+titulo+"', '"+pros+"', '"+contras+"', '"+depoimento+"', "+funcionalidade+", "+qualidade+", "+durabilidade+", "+custobeneficio+", '"+data+"')", C,3 Mas deu o seguinte erro: Tipo de erro: Erro de compilação do Microsoft JScript (0x800A03EC) ';' esperado /lingerio/depoimentoScripts.asp, line 47, column 11 Alguma ajuda?

Um formulário chama este script strSQL = "BEGIN TRAN " + "SET NOCOUNT ON; " + "INSERT INTO lng_depoimento(produto_id, cadastro_id, nota, titulo, pros, contras, depoimento, funcionalidade, qualidade, durabilidade, custobeneficio, data ) " + "VALUES(" + produto_id + ", '" + cadastro_id + "', " + nota + " , '" + titulo + "', '" + pros + "', '" + contras + "', '" + depoimento + "', '" + funcionalidade + "', '" + qualidade + "', '" + durabilidade + "', '" + custobeneficio + "', '" + data + "');" + "SELECT @@IDENTITY AS ID; " + "SET NOCOUNT OFF;"; "COMMIT; "; Alguém saberia explicar porque ele está inserindo 6 vezes?

um formulario chama este script. strSQL = "BEGIN TRAN " + "SET NOCOUNT ON; " + "INSERT INTO lng_depoimento(produto_id, cadastro_id, nota, titulo, pros, contras, depoimento, funcionalidade, qualidade, durabilidade, custobeneficio, data ) " + "VALUES(" + produto_id + ", '" + cadastro_id + "', " + nota + " , '" + titulo + "', '" + pros + "', '" + contras + "', '" + depoimento + "', '" + funcionalidade + "', '" + qualidade + "', '" + durabilidade + "', '" + custobeneficio + "', '" + data + "');" + "SELECT @@IDENTITY AS ID; " + "SET NOCOUNT OFF;"; "COMMIT; "; Alguém saberia explicar porque ele está inserindo 6 vezes?

beleza.. este é pra access, e não funciona no SQL Server. Neste caso, para resolver, eu fiz o que coloquei aí em cima, e capturei o último registro... pode fechar o tópico!

falow... até achei estranho você chamar o nome de cod, mas como é só nomenclatura dada por você, poderia estar certo... mas mesmo assim perguntei se era um campo texto... abs

pessoal, Fiz um randomize para pegar registros aleatórios no banco de dados, conforme vi em outro tópico aqui... O problema é que dá sempre o mesmo resultado. O código: rs.Open "SELECT COUNT(codigo) AS total FROM pergunta WHERE cod_categoria = "&id_categoria&" AND status=1 AND NOT EXISTS (SELECT id_pergunta FROM quiz_data WHERE id_pergunta = codigo AND id_usuario = '"&id_usuario&"') ", Conexao total = rs.fields("total").value Randomize() Aleatorio = Int(total*Rnd) + 1 rs.close rs.Open "SELECT top " & Aleatorio & " codigo FROM pergunta WHERE status = 1 AND cod_categoria = "&id_categoria&" AND NOT EXISTS (SELECT id_pergunta FROM quiz_data WHERE id_pergunta = codigo AND id_usuario = '"&id_usuario&"') ORDER BY codigo DESC", Conexao Como fazer para realmente ser randomico???

o campo nome, no banco de dados, dever ser um campo texto, né? tente assim <% cod = request.form("Código") set conexao = server.createobject("adodb.connection") conexao.Open "SELECT * FROM tabela1 WHERE nome = '"&cod&"'", teste2 nome = rs.fields("NOME") response.write nome %>

Perfeito! Funcionou. Valeu!!! Moderador, pode fechar o tópico!

Pessoal, estou com um chat aqui, e quero fazer o seguinte. Ao clicar o botão de envio de mensagem, gostaria que o foco do cursor viesse automaticamente para a caixa de texto da mensagem. Podem me dar um help? Grato!

amigão, você precisa dar permissão de escrita para o diretório onde está o seu BD Vai lá no IIS, vai no diretório onde está o seu BD, clica com o botão direito, vá em Propriedades, e escolha a opção GRAVAR, na guia Diretório []´s

Resolvido o problema. Pode fechar o tópico!!!

OSJunior, Na verdade, o problema que eu quero resolver, não é a chamada da função, e sim que, através desta funçaõ, eu consiga chamar uma pagina, "pagina.asp", passando os parametros do form, que é o que o usuário irá preencher no formulário, login e senha. Sacou?

Ela está sendo chamada quando o botão "enviar" do formulário é apertado, conforme o código abaixo: <INPUT onclick=submeter() tabIndex=3 type=submit value=" Entrar " name=BtnSub>

Amigos, arrumei um teclado virtual, mas não manjo nada em java script. Neste teclado virtual, tenho 2 campos: login e senha Ao clicar o botão Enviar, ele chama a função Submeter, que está abaixo: Gostaria que, ao clicar no botão enviar, ele chamasse uma pagina.asp, passando os parâmetros login e senha, preenchidos no formulário. Algúem pode me ajudar? <script language="JavaScript"> function submeter(){var currentState = 1; var newState = 2;if (newState != currentState){document.FrmLogin.BtnSub.disabled = newState;document.FrmLogin.submit();}} </SCRIPT>

Pessoal, seguinte... estou colocando um link que abre um pop-up. Entretanto, neste link, eu preciso passar um parâmetro. Como eu faço isso? Para entender: Eu tenho uma variável chamada idproduto e quero passá-la no link, que seria cores.asp?id=idproduto Como seria? Segue meu código como está, sem a passagem do parâmetro. <a href="#" onClick="MM_openBrWindow('cores.asp','nome_janela_sem_espacos','width=300,height=300,scrollbars=no,status=no,toolbar=no,location=no,directories=no,menubar=no,resizable=no,fullscreen=no');">Veja as cores disponíveis</a>

se estiver usando o access, você precisa habilitar o diretório onde o banco está para ser um diretório atualizável.

amigão, a estrutura do If é a seguinte: If 'condição' then ' comandos else ' comandos end No seu código tem o If, then e else, mas não tem o end. Tente assim <%@ Language=VBScript %> <% Set BdTopModel=Server.CreateObject("Adobd.connection") BdTopModel.Open "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=" & Server.MapPath("banco.mdb") %> <% dim Procura Procura="select * from topmodels where nome="'& request.form("nome")&"' AND corcabelo="'& request.form("corcabelo") &"' AND corolho="'& request.form("corolho")&"'" SetReeTopModel=Server.CreateObject("ADODB.Recordset") ReeTopModel.Activeconnection=BdTopModel ReeTopModel.Cursortype=adOpenkeyset%> <!--#include File="Adovbs.inc"--> <% ReeTopModel.Locktype=adlockOptimistie ReeTopModel.Cursorlocation=adUseServer ReeTopModel.Open Procura.BdTopModel.adOpestaticc.adLockOptimistie.adCmdText if ReeTopModel.bof and ReeTopModel.cof then Response.write("TopModel não encontrada") %> <a href="Default.asp">Voltar</a> <% else Vnome=ReeTopModel("nome") VcorCabelo=ReeTopModel("corcabelo") Vcorolho=ReeTopModel("corolho") Vlocal=ReeTopModel("local") Response.write(Vnome) Response.write(Vcorcabelo) Response.write(Vcorolho) end %> <img border="1" height=279 width=124 src="<% Response.write(Vlocal)%>.jpg" width="294" height="202">%> <% BdTopModel.close Set BdTopModel=nothing %>

Voce pode salvar com o nome que quiser.. por exemplo, salvar o arquivo com o nome do usuário e o dia de hoje. usuario=Session("usuario") dia = day(now()) grafico=dia&usuario&".jpg" filel.SaveAs (grafico)

não adiantou... aliás, os 3 botões funcionam separadamente... a função dos 3 juntos é que não funciona... deve ter algo que habilita isto.