..:::Madrid Easy

<%@LANGUAGE="VBSCRIPT"%> <% Set oRS = Server.CreateObject("ADODB.Recordset") Set oRS2 = Server.CreateObject("ADODB.Recordset") Set oRS3 = Server.CreateObject("ADODB.Recordset") Set oRS4 = Server.CreateObject("ADODB.Recordset") Set oConn = Server.CreateObject("ADODB.connection") oConn.ConnectionString = "DSN=madrideasy.com.mm_strmme_string" oConn.Open oRS.ActiveConnection = oConn oRS2.ActiveConnection = oConn oRS3.ActiveConnection = oConn oRS4.ActiveConnection = oConn aux = request("id_idioma") + 0 aux2 = session("id_idioma") + 0 If aux = 0 Then If aux2 = 0 Then session("id_idioma") = 1 Else session("id_idioma") = request("id_idioma") End If sSelect1 = "SELECT * FROM IDIOMAS WHERE id_idioma="&session("id_idioma")&"" sSelect2 = "SELECT id_idioma, gif FROM IDIOMAS" sSelect3 = "SELECT * FROM AGENDA WHERE id=1" oRS.Source = sSelect1 oRS.Open() oRS2.Source = sSelect2 oRS2.Open() oRS3.Source = sSelect3 oRS3.Open() varaux1=oRS("textomenu4") varaux2=oRS("selecciona") %> ..:::Madrid Easy

<% While Not oRS2.EOF If oRS2("gif") <> "images/" Then %> ">

" border=0 width="21" height="20"> <% End If oRS2.MoveNext Wend %>

<%=oRS("buscatupiso")%>

<%=varaux1%>

')" onMouseOut="boxOff(this)" height="20">

<%=oRS("menu4")%>

')" onMouseOut="boxOff(this)" bgcolor="#cfd797" height="20">

" elseif CurrentDay > LastDay(MyMonth, MyYear) then response.write "" else response.write "" else diad="dia"& CurrentDay diatext=oRS3(""&diad&"") If diatext <> "" Then response.write " bgcolor=DDDDDD align='center'>" Else response.write " align='center'>" End If end if response.write "" if cInt(MyYear) = Year(Date) and cInt(MyMonth) = Month(Date) and CurrentDay = Day(Date) then Response.Write "

" else If diatext <> "" Then Response.Write "

" Else Response.Write "

" End If end if Response.Write CurrentDay & "

" CurrentDay = CurrentDay + 1 End If Next response.write "

" Next response.write "

<% titulo1=oRS3("titulo1") titulo2=oRS3("titulo2") titulo3=oRS3("titulo3") titulo4=oRS3("titulo4") titulo5=oRS3("titulo5") %> <% If titulo1<>"" Then %> <%=titulo1%>
<%=oRS3("texto1")%>
<% End If %> <% If titulo2<>"" Then %> <%=titulo2%>
<%=oRS3("texto2")%>
<% End If %> <% If titulo3<>"" Then %> <%=titulo3%>
<%=oRS3("texto3")%>
<% End If %> <% If titulo4<>"" Then %> <%=titulo4%>
<%=oRS3("texto4")%>
<% End If %> <% If titulo5<>"" Then %> <%=titulo5%>
<%=oRS3("texto5")%>
<% End If %>

<% 'pagina que recibirá la fecha seleccionada por el usuario Const URLDestino = "verdia.asp" Dim MyMonth 'Month of calendar Dim MyYear 'Year of calendar Dim FirstDay 'First day of the month. 1 = Monday Dim CurrentDay 'Used to print dates in calendar Dim Col 'Calendar column Dim Row 'Calendar row MyMonth = Request.Querystring("Month") MyYear = Request.Querystring("Year") If IsEmpty(MyMonth) then MyMonth = Month(Date) If IsEmpty(MyYear) then MyYear = Year(Date) Call ShowHeader (MyMonth, MyYear) FirstDay = WeekDay(DateSerial(MyYear, MyMonth, 0)) -1 'Response.Write "FirstDay=" & FirstDay CurrentDay = 1 'Let's build the calendar For Row = 0 to 5 For Col = 0 to 6 If Row = 0 and Col < FirstDay then response.write "

" '------ Sub and functions Sub ShowHeader(MyMonth,MyYear) %> <% End Sub Function MonthName(MyMonth) Select Case MyMonth Case 1 MonthName = "Enero" Case 2 MonthName = "Febrero" Case 3 MonthName = "Marzo" Case 4 MonthName = "Abril" Case 5 MonthName = "Mayo" Case 6 MonthName = "Junio" Case 7 MonthName = "Julio" Case 8 MonthName = "Agosto" Case 9 MonthName = "Septiembre" Case 10 MonthName = "Octubre" Case 11 MonthName = "Noviembre" Case 12 MonthName = "Diciembre" Case Else MonthName = "ERROR!" End Select End Function Function LastDay(MyMonth, MyYear) ' Returns the last day of the month. Takes into account leap years ' Usage: LastDay(Month, Year) ' Example: LastDay(12,2000) or LastDay(12) or Lastday Select Case MyMonth Case 1, 3, 5, 7, 8, 10, 12 LastDay = 31 Case 4, 6, 9, 11 LastDay = 30 Case 2 If IsDate(MyYear & "-" & MyMonth & "-" & "29") Then LastDay = 29 Else LastDay = 28 Case Else LastDay = 0 End Select End Function %>

Haz click en el calendario para ver los eventos más destacados de cada día.

<%=oRS3("extra1")%>

<%=MonthName(MyMonth)%> del <%=MyYear%>
L	M	X	J	V	S	D
<% If session("id_idioma") <> 1 Then %> <%=oRS("notaagenda")%> <% End If %>

<% oRS.Close() oRS2.Close() oRS3.Close() oConn.Close() %>