Ir para conteúdo

POWERED BY:

Arquivado

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

mauriciotura

com data

Por , em ASP Clássico

Recommended Posts

mauriciotura    0

mauriciotura
Postado 

<%
set rsPrec = Server.CreateObject("ADODB.Recordset")
rsPrec.ActiveConnection = MM_preceitos_STRING
rsPrec.Source = "SELECT *  FROM 2005  WHERE diaprec=mid(Date(),1,2)"
rsPrec.CursorType = 0
rsPrec.CursorLocation = 2
rsPrec.LockType = 3
rsPrec.Open()
rsPrec_numRows = 0
%>
<html>
<head>
<title>Palavras de Luz - Preceitos Diários 2007</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../estilo.css" type="text/css">
<link rel="stylesheet" href="../estilos.css" type="text/css">
<style type="text/css">
<!--
.style1 {
	font-size: 18px;
	font-weight: bold;
}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" marginwidth="0">
Hoje é <B><% = Date %></b> Seja bem vindo
<div align="center"> 
  <p> 
	<script src="/projeto_sniweb/banner/js.asp"></script>
  </p>
  <p><font face="Verdana, Arial, Helvetica, sans-serif"><small><small><font size="2"><font size="1"><strong>Palavras 
	de Luz </strong>:  
	 <a href="http://www.submarino.com.br/HomeCache/BooksSearchResult.aspx?ProdTypeId=1&WhichForm=frmSearchHomePage&Query=%20%20%09%20Palavras%20de%20Luz%202007" target="_blank">Compre</a> 
	| <a href="http://www.sni.org.br" target="_blank">ir para o site da SEICHO-NO-IE</a> | </font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="/index2007/ind_preceito.asp" target="_blank">Indique 
	a um</a><font face="Verdana, Arial, Helvetica, sans-serif"><small><small><font size="2"><a href="/ind_prececeito.asp"> 
	am</a></font></small></small></font><a href="/ind_prececeito.asp">igo!</a></font></font></small></small></font>  </p>
  <table border="0" cellspacing="0" cellpadding="0">
	<tr valign="bottom"> 
	  <td width="493" height="30" background="espiral3.jpg"> 
		<div align="left"></div>
	  <div align="center"></div></td>
	</tr>
	<tr> 
	  <td background="fundo3.jpg"> 
		<div align="center"> </div>
		<table width="431" border="0" cellspacing="0" cellpadding="3" align="center">
		  <tr> 
			<td width="425" valign="baseline">			  <div align="center">
			  <table width="50%"  border="0" align="center" cellpadding="0" cellspacing="0">
				<tr>
				  <td><div align="center"><b><b><b><b class="imgdia"><%=(rsPrec.Fields.Item("imgdia").Value)%></b></b></b></b></div></td>
				</tr>
			  </table>
			  </div></td>
		  </tr>
		  <tr valign="middle"> 
			<td valign="baseline">			  <div align="center">				
			  <table width="91%" height="22"  border="0" align="center" cellpadding="0" cellspacing="0">
				<tr>
				  <td><div align="center"><b><b><b><span class="style1"><font face="Times New Roman, Times, serif"><font color="#3D7AB8"><font color="#000000"><font color="#3366CC"><font color="#CC3300"><font color="#000000"><%= UCase((rsPrec.Fields.Item("titulo").Value)) %></font></font></font></font></font></font></span></b></b></b></div></td>
				</tr>
			  </table>
			  <span class="style1"><font face="Times New Roman, Times, serif"><font color="#3D7AB8"><font color="#000000"><font color="#3366CC"><font color="#CC3300"></font></font></font></font></font></span></div></td>
		  </tr>
		  <tr> 
			<td> 
			  <div align="center"><font face="Times New Roman, Times, serif" size="2"><font color="#3D7AB8" size="3"><font color="#000000" size="4"><font size="3" face="Arial, Helvetica, sans-serif"><font size="2"><%=(rsPrec.Fields.Item("msg").Value)%></font></font></font></font></font><font face="Times New Roman, Times, serif" size="1"><br>
				</font></div>
			</td>
		  </tr>
		  <tr> 
			<td> 
			<div align="center"><font face="Times New Roman, Times, serif" size="5"><font size="6"><font size="2"><font color="#3D7AB8" size="3"><font color="#000000" size="4"><font face="Times New Roman, Times, serif" size="1"><font face="Arial, Helvetica, sans-serif"><%=(rsPrec.Fields.Item("fonte").Value)%></font></font><font size="1" face="Arial, Helvetica, sans-serif"><br>
			<%=(rsPrec.Fields.Item("img").Value)%></font></font></font></font></font></font></div>			  <div align="center"></div>			  <div align="center"><font face="Times New Roman, Times, serif" size="5"><font size="6"><font size="1" face="Arial, Helvetica, sans-serif"><%=(rsPrec.Fields.Item("localfoto").Value)%></font></font></font></div></td>
		  </tr>
		  <tr> 
			<td><div align="center"></div>			</td>
		  </tr>
		  <tr>
			<td><div align="center"><img src="../img/sni.jpg" width="95" height="13"></div></td>
		  </tr>
	  </table>	  </td>
	</tr>
	<tr>
	  <td height="26" valign="bottom" background="fundo-rodape3.jpg"> </td>
	</tr>
  </table>
</div>
<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif"><small><small><font size="2"><font size="1">Fonte:
			<a href="http://www.submarino.com.br/HomeCache/BooksSearchResult.aspx?ProdTypeId=1&WhichForm=frmSearchHomePage&Query=%20%20%09%20Palavras%20de%20Luz%202007" target="_blank">Palavras
  de Luz - Preceitos Diários</a></font></font></small></small></font></p>
<p align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">| 
  <a href="java script:self;close()">FECHAR</a> |</font></p>
<p align="center"><font color="#666666" face="Verdana, Arial, Helvetica, sans-serif" size="1">Copyright © SEICHO-NO-IE DO BRASIL <font face="Arial"><br>
  Fale 
	conosco</font><font face="Arial" size="1" color="#000000">:</font></font> 
<font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="mailto:sni@sni.org.br">sni@sni.org.b<font face="Arial">r</font></a></font></p>
</body>
</html>
<%
rsPrec.Close()
%>
Dúvida:

 

Este é um sisema que de acordo com o dia ele mostra uma mensagem do db

 

Mas na parte onde deveria aparecer a o dia, ele me aparece o mes

 

antes nao acontecia isso.

 

Poderiam me ajudar?

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

possivelmente o lcid da página está errado.

 

no sql server eu faria assim

SELECT * FROM tabela WHERE day(campo_data)=day(getdate())

Compartilhar este post

Link para o post
Compartilhar em outros sites

dataset    0

dataset
Postado

Uma outra maneira:

strSQL = "SELECT * FROM tabela WHERE day(campo_data)=" & Day(now)

Se tiver como string, você tem que colocar as aspas simples:

strSQL = "SELECT * FROM tabela WHERE day(campo_data)='" & Day(now) & "'"

Att;

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