Si queremos mostrar al usuario algo atracción de parte de nuestro sitio, podríamos empezar con algo muy sencillo y útil a la vez : mostrar el Santoral u Onomástico del día (por ahora, lo dejaremos en Santoral para que suene mas bonito). Resulta muy bueno y atractivo. Y mejor aún, si con una simple tabla en Access y un par de líneas de código podemos lograrlo. Quizás la única parte "fea" del asunto sea conseguirse los 365 santorales del año y colocarlos en la base de datos.
Para empezar antes que todo, debemos aclarar que campos entran en la base de datos.
Id :
Campo autonúmerico que señala el día
1 al 12 :
Los Meses del año.
Para seleccionar los datos, utilizamos variables de fecha (DATE) y le utilizamos sus propiedades Month (Mes) y Day (Día). También podríamos haber hecho todo esto con la función NOW en vez de DATE.
<%
'Aquí declaramos las variables que nos servirán para poder determinar que registros mostrar
dia = Day(Date()) 'Selecciona todos los registros del campo ID que coincidan con el día
mes = Month(Date()) 'Selecciona los campos que coincidan con el mes
Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
oConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./basededatos.mdb")
'Esta es la parte importante. Seleccionamos todos los campos de la tabla "Tabla" que si los campos ID sea igual al día y el campo variable (que va a ser un mes del año) sea igual al mes del año. Por ejemplo, si hoy fuese el 4 de Mayo, en el campo ID seleccionaría el registro 4 que corresponde al día y en los campos de meses seleccionaría el campo 5
SQL = "SELECT * FROM tabla WHERE id = "&dia&" AND "&mes&" = "&mes&""
Set RS = oConn.Execute(SQL)
'Ejecutando la peticion de la sentencia SQL...
Response.Write "El Santoral del día de hoy es : <b>"&RS(""&mes&"")&"</b>"
'Mostrando
%>
Bueno, cualquier duda, solo deben ingresar sus preguntas al foro de Sevelv. |
|
