<% pageSql="select * from es_mainMenuDtls where ID=9" rs.open pageSql,conn,1,1 title=rs("pageTitle") keyword=rs("metaKeyword") desc=rs("metaDescription") pageDtl=rs("description") pid=9 rs.close %> <%=title%> <%=title%>

<% dim printmonth1(13) printmonth1(1) = "Enero" printmonth1(2)="Febrero" printmonth1(3)="Marzo" printmonth1(4)="Abril" printmonth1(5)="Mayo" printmonth1(6)="Junio" printmonth1(7)="Julio" printmonth1(8)="Agosto" printmonth1(9)="Septiembre" printmonth1(10)="Octubre" printmonth1(11)="Noviembre" printmonth1(12)="Diciembre" %> <% ' ---------- Page Functions ---------- Function FormatStr(String) ' Replaces a double carrige return with a paragraph break ' a single carrige return with a break rule and CHR(13) with nothing String = Replace(String, CHR(13), "") String = Replace(String, CHR(10) & CHR(10), "

") String = Replace(String, CHR(10), "
") FormatStr = String End Function ' ---------- Page Variables ---------- Dim strPrevDay ' The previous day's date Dim strNextDay ' The next day's date Dim objRS ' Database Variables ' ---------- Variable Definitions ---------- strPrevDay = Server.URLEncode(DateAdd("d", -1, Request.QueryString("currentDate"))) strNextDay = Server.URLEncode(DateAdd("d", 1, Request.QueryString("currentDate"))) %>
« Previo   <%= printmonth1((month(Request("currentDate")))) & " " & day(Request("currentDate")) & ", " & year(Request("currentDate")) %>   Siguiente »
<% Set objRS = Server.CreateObject("ADODB.Recordset") strSQL= "SELECT * FROM centro_calDtls WHERE bactive <>0 and (EventDate <= '" & Request.QueryString("currentDate") & "' and EventEndDate >= '" & Request.QueryString("currentDate") & "')" objRS.Open strSQL, conn If (objRS.EOF) Then Response.write ("

No courses have been sheduled for this date.

") Else response.Write("") do until objRs.EOF response.Write("") if not (isnull(objRs("EventDate")) or objRs("EventDate")="") then if objRs("EventDate") = objRs("EventEndDate") then else response.Write("") end if End if if not (isnull(objRs("courseDesc")) or objRs("courseDesc")="")then response.Write("") end if %> <% objRs.Movenext loop response.Write("
"&objRs("name")&"
Sheduled Date : From   "&objRs("EventDate")&"   To   "&objRs("EventEndDate")& "
"&objRs("courseDesc")&"
") End If objRS.Close Set objRS = Nothing %>

<<< Back