Ir para conteúdo
Fórum Script Brasil

Milena

Membros
  • Total de itens

    191
  • Registro em

  • Última visita

Posts postados por Milena

  1. opa... achei q tava tudo certo mas parece que não...

    para selecionar um campo date é assim:

    	codigoimovel = request.form("codigoimovel")
    	data   = request.form("data")
    
    
    	if isnull(codigoimovel) OR isempty(codigoimovel) then
      codigoimovel = request.QueryString("codigoimovel")
    	end if
    
    	strsql = "select * from Caixa where codigoimovel = '"&codigoimovel&"' and dataAtual=#"&data&"#"
    	rsdbcon.open strsql
    	response.write(strsql)
    
    
    Quando eu imprimo aparece isso na tela:
    select * from Caixa where codigoimovel = '8' and dataAtual=#7/10/2005# 
    

    Tenho certeza q esse registo existe ... mas ele me diz que não encontrou nada

  2. Já tentei fazer de tudo nessa página, já exclui estilos, refiz , alterei novamente mas as cores das fontes não mudam.

    Quando visualizo no Dreaweaver elas aparecem colorida , mas quando eu subo pra internet aparecem todas pretas... huh.gif

    o que pode estar acontecendo?

    obs: Claro que ninguém precisa ler o código que postei abaixo, mas talvez ajude em alguma coisa...

    <!--#include file="conexao.asp"-->
    	<html>
    <% 
    	nome  = request.form("Marcas")
    	senha = request.form("senha")
      login = request.form("Carros")
    	mes   = request.form("mes")
    	imovel= request.form("codigoImovel")
    
    	Set  rs = Server.CreateObject("ADODB.RECORDSET")
    	rs.ActiveConnection = conexao
    	strsql = "select * From caixa where codigoImovel='"&imovel&"' AND mesAtual='"&mes&"'"
    	rs.open strsql
      if rs.eof  then%>
    
    	<head><title>Relatório Mensal - Locador</title>
    	<style type="text/css">
    <!--
    .style31 {color: #00FFFF}
    .style32 {color: #FF0000}
    .style33 {color: #FFFFFF}
    -->
        </style>
    	</head>
    	<body>
      <div align="center"><strong>
        <div align="center">
              <%response.write("Não existe lançamentos deste imóvel no caixa")%>
            <%else%>
            <br>
            <br>
        </div>
               <table width="68%" height="100" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#E6E6E6">
          <tr>
            <td ><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
                <tr bgcolor="#261772">
                  <td colspan="2"><span class="style28"><span class="style30 style33">O paga</span><span class="style33">mento foi realizado dia:</span>
                  <%Response.Write( rs("dataAtual") &  vbcrlf )%>
                  </span></span></td>
              </tr>
                <tr bgcolor="#261772">
                  <td colspan="2"><div align="left" class="style23 style27" >
                    <%Response.Write "C&oacute;digo Imovel"%>
                  : 
                  <%Response.Write( rs("codigoImovel") &  vbcrlf )%>
                   </div>
                  <div align="left" class="style18 style23 style27" > </div></td>
              </tr>
                <tr>
                  <td width="331" bgcolor="#FFFFFF"><div align="left" class="style22">
                    <%Response.Write "Endere&ccedil;o:"%>
                  </div></td>
                  <td width="338" bgcolor="#FFFFFF"><div align="left">
                    <%Response.Write( rs("endereco") &  vbcrlf )%>
                  </div></td>
                </tr>
                <tr>
                  <td bgcolor="#F4F4F4"><div align="left">
                    <%Response.Write "Vencimento:"%>
                  </div></td>
                  <td bgcolor="#F4F4F4"><div align="left">
                    <%Response.Write( rs("dataVencimento") &  vbcrlf )%>
                  </div></td>
                </tr>
                <tr>
                  <td bgcolor="#FFFFFF"><div align="left">
                    <%Response.Write "Valor Aluguel:"%>
                  </div></td>
                  <td bgcolor="#FFFFFF"><div align="left">
                    <%Response.Write( rs("valorAluguel") &  vbcrlf )%>
                  </div></td>
                </tr>
                <tr>
                  <td bgcolor="#F4F4F4"><div align="left">
                    <%Response.Write "Multa:"%>
                  </div></td>
                  <td bgcolor="#F4F4F4"><div align="left">
                    <%Response.Write( rs("multa") &  vbcrlf )%>
                  </div></td>
                </tr>
                <tr>
                  <td bgcolor="#FFFFFF"><div align="left">
                    <%Response.Write "Desconto:"%>
                  </div></td>
                  <td bgcolor="#FFFFFF"><div align="left">
                    <%Response.Write( rs("desconto") &  vbcrlf )%>
                  </div></td>
                </tr>
                <tr>
                  <td bgcolor="#F4F4F4"><div align="left">
                    <%Response.Write "Pagamento:"%>
                  </div></td>
                  <td bgcolor="#F4F4F4"><div align="left">
                    <%Response.Write( rs("pagamento") &  vbcrlf )%>
                  </div></td>
                </tr>
                <tr>
                  <td bgcolor="#FFFFFF">              <%Response.Write "IPTU"%>              </td>
                  <td bgcolor="#FFFFFF">              <%Response.Write( rs("IPTU") &  vbcrlf )%>              </td>
                </tr>
                <tr>
                  <td bgcolor="#F4F4F4">              <%Response.Write "Outros- acr&eacute;scimo"%>              </td>
                  <td bgcolor="#F4F4F4">              <%Response.Write( rs("outrosAcrescimo") &  vbcrlf )%>              </td>
                </tr>
                <tr>
                  <td bgcolor="#F4F4F4">              <%Response.Write "Outros- desconto"%>              </td>
                  <td bgcolor="#F4F4F4">              <%Response.Write( rs("outrosDecrescimo") &  vbcrlf )%>              </td>
                </tr>
                <tr>
                  <td bgcolor="#F4F4F4">              <%Response.Write "Taxa Administrativa"%>              </td>
                  <td bgcolor="#F4F4F4">              <%Response.Write( rs("taxAdm") &  vbcrlf )%>              </td>
                </tr>
                <tr>
                  <td bgcolor="#FFFFFF">              <%Response.Write "CPMF"%>              </td>
                  <td bgcolor="#FFFFFF">              <%Response.Write( rs("cpmf") &  vbcrlf )%>              </td>
                </tr>
                
                
                
            </table></td>
          </tr>
        </table>
                  <br>
    <%
    	End if
    	%>
    <span class="style32">   sadasdasda    </span>
    <div align="center">         <br>
          <form name="form1" method="post" action="relatorio_locador.asp">
            <p>
              <input name="Nome" type="hidden" id="Nome" value="<%response.write(login)%>">
              <input name="Senha" type="hidden" id="Senha" value="<%response.write(senha)%>">
              <input type="submit" name="Submit" value="Voltar">
                    <br>
            </p>
            <p>           </p>
          </form>
        </div>
      <p align="center" class="style31 style31">asdadasdasdada</p>
    	</body>
    	</html>
    
    
    

    Obrigada

  3. Fiz um código que tem por função selecionar todos os registros que foram inseridos no banco de dados ente a Data1 e Data2. Fiz o código e acho que seria assim mesmo, mas ele não faz o que deveria, e sim seleciona registros aleatóriamente e sem nenhuma lógica... apenas algumas vezes funciona...

    dia1  = request.form("dia1")
    mes1  = request.form("mes1")
    ano1  = request.form("ano1")
    
    dia2	= request.form("dia2")
    mes2	= request.form("mes2") 
    ano2	= request.form("ano2")
    
    data1 = CStr(dia1 & "/" & mes1 & "/" & ano1)
    
    data2 = CStr(dia2 & "/" & mes2 & "/" & ano2)
    
    SQL= "SELECT * from caixa Where dataAtual between '"&data1&"' and '"&data2&"'"
    RS.Open SQL,conn,3
    

    não seria assim??? dry.gif

  4. Agradeço a todos pelas respostas.

    Andréia fiz mais ou menos isso que você me explicou agora estou com um pequeno problema, eu precisava fazer uma consulta em SQL assim:

    strsql4 = "select "&Frete&" From Sedex where "&Frete&"="&peso&""
    

    Isso existe ? rsrs Porque preciso procurar o nome do Estado que ele selecionou no Select, e esses nomes são os nomes da minhas minhas colunos no banco de dados...

    deu pre entender?

    blink.gif

  5. Olá, queria saber se tem como eu fazer o seguinte, fiz um Select com alguns valores, quando eu selecionar um valor, quero que seja executada uma pesquisa em um banco de dados...

    Seria o evento OnChange no select? Mas como eu faria para chamar a função em asp nesse evento??

    dúvida muito básica, como eu pego um valor de um input usando asp? eu sempre fiz isso usando js, mas agora precisava ser em asp...

    Obrigada...

  6. Olá galera, estou tendo que escolher um tema para apresentar para um das matérias da faculdade, chamada Segurança de Sistemas....

    Pensei em implementar algo que simulasse um arp spoofing ... mas devido ao meu trabalho não estou tendo tempo para implementar nada muito complexo...

    Então gostaria q alguém me indicasse algum programa para que eu posso fazer meu trabalho sobre ele, ou mesmo quem sabe comparar 2 deles...

    Procurei informaçõe sobre o Dsniffer, seria uma escolha boa , ou é muito simples?

    Obrigada tongue.gif

    \o/´s

  7. Sim ele era numério... mas resolvi altera-lo para Texto em uma das minhas tentativas de solucionar esse problema....

    Enviei e-mail para meu provedor de hospedagem para saber o que está ocorrendo, pois isso não tem explicação ...

    valeu pelas dicas biggrin.gif

  8. Desculpe a insistência... eu acredito que deve se um erro bobo, mas que não devo estar enxergando... sad.gif

    minha tabela:

    Código | mesAtual | dataAtual |codigoImovel | endereco | e etc...

    tem muitos campos..

    Tirando o Código q é autonumeração o outros todos texto.

    Página q envia os dados:

       <input name="codigo" type="text" id="codigo">
       <input name="mes" type="text" id="mes">
    
    Código onde faço a busca:
    Set  rsdbCon = Server.CreateObject("ADODB.RECORDSET")
    	rsdbCon.ActiveConnection = conexao
    	cod = request.form("codigo")
    	mes = request.form("mes")
    	response.write(cod)
    	response.write(mes)
    	if isnull(cod) OR isempty(cod) then
      cod = request.QueryString("codigo")
    	end if
    
    	strsql = "select * from Imovel where codigoImovel ='"&cod&"' and mesAtual='"&mes&"' "
    
    	rsdbcon.open strsql
    
    	if not rsdbcon.bof then
    ....
    ....
    ....
    

  9. Gente o pior de tudo foi o seguinte...

    eu alterei o campo do select mesAtual para outros campos da minha tabela como , diaAtual, Desconto, Valor e etc....

    o pior de tudo é que todos dão o mesmo erro !!!

    apenas consigo fazer o select com o CodigoImovel !!

    O q pode ser isso??

    wacko.gif

×
×
  • Criar Novo...