Ir para conteúdo
Fórum Script Brasil

Guinho.TI

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    36

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Guinho.TI postou

  1. Guinho.TI

    Problema Com Horas

    pergunta respondeu ao Guinho.TI de Guinho.TI em ASP

    Esta aplicação roda em 3 páginas: 1 - Página da TextBox 2 - Página com as Functions 3 - Página com os resultados. Tentei colocar o response.write na 2 e na 3 e não apareceu nada. Por via das dúvidas, dei um Trim antes do Len e continua dando no mesmo. O erro que aparece é o seguinte: The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools. Esstou tentando mais algumas soluções e aceito sugestões. desde já agradecido!
  2. Guinho.TI

    Problema Com Horas

    uma questão postou Guinho.TI ASP

    Num determindado formulário inseri um textbox onde o usuário pode digitar uma hora no formato hh:mm:ss. Crie um Case que, após a leitura da quantidade de caracteres no TEXTBOX, ele completa o campo, para que a consulta SQL possa aceitar o seu valor. *********************** Dim cont Dim hFormat cont = Len(PHora) Select case cont case 8 ' se o campo foir preenchido corretamente, ou seja 00:00:00 hFormat = PHora case 5 ' SE OS SEGUNDOS NÃO FOREM PREENCHIDOS, INSERE ":00" hFormat = PHora&":00" case 2 'SE OS MINUTOS E SEGUNDOS NÃO FOREM PREENCHIDOS, INSERE ":00:00" hFormat = PHora&":00:00" End Select *********************** Ocorre que, o case 8 e o Case 5 funcionam. alguém saberia me dizer porque o Case 2 não funciona?????
  3. Guinho.TI
    Nesta página é! Trata-se de uma listagem de documentações, que quando clicadas, abrem em um popup. Pelo que entendi, seria pra inserir este trecho na function OpenPDF. Fiz isso, mas sem alterar nada mais, somente inseri este trecho! E continua continua dando no mesmo... Valeu pela sugestão. RESOLVIDO!!! Consegui resolver da seguinte forma: &lt;script language="JavaScript"> <!-- function floater() { Win = window.open("","floater","width=780,height=630,scrollbars=yes,toolbar=no,left="+(screen.width - 787)+",top=25,status=no") Win.focus() } --> </script> ... <a href=""log/log3.asp"" target=""floater"" onclick=""floater()""> Este problema acontecia em outras páginas também, onde os popus eram outras páginas. No caso do PDF, deu no mesmo, mas consegui o que eu queria. Agradeço a todos os que me ajudaram.
  4. Guinho.TI
    Alterei o onload, mas deu no mesmo... vou postar aqui parte do codigo, para que possas me ajudar: <script language="JavaScript"><!-- var JSloaded = false; var pdfWin = null; function openPDF(target) { pdfWin = window.open(target,"PopUp","toolbar=no,location=no,directories=no,status=no,resizable=yes,scrollbars=yes"); if (document.images && pdfWin) setTimeout("pdfWin.focus()",100); if (pdfWin.opener == null) { pdfWin.opener = self; window.name = 'pdfWindow'; pdfWin.location.href = target; } } //--></script> <BODY onLoad="if(parent.frames.length>0) parent.doLoad('scindex')" text="#000000" bgcolor="#FFFFFF"> <a href=""java script:openPDF('pdf/iceca108.pdf')"">
  5. Guinho.TI
    Eu tenho uma serie de itens listados e cada um deles possui um link que abre uma POPUP. Quando eu clico nos links, o target vai para o Popup e exibe os dados normalmente. Porém, quando eu volto na página principal para clicar em outro item, a POPUP minimiza e quando eu clico num novo link a POPUP atualiza, porém continua minimizada... Gostaria de saber se em ASP, ou Javascript, teria uma forma de fazer com que, cada vez que eu clicar num Link diferente, a POPUP surja e fique a frente da página principal, como quando clicado da primeira vez. Desde já agradecido [ ]s B)
  6. Guinho.TI
    Bom, conforme vocês me sugeriram, verifiquei o método e criei o Response.write. O método é POST e quando eu crio o response.write ele retorna vazio... a=Request.form("md") b=request.form("desvio") response.write("O valor de MD é: "& a) Response.write("<br>") response.write("O valor de DESVIO é: "& B) O valor é: O valor é: Vou colar o trecho do código pra vocês verem: (O CODEBOX nã esta funcionando, por isso vou colar..) FORMULÁRIO text = text&"<FORM name=""JobsMF"" id=""JobsMF"" action=""FormInter.asp"" method=post>"&chr(13)&"" '****************************************************** '* PARÂMETROS DE BUSCA - MÍNIMO DE OCORRÊNCIAS NO JOB * '****************************************************** text = text&" <TR>"&chr(13)&"" text = text&" <TD width=""10%"" align=""right""><img src=""img\check1.gif""></TD>"&chr(13)&"" text = text&" <TD width=""32%"" class=""filtro"" align=""right"">"&chr(13)&"" text = text&" Mín. de Ocorrências: "&chr(13)&"" text = text&" </TD> "&chr(13)&"" text = text&" <TD> "&chr(13)&"" text = text&" <input class=""textarea"" type=""text"" name=""md"" id=""md"" size=8 value='9' ></span> "&chr(13)&"" text = text&" </TD> "&chr(13)&"" text = text&" </TR>"&chr(13)&"" '************************************************************************* '* PARÂMETROS DE BUSCA - RAZÃO DESVIO PADRÃO DIVIDIDO PELA DURAÇÃO MÉDIA * '************************************************************************* text = text&" <TR>"&chr(13)&"" text = text&" <TD width=""10%"" align=""right""><img src=""img\check1.gif""></TD>"&chr(13)&"" text = text&" <TD width=""25%"" class=""filtro"" align=""right"">"&chr(13)&"" text = text&" Desvio Padrão: "&chr(13)&"" text = text&" </TD> "&chr(13)&"" text = text&" <TD> "&chr(13)&"" text = text&" <input class=""textarea"" type=""text"" name=""desvio"" id=""desvio"" size=8 value='3.9' ></span> "&chr(13)&"" text = text&" </TD> "&chr(13)&"" text = text&" </TR>"&chr(13)&"" text = text&"</FORM>"&chr(13)&"" Response.write(text) QUERY (Página do ACTION) Dim SrtSQl Dim desvio,md Dim Tabela Dim oConn Dim iRS Tabela = "HIS_jobs" SrtSQL = " SELECT nome_job, Count(*) AS cnt, Max(duracao) AS MaxDur, Min(duracao) AS MinDur, Avg(duracao) AS MedDur, " SrtSQL = SrtSQL& "CONVERT(decimal(10,2), (StDev(duracao))) as DESDUR, " SrtSQL = SrtSQL& "CONVERT(decimal(10,2), (StDev(duracao)/Avg(duracao))) as per FROM "&Tabela&"" SrtSQL = SrtSQL&" GROUP BY nome_job having (Count(*) > '"&Request.form("md")&"') and (Avg(duracao) <> 0 ) and " '"&Request.Form("md")&"' SrtSQL = SrtSQL&" (StDev(duracao)/Avg(duracao) > '"&Request.Form("desvio")&"')" Set iRS = Server.CreateObject("ADODB.Recordset") iRS.Open SrtSQL, oConn, 3, 1 Desde já agradeço [ ]'s
  7. Guinho.TI
    Sim! na verdade esta aplicação roda na Intranet da Empresa e nõ fui eu quem desenvolveu, somento faço manutenção. Existe uma página com o FORM, outra com a QUERY e outra que exibe os resultados e a paginação. Mesmo sendo desta forma, a query funciona corretamente. O problemas está quando eu inseri o Request.Form.... Abc
  8. Guinho.TI
    Preciso alterar um número padrão de uma query para um valor que o usuário digitar. A Query era assim: ... SrtSQl = SrtSQL&" and (StDev(duracao)/Avg(duracao) > 4)" Então, fiz o seguinte: **Inseri o campo no formulário <input class=""textarea"" type=""text"" name=""md"" id=""md"" size=8 value='4' > ** E alterei a query ... SrtSQl = SrtSQL&" (StDev(duracao)/Avg(duracao) > ' " & Request.form("md") & " ')" Ocorre que, o formulário não lê o valor digitado e retorna da segunte forma ...and (StDev(duracao)/Avg(duracao) > '') O que eu devo fazer???
  9. Guinho.TI

    Consulta Sql Em Asp

    uma questão postou Guinho.TI ASP

    Fiz uma consulta SQL, executei na página ASP e funcionou. Gostaria de saber como eu passo dois valores por parâmetro, através de um formulário ASP, para serem utilizados em uma consulta SQL. Eu fiz da seguinte forma: * Página onde os números será digitados. * Página que deveria receber os números digitados: Quando executado desta forma, diz que a página não pode ser exibida.... Vlw
  10. Guinho.TI
    Andreia, obrigado pela ajuda. Mas continua não funcionando.... O problema é que: na verdade, eu utilizava um If no servidor de testes e funcionava. Quando eu mudei o Servidor, parou de funcionar... Eu usava este If: If (iRS.RecordCount > 0 ) Then exibe = "Tabela" Else exibe = "SemAplicacao" End If
  11. Guinho.TI
    Sou novo na área e estou desenvolvendo uma aplicação na Intranet. Ao fazer a conexão com o Banco de Dados, criei uma condição que: Caso o contador de registros seja maior que 0, exibe os dados. Caso contrário, exibe a mensagem de erro. Quando executo e há registros, a Tabela é exibida normalmente. Mas se não houver registros, retorna o seguinte erro: Error Type: ADODB.Recordset (0x800A0BCD) Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /FormJobsMF.asp, line 96 Analisem o código e me ajudem. já tentei de tudo... Dim oConn ' ** CONEXÃO COM O BANCO DE DADOS Dim iRS,SQLStmt ' ** VARIÁVEL QUE RECEBE O RESULTADO (SET) Dim exibe ' ** SE NENHUM DADO É RETORNADO, EXIBE AVISO DE ERRO Dim Tabela ' ** VARIÁVEL QUE ARMAZENA O NOME DA TABELA PARA A MONTAGEM DA QUERY ' ** VALOR DE "Tabela" : ** Tabela = "teste" Set iRS = Server.CreateObject("ADODB.Recordset") iRS.PageSize = 28 'PageSize: é a quantidade de registros exibidos por página '** INÍCIO DA QUERY PRINCIPAL ** SQLStmt = SQLQuery(1,Tabela) iRS.Open SQLStmt, oConn, 3, 1 ->esta é a linha 96, indicada no erro iRS.MoveFirst If (iRS.RecordCount > 0 ) Then exibe = "Tabela" Else If not iRS.EOF Then exibe = "SemAplicacao" End If End If
×
×
  • Criar Novo...