Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

maurohpg

O que está errado??

Por , em ASP Clássico

Recommended Posts

maurohpg    0

maurohpg
Postado

Galera to tentando jogar uns conteudos do BD na tela por data essa é a programação ki eu to usando mais deve estar com algum pau pq mesmo a data estando lá ela aparece 2 vezes certinho impresso na tela e em outra aparece sem programação como se não estivesse com a data no BD o que estaria errado?<% While Not objRS_curso.EOFData_I = Day(objRS_curso("data_inicio"))Data_F = Day(objRS_curso("data_final"))Hora_I = Left(objRS_curso("hora_inicio"),5)Hora_T = Left(objRS_curso("hora_termino"),5)If Month(objRS_curso("data_inicio")) < Month(Date()) ThenvData = "Sem Programação"ElseIf Data_I < Day(Date()) ThenvData = "Sem Programação"ElseIf Data_I = Data_F ThenvData = "Dia " & Data_IElsevData = "Dias " & Data_I & " e " & Data_FEnd IfEnd If %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jothaz    1

jothaz
Postado

Altere para:While Not objRS_curso.EOF Data_I = Day(objRS_curso("data_inicio")) Data_F = Day(objRS_curso("data_final")) Hora_I = Left(objRS_curso("hora_inicio"),5) Hora_T = Left(objRS_curso("hora_termino"),5) If Month(objRS_curso("data_inicio")) < Month(Date()) or Data_I < Day(Date()) Then vData = "Sem Programação" Else If Data_I = Data_F Then vData = "Dia " & Data_I Else vData = "Dias " & Data_I & " e " & Data_F End If End If Response.Write vdata & "<br>"Fui...

Compartilhar este post

Link para o post
Compartilhar em outros sites

maurohpg    0

maurohpg
Postado

Brother tentei fazer o que você postou aki e não deu certo, fikou do mesmo jeito que estava!

Engraçado ki 2 registros aparecem normal e um terceiro entre os dois não aparece, no caso aparece sem programação.

 

Esse é a página que estou usando para fazer isso.

 

<% @LANGUAGE = VBScript %><% Response.Expires = -1000 %><%Dim Conexao,objRS_cursoSet Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open Application("StringConexaoODBC")	Set objRS_curso = Conexao.Execute("SELECT * FROM cursos ORDER BY data_inicio")%><html><head><title>Edacom</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><style type="text/css"><!--	A {       text-decoration: none; }	A:hover { color:#666666;}--></style><body background="../images/fundopagina.gif" leftmargin="9" topmargin="15" alink=#000000 vlink=#000000 link=#000000><!--#include file="../page_topo.asp"--><table width="760" border="0" cellspacing="0" cellpadding="0" style="border-right: 1 solid #000000">  <tr>     <td width="160" valign="top" background="../images/pinosmenu.gif" align="right">       <!--#include file="../page_menu.asp"--></td>    <td width="600" valign="top" bgcolor="#FFFFFF" align="center">       <table width="560" border="0" cellpadding="4" cellspacing="1" background="../images/chaves2.gif">        <tr align="right">           <td background="../images/blocofundo2.gif" bgcolor="#FFCC33" align="right"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Cursos e Treinamentos</font></td>        </tr>        <tr>           <td height="149" bgcolor="#FFFFFF">             <p><font size="2"> </font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nosso objetivo é favorecer a você, educador, ferramentas necessárias para nos tornarmos               parceiros nesse processo de de implantação da Educação Tecnológica no contexto Educacional.</font></p>            <p><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Acompanhe a seguir, o cronograma dos cursos de capacitação que oferecemos a fim de construir com você, a melhor               maneira de utilizar o material de forma integrada ao currículo da sua escola.</font></p>            <p><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Mesmo que você não tenha o material, não perca esta oportunidade, pois você é a pessoa mais importante               nesse processo.</font></p>          </td>        </tr>        <tr valign="top">           <td height="1" bgcolor="#FFCC33" align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>SETEMBRO/OUTUBRO</strong></font></td>        </tr>        <% While Not objRS_curso.EOF     Data_I = Day(objRS_curso("data_inicio"))     Data_F = Day(objRS_curso("data_final"))     Hora_I = Left(objRS_curso("hora_inicio"),5)     Hora_T = Left(objRS_curso("hora_termino"),5)     If Month(objRS_curso("data_inicio")) < Month(Date()) Then       vData = "Sem Programação"     ElseIf Data_I < Day(Date())  Then       vData = "Sem Programação"     Else       If Data_I = Data_F Then      vData = "Dia " & Data_I       Else         vData = "Dias " & Data_I & " e " & Data_F       End If     End If %>        <tr valign="top">           <td height="1" bgcolor="#FFFFFF" valign="top" align="center">             <table width="100%" border="0" cellpadding="4" cellspacing="1" background="../fig/chaves2.gif">              <tr>                 <td height="24" colspan="4" bgcolor="#FFCC33"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=objRS_curso("curso")%></font></b></td>              </tr>              <tr bgcolor="#FFFFFF">                 <td colspan="4"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Descrição do curso:</strong> <%=objRS_curso("descricao")%><br>                  <br>                  <strong>Publico Alvo: </strong><%=objRS_curso("publico")%><br>                  <br>                  <strong>Pré-requisito:</strong> não é necessário possuir conhecimento do Material Tecnológico LEGO.<br>                  <br>                  <strong>O que será desenvolvido no curso: </strong><%=objRS_curso("como_sera")%><br>                  <br>                  <strong>Professores(as): </strong><%=objRS_curso("professores")%></font></td>              </tr>              <tr>                 <td width="25%" height="17" align="center" bgcolor="#FFD862"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=vData%></font></td>                <td width="25%" height="17" align="center" bgcolor="#FFD862"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=Hora_I%> às <%=Hora_T%> hrs</font></td>                <td width="25%" height="17" align="center" bgcolor="#FFD862"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=objRS_curso("duracao")%> horas</font></td>                <td width="25%" height="17" align="center" bgcolor="#FFD862"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">                   <%Response.Write "R$ " & FormatNumber(objRS_curso("preco"),2)%></font></td>              </tr>            </table>          </td>        </tr>        <% objRS_curso.MoveNext     Wend %>        <tr valign="top">           <td height="1" bgcolor="#FFFFFF" valign="top"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Como             fazer a sua Inscrição:</font></b> <p><font size="1" face="Verdana, Arial, Helvetica, sans-serif">A               inscrição deverá ser feita da seguinte maneira:</font></p>            <p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>1.</strong>               Fazer depósito bancário no valor do curso desejado, no banco ITAÚ               S/A -<br>              Agência 1668 - conta corrente nº 03717-7, em nome de EDAcom Tecnologia               em Sistemas de Informática Ltda</font></p>            <p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>2.               </strong>Enviar cópia do comprovante via fax, com seus dados [nome,               escola e CGC (para emissão de recibo e telefone para contato)],               para o telefone (11) 4226-4798</font></p>            <p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>3.</strong>               Confirmar até no máximo com 10 dias de antecedência do curso escolhido,               deixando a reserva com o nome e a instituição ou empresa</font></p>            <p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>4.</strong>               A realização do curso está sujeita a inscrição mínima de participantes.<br>              Maiores informações pelo telefone: (11) 4221-4355 ou 4221-7773.<br>              <strong>EDAcom Tecnologia</strong><br>              Rua General Osório, 100 - Bairro Santa Paula<br>              São Caetano do Sul - SP - CEP. 09541-32</font></p></td>        </tr>        <tr bgcolor="#FFCC33">           <td height="24" valign="bottom">             <div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="javascript: history.back();">voltar</a></font></div>          </td>        </tr>      </table>    </td>  </tr></table><!--#include file="../page_rodape.asp"--></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

nostrinkes    0

nostrinkes
Postado

Oi,,olha eu apanhei muito com campo data então eu deixo meus campos data como texto no access. e recupero tambem como texto, pode não ser o seu caso mais é minha dica.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito