<% Set rsPosts = Server.CreateObject("ADODB.Recordset") sql = "SELECT messageboard.PostID AS Post, messageboard.BBName, messageboard.BBEmail, messageboard.Subject, messageboard.ResponseTo, messageboard.BBDate, messageboard.BBTime FROM messageboard WHERE ResponseTo = 0 AND BBDate >(Date()-90) ORDER BY BBDate desc" rsPosts.open sql, conn, 3, 3 If rsPosts.eof = false then On Error Resume Next rsPosts.MoveFirst do while Not rsPosts.eof %> Forum Moderator :   Welcome to the Education Guarantee Scheme. This discussion forum is not limited to discussing the Education Guarantee Scheme initiative or its Fundaschool component. It is seen as a way of engaging ourselves with issues related to primary schooling. We welcome suggestions on how we could meet the challenges of universal enrolment, retention and imparting education of quality. We would like to throw open this forum for a dialogue. Messages    Post new topic <% Post = rsPosts("Post") BBDate = rsPosts("BBDate") %> <%If BBDate = Date() then%> <%ElseIf BBDate = (Date() -1 ) then%> <%ElseIf BBDate = (Date() -2 ) then%> <%Else%> <%end if%> &sub=<%=Server.HTMLEncode(rsPosts.Fields("Subject").Value)%>&ath=<%=Server.HTMLEncode(rsPosts.Fields("BBName").Value)%>"><%=Server.HTMLEncode(rsPosts.Fields("Subject").Value)%> - <%=Server.HTMLEncode(rsPosts.Fields("BBName").Value)%>     <%=Server.HTMLEncode(rsPosts.Fields("BBDate").Value)%>     <%=Server.HTMLEncode(rsPosts.Fields("BBTime").Value)%> <% '------------------------start of 2nd recordset ------------'%> <%Set rsPosts2 = Server.CreateObject("ADODB.Recordset") sql = "SELECT messageboard.PostID AS Post2, messageboard.BBName AS BBName2, messageboard.BBEmail AS BBEmail2, messageboard.Subject AS Subject2, messageboard.Message AS Message2, messageboard.ResponseTo AS ResponseTo2,messageboard.BBDate AS BBDate2, messageboard.BBTime AS BBTime2 FROM messageboard WHERE ResponseTo = "&Post&" ORDER BY BBDate DESC" rsPosts2.open sql, conn, 3, 3 If rsPosts2.eof = false then %> <%On Error Resume Next rsPosts2.MoveFirst do while Not rsPosts2.eof Post2 = rsPosts2("Post2") BBDate2 = rsPosts2("BBDate2") %> <%If BBDate2 = Date() then%> <%ElseIf BBDate2 = (Date() -1 ) then%> <%ElseIf BBDate2 = (Date() -2 ) then%> <%Else%> <%end if%> &ath=<%=Server.HTMLEncode(rsPosts2.Fields("BBName2").Value)%>"> <%=Server.HTMLEncode(rsPosts2.Fields("Subject2").Value)%> - <%=Server.HTMLEncode(rsPosts2.Fields("BBName2").Value)%>     <%=Server.HTMLEncode(rsPosts2.Fields("BBDate2").Value)%>     <%=Server.HTMLEncode(rsPosts2.Fields("BBTime2").Value)%> <%Set rsPosts3 = Server.CreateObject("ADODB.Recordset") sql = "SELECT messageboard.PostID AS Post3, messageboard.BBName AS BBName3, messageboard.BBEmail AS BBEmail3, messageboard.Subject AS Subject3, messageboard.Message AS Message3, messageboard.ResponseTo AS ResponseTo3,messageboard.BBDate AS BBDate3, messageboard.BBTime AS BBTime3 FROM messageboard WHERE ResponseTo = "&Post2&" ORDER BY BBDate DESC" rsPosts3.open sql, conn, 3, 3 If rsPosts3.eof = false then %> <%On Error Resume Next rsPosts3.MoveFirst do while Not rsPosts3.eof Post3 = rsPosts3("Post3") BBDate3 = rsPosts3("BBDate3")%> <%If BBDate3 = Date() then%> <%ElseIf BBDate3 = (Date() -1 ) then%> <%ElseIf BBDate3 = (Date() -2 ) then%> <%Else%> <%end if%> &ath=<%=Server.HTMLEncode(rsPosts3.Fields("BBName3").Value)%>"><%=Server.HTMLEncode(rsPosts3.Fields("Subject3").Value)%> -<%=Server.HTMLEncode(rsPosts3.Fields("BBName3").Value)%>     <%=Server.HTMLEncode(rsPosts3.Fields("BBDate3").Value)%>     <%=Server.HTMLEncode(rsPosts3.Fields("BBTime3").Value)%> <%Set rsPosts4 = Server.CreateObject("ADODB.Recordset") sql = "SELECT messageboard.PostID AS Post4, messageboard.BBName AS BBName4, messageboard.BBEmail AS BBEmail4, messageboard.Subject AS Subject4, messageboard.Message AS Message4, messageboard.ResponseTo AS ResponseTo4,messageboard.BBDate AS BBDate4, messageboard.BBTime AS BBTime4 FROM messageboard WHERE ResponseTo = "&Post3&" ORDER BY BBDate DESC" rsPosts4.open sql, conn, 3, 3 If rsPosts4.eof = false then %> <%On Error Resume Next rsPosts4.MoveFirst do while Not rsPosts4.eof Post4 = rsPosts4("Post4") BBDate4 = rsPosts4("BBDate4")%> <%If BBDate4 = Date() then%> <%ElseIf BBDate4 = (Date() -1 ) then%> <%ElseIf BBDate4 = (Date() -2 ) then%> <%Else%> <%end if%> &ath=<%=Server.HTMLEncode(rsPosts4.Fields("BBName4").Value)%>"><%=Server.HTMLEncode(rsPosts4.Fields("Subject4").Value)%> - <%=Server.HTMLEncode(rsPosts4.Fields("BBName4").Value)%>     <%=Server.HTMLEncode(rsPosts4.Fields("BBDate4").Value)%>     <%=Server.HTMLEncode(rsPosts4.Fields("BBTime4").Value)%> <%Set rsPosts5 = Server.CreateObject("ADODB.Recordset") sql = "SELECT messageboard.PostID AS Post5, messageboard.BBName AS BBName5, messageboard.BBEmail AS BBEmail5, messageboard.Subject AS Subject5, messageboard.Message AS Message5, messageboard.ResponseTo AS ResponseTo5,messageboard.BBDate AS BBDate5, messageboard.BBTime AS BBTime5 FROM messageboard WHERE ResponseTo = "&Post4&" ORDER BY BBDate DESC" rsPosts5.open sql, conn, 3, 3 If rsPosts5.eof = false then %> <%On Error Resume Next rsPosts5.MoveFirst do while Not rsPosts5.eof Post5 = rsPosts5("Post5") BBDate5 = rsPosts5("BBDate5")%> <%If BBDate5 = Date() then%> <%ElseIf BBDate5 = (Date() -1 ) then%> <%ElseIf BBDate5 = (Date() -2 ) then%> <%Else%> <%end if%> &ath=<%=Server.HTMLEncode(rsPosts5.Fields("BBName5").Value)%>"><%=Server.HTMLEncode(rsPosts5.Fields("Subject5").Value)%> - <%=Server.HTMLEncode(rsPosts5.Fields("BBName5").Value)%>     <%=Server.HTMLEncode(rsPosts5.Fields("BBDate5").Value)%>     <%=Server.HTMLEncode(rsPosts5.Fields("BBTime5").Value)%> <%Set rsPosts6 = Server.CreateObject("ADODB.Recordset") sql = "SELECT messageboard.PostID AS Post6, messageboard.BBName AS BBName6, messageboard.BBEmail AS BBEmail6, messageboard.Subject AS Subject6, messageboard.Message AS Message6, messageboard.ResponseTo AS ResponseTo6,messageboard.BBDate AS BBDate6, messageboard.BBTime AS BBTime6 FROM messageboard WHERE ResponseTo = "&Post5&" ORDER BY BBDate DESC" rsPosts6.open sql, conn, 3, 3 If rsPosts6.eof = false then %> <%On Error Resume Next rsPosts6.MoveFirst do while Not rsPosts6.eof Post6 = rsPosts6("Post6") BBDate6 = rsPosts6("BBDate6")%> <%If BBDate6 = Date() then%> <%ElseIf BBDate6 = (Date() -1 ) then%> <%ElseIf BBDate6 = (Date() -2 ) then%> <%Else%> <%end if%> &ath=<%=Server.HTMLEncode(rsPosts6.Fields("BBName6").Value)%>"><%=Server.HTMLEncode(rsPosts6.Fields("Subject6").Value)%> - <%=Server.HTMLEncode(rsPosts6.Fields("BBName6").Value)%>     <%=Server.HTMLEncode(rsPosts6.Fields("BBDate6").Value)%>     <%=Server.HTMLEncode(rsPosts6.Fields("BBTime6").Value)%> <%Set rsPosts7 = Server.CreateObject("ADODB.Recordset") sql = "SELECT messageboard.PostID AS Post7, messageboard.BBName AS BBName7, messageboard.BBEmail AS BBEmail7, messageboard.Subject AS Subject7, messageboard.Message AS Message7, messageboard.ResponseTo AS ResponseTo7,messageboard.BBDate AS BBDate7, messageboard.BBTime AS BBTime7 FROM messageboard WHERE ResponseTo = "&Post6&" ORDER BY BBDate DESC" rsPosts7.open sql, conn, 3, 3 If rsPosts7.eof = false then %> <%On Error Resume Next rsPosts7.MoveFirst do while Not rsPosts7.eof Post7 = rsPosts7("Post7") BBDate7 = rsPosts7("BBDate7")%> <%If BBDate7 = Date() then%> <%ElseIf BBDate7 = (Date() -1 ) then%> <%ElseIf BBDate7 = (Date() -2 ) then%> <%Else%> <%end if%> &ath=<%=Server.HTMLEncode(rsPosts7.Fields("BBName7").Value)%>"><%=Server.HTMLEncode(rsPosts7.Fields("Subject7").Value)%> - <%=Server.HTMLEncode(rsPosts7.Fields("BBName7").Value)%>     <%=Server.HTMLEncode(rsPosts7.Fields("BBDate7").Value)%>     <%=Server.HTMLEncode(rsPosts7.Fields("BBTime7").Value)%> <%Set rsPosts8 = Server.CreateObject("ADODB.Recordset") sql = "SELECT messageboard.PostID AS Post8, messageboard.BBName AS BBName8, messageboard.BBEmail AS BBEmail8, messageboard.Subject AS Subject8, messageboard.Message AS Message8, messageboard.ResponseTo AS ResponseTo8,messageboard.BBDate AS BBDate8, messageboard.BBTime AS BBTime8 FROM messageboard WHERE ResponseTo = "&Post7&" ORDER BY BBDate DESC" rsPosts8.open sql, conn, 3, 3 If rsPosts8.eof = false then %> <%On Error Resume Next rsPosts8.MoveFirst do while Not rsPosts8.eof Post8 = rsPosts8("Post8") BBDate8 = rsPosts8("BBDate8")%> <%If BBDate8 = Date() then%> <%ElseIf BBDate8 = (Date() -1 ) then%> <%ElseIf BBDate8 = (Date() -2 ) then%> <%Else%> <%end if%> &ath=<%=Server.HTMLEncode(rsPosts8.Fields("BBName8").Value)%>"><%=Server.HTMLEncode(rsPosts8.Fields("Subject8").Value)%> - <%=Server.HTMLEncode(rsPosts8.Fields("BBName8").Value)%>     <%=Server.HTMLEncode(rsPosts8.Fields("BBDate8").Value)%>     <%=Server.HTMLEncode(rsPosts8.Fields("BBTime8").Value)%> <%Set rsPosts9 = Server.CreateObject("ADODB.Recordset") sql = "SELECT messageboard.PostID AS Post9, messageboard.BBName AS BBName9, messageboard.BBEmail AS BBEmail9, messageboard.Subject AS Subject9, messageboard.Message AS Message9, messageboard.ResponseTo AS ResponseTo9, messageboard.BBDate AS BBDate9, messageboard.BBTime AS BBTime9 FROM messageboard WHERE ResponseTo = "&Post8&" ORDER BY BBDate DESC" rsPosts9.open sql, conn, 3, 3 If rsPosts9.eof = false then %> <%On Error Resume Next rsPosts9.MoveFirst do while Not rsPosts9.eof Post9 = rsPosts9("Post9") BBDate9 = rsPosts9("BBDate9")%> <%If BBDate9 = Date() then%> <%ElseIf BBDate9 = (Date() -1 ) then%> <%ElseIf BBDate9 = (Date() -2 ) then%> <%Else%> <%end if%> &ath=<%=Server.HTMLEncode(rsPosts9.Fields("BBName9").Value)%>"><%=Server.HTMLEncode(rsPosts9.Fields("Subject9").Value)%> - <%=Server.HTMLEncode(rsPosts9.Fields("BBName9").Value)%>     <%=Server.HTMLEncode(rsPosts9.Fields("BBDate9").Value)%>     <%=Server.HTMLEncode(rsPosts9.Fields("BBTime9").Value)%> <%Set rsPosts10 = Server.CreateObject("ADODB.Recordset") sql = "SELECT messageboard.PostID AS Post10, messageboard.BBName AS BBName10, messageboard.BBEmail AS BBEmail10, messageboard.Subject AS Subject10, messageboard.Message AS Message10, messageboard.ResponseTo AS ResponseTo10,messageboard.BBDate AS BBDate10, messageboard.BBTime AS BBTime10 FROM messageboard WHERE ResponseTo = "&Post9&" ORDER BY BBDate DESC" rsPosts10.open sql, conn, 3, 3 If rsPosts10.eof = false then %> <%On Error Resume Next rsPosts10.MoveFirst do while Not rsPosts10.eof Post10 = rsPosts10("Post10") BBDate10 = rsPosts10("BBDate10")%> <%If BBDate10 = Date() then%> <%ElseIf BBDate10 = (Date() -1 ) then%> <%ElseIf BBDate10 = (Date() -2 ) then%> <%Else%> <%end if%> &ath=<%=Server.HTMLEncode(rsPosts10.Fields("BBName10").Value)%>"><%=Server.HTMLEncode(rsPosts10.Fields("Subject10").Value)%> - <%=Server.HTMLEncode(rsPosts10.Fields("BBName10").Value)%>     <%=Server.HTMLEncode(rsPosts10.Fields("BBDate10").Value)%>     <%=Server.HTMLEncode(rsPosts10.Fields("BBTime10").Value)%> <%Set rsPosts11 = Server.CreateObject("ADODB.Recordset") sql = "SELECT messageboard.PostID AS Post11, messageboard.BBName AS BBName11, messageboard.BBEmail AS BBEmail11, messageboard.Subject AS Subject11, messageboard.Message AS Message11, messageboard.ResponseTo AS ResponseTo11, messageboard.BBDate AS BBDate11, messageboard.BBTime AS BBTime11 FROM messageboard WHERE ResponseTo = "&Post10&" ORDER BY BBDate DESC" rsPosts11.open sql, conn, 3, 3 If rsPosts11.eof = false then %> <%On Error Resume Next rsPosts11.MoveFirst do while Not rsPosts11.eof Post11 = rsPosts11("Post11") BBDate11 = rsPosts11("BBDate11")%> <%If BBDate11 = Date() then%> <%ElseIf BBDate11 = (Date() -1 ) then%> <%ElseIf BBDate11 = (Date() -2 ) then%> <%Else%> <%end if%> &ath=<%=Server.HTMLEncode(rsPosts11.Fields("BBName11").Value)%>"><%=Server.HTMLEncode(rsPosts11.Fields("Subject11").Value)%> - <%=Server.HTMLEncode(rsPosts11.Fields("BBName11").Value)%>     <%=Server.HTMLEncode(rsPosts11.Fields("BBDate11").Value)%>     <%=Server.HTMLEncode(rsPosts11.Fields("BBTime11").Value)%> <%Set rsPosts12 = Server.CreateObject("ADODB.Recordset") sql = "SELECT messageboard.PostID AS Post12, messageboard.BBName AS BBName12, messageboard.BBEmail AS BBEmail12, messageboard.Subject AS Subject12, messageboard.Message AS Message12, messageboard.ResponseTo AS ResponseTo12,messageboard.BBDate AS BBDate12, messageboard.BBTime AS BBTime12 FROM messageboard WHERE ResponseTo = "&Post11&" ORDER BY BBDate DESC" rsPosts12.open sql, conn, 3, 3 If rsPosts12.eof = false then %> <%On Error Resume Next rsPosts12.MoveFirst do while Not rsPosts12.eof Post12 = rsPosts12("Post12") BBDate12 = rsPosts12("BBDate12")%> <%If BBDate12 = Date() then%> <%ElseIf BBDate12 = (Date() -1 ) then%> <%ElseIf BBDate12 = (Date() -2 ) then%> <%Else%> <%end if%> &ath=<%=Server.HTMLEncode(rsPosts12.Fields("BBName12").Value)%>&choice=<%=choice%>"><%=Server.HTMLEncode(rsPosts12.Fields("Subject12").Value)%> -<%=Server.HTMLEncode(rsPosts12.Fields("BBName12").Value)%>     <%=Server.HTMLEncode(rsPosts12.Fields("BBDate12").Value)%>     <%=Server.HTMLEncode(rsPosts12.Fields("BBTime12").Value)%> <%Set rsPosts13 = Server.CreateObject("ADODB.Recordset") sql = "SELECT messageboard.PostID AS Post13, messageboard.BBName AS BBName13, messageboard.BBEmail AS BBEmail13, messageboard.Subject AS Subject13, messageboard.Message AS Message13, messageboard.ResponseTo AS ResponseTo13,messageboard.BBDate AS BBDate13, messageboard.BBTime AS BBTime13 FROM messageboard WHERE ResponseTo = "&Post12&" ORDER BY BBDate DESC" rsPosts13.open sql, conn, 3, 3 If rsPosts13.eof = false then %> <%On Error Resume Next rsPosts13.MoveFirst do while Not rsPosts13.eof Post13 = rsPosts13("Post13") BBDate13 = rsPosts13("BBDate13")%> <%If BBDate13 = Date() then%> <%ElseIf BBDate13 = (Date() -1 ) then%> <%ElseIf BBDate13 = (Date() -2 ) then%> <%Else%> <%end if%> &ath=<%=Server.HTMLEncode(rsPosts13.Fields("BBName13").Value)%>&choice=<%=choice%>"><%=Server.HTMLEncode(rsPosts13.Fields("Subject13").Value)%> - <%=Server.HTMLEncode(rsPosts13.Fields("BBName13").Value)%>     <%=Server.HTMLEncode(rsPosts13.Fields("BBDate13").Value)%>     <%=Server.HTMLEncode(rsPosts13.Fields("BBTime13").Value)%> <% rsPosts13.MoveNext loop%> <%else%> <%end if%> <%rsPosts13.close set rsPosts13 = nothing %> <% rsPosts12.MoveNext loop%> <%else%> <%end if%> <%rsPosts12.close set rsPosts12 = nothing %> <% rsPosts11.MoveNext loop%> <%else%> <%end if%> <%rsPosts11.close set rsPosts11 = nothing %> <% rsPosts10.MoveNext loop%> <%else%> <%end if%> <%rsPosts10.close set rsPosts10 = nothing %> <% rsPosts9.MoveNext loop%> <%else%> <%end if%> <%rsPosts9.close set rsPosts9 = nothing %> <% rsPosts8.MoveNext loop%> <%else%> <%end if%> <%rsPosts8.close set rsPosts8 = nothing %> <% rsPosts7.MoveNext loop%> <%else%> <%end if%> <%rsPosts7.close set rsPosts7 = nothing %> <% rsPosts6.MoveNext loop%> <%else%> <%end if%> <%rsPosts6.close set rsPosts6 = nothing %> <% rsPosts5.MoveNext loop%> <%else%> <%end if%> <%rsPosts5.close set rsPosts5 = nothing %> <% rsPosts4.MoveNext loop%> <%else%> <%end if%> <%rsPosts4.close set rsPosts4 = nothing %> <% rsPosts3.MoveNext loop%> <%else%> <%end if%> <%rsPosts3.close set rsPosts3 = nothing %> <% rsPosts2.MoveNext loop%> <%else%> <%end if%> <%rsPosts2.close set rsPosts2 = nothing %> <% rsPosts.MoveNext loop%> <%else%> <%end if%> <%rsPosts.close set rsPosts = nothing %>

Post new topic

Discussion Forum | Contact Us | Fundaschool | Rules and Policies


Moderator Zone