Thought for the Day

<% DIM sDay DIM sMonth Param = Request.QueryString("Param") Data = Request.QueryString("Data") sDay = Day(Date) sMonth = Month(Date) %> <%If IsObject(Session("SaiBhajan_conn")) Then Set conn = Session("SaiBhajan_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "SaiBhajan","","" Set Session("SaiBhajan_conn") = conn End If%> <% sql = "SELECT * FROM thought WHERE (((thought.Month)= " & sMonth & ") AND ((thought.Day) = "& sDay & "))" If cstr(Param) <> "" And cstr(Data) <> "" Then sql = sql & " And [" & cstr(Param) & "] = " & cstr(Data) End If Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %>

Thought for the Day
<%=Date%>

<% On Error Resume Next %>

<%if (rs.Fields("Line1").Value <> "") then%> <%=Server.HTMLEncode(rs.Fields("Line1").Value)%> <%End If%> <%if (rs.Fields("Line2").Value <> "") then%> <%=Server.HTMLEncode(rs.Fields("Line2").Value)%> <%End If%> <%if (rs.Fields("Line3").Value <> "") then%> <%=Server.HTMLEncode(rs.Fields("Line3").Value)%>

<%End If%><%if (rs.Fields("Line4").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line4").Value)%>
<%End If%><%if (rs.Fields("Line5").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line5").Value)%>
<%End If%><%if (rs.Fields("Line6").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line6").Value)%>
<%End If%><%if (rs.Fields("Line7").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line7").Value)%>
<%End If%><%if (rs.Fields("Line8").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line8").Value)%>
<%End If%><%if (rs.Fields("Line9").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line9").Value)%>
<%End If%><%if (rs.Fields("Line10").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line10").Value)%>
<%End If%><%if (rs.Fields("Line11").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line11").Value)%>
<%End If%><%if (rs.Fields("Line12").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line12").Value)%>
<%End If%><%if (rs.Fields("Line13").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line13").Value)%>
<%End If%><%if (rs.Fields("Line14").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line14").Value)%>
<%End If%><%if (rs.Fields("Line15").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line15").Value)%>
<%End If%><%if (rs.Fields("Line16").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line16").Value)%>
<%End If%><%if (rs.Fields("Line17").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line17").Value)%>
<%End If%><%if (rs.Fields("Line18").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line18").Value)%>
<%End If%><%if (rs.Fields("Line19").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line19").Value)%>
<%End If%>

Return to: Sai home page