Bulletin Board

<%Set rsPosts = Server.CreateObject("ADODB.Recordset") sql = "SELECT BulletinBoard.PostID AS Post, BulletinBoard.BBName, BulletinBoard.BBEmail, BulletinBoard.Subject, BulletinBoard.ResponseTo, BulletinBoard.BBDate, BulletinBoard.BBTime FROM BulletinBoard WHERE ResponseTo = 0 AND BBDate BETWEEN (Date()-270) AND (Date() -360) 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 Post = rsPosts("Post") BBDate = rsPosts("BBDate") %> <%If BBDate = Date() then%>

<%ElseIf BBDate = (Date() -1 ) then%>

<%ElseIf BBDate = (Date() -2 ) then%>

<%Else%>

<%end if%> "><%=Server.HTMLEncode(rsPosts.Fields("Subject").Value)%> - "><%=Server.HTMLEncode(rsPosts.Fields("BBName").Value)%> <%=Server.HTMLEncode(rsPosts.Fields("BBDate").Value)%> <%=Server.HTMLEncode(rsPosts.Fields("BBTime").Value)%>
<%Set rsPosts2 = Server.CreateObject("ADODB.Recordset") sql = "SELECT BulletinBoard.PostID AS Post2, BulletinBoard.BBName AS BBName2, BulletinBoard.BBEmail AS BBEmail2, BulletinBoard.Subject AS Subject2, BulletinBoard.Message AS Message2, BulletinBoard.ResponseTo AS ResponseTo2, BulletinBoard.BBHomepageName AS BBHomepageName2, BulletinBoard.BBHomepageURL AS BBHomepageURL2, BulletinBoard.ImageURL AS ImageURL2, BulletinBoard.BBDate AS BBDate2, BulletinBoard.BBTime AS BBTime2 FROM BulletinBoard 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 = rsPosts3("BBDate2") %> <%If BBDate2 = Date() then%>

<%ElseIf BBDate2 = (Date() -1 ) then%>

<%ElseIf BBDate2 = (Date() -2 ) then%>

<%Else%>

<%end if%> <%=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 BulletinBoard.PostID AS Post3, BulletinBoard.BBName AS BBName3, BulletinBoard.BBEmail AS BBEmail3, BulletinBoard.Subject AS Subject3, BulletinBoard.Message AS Message3, BulletinBoard.ResponseTo AS ResponseTo3, BulletinBoard.BBHomepageName AS BBHomepageName3, BulletinBoard.BBHomepageURL AS BBHomepageURL3, BulletinBoard.ImageURL AS ImageURL3, BulletinBoard.BBDate AS BBDate3, BulletinBoard.BBTime AS BBTime3 FROM BulletinBoard 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%> <%=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 BulletinBoard.PostID AS Post4, BulletinBoard.BBName AS BBName4, BulletinBoard.BBEmail AS BBEmail4, BulletinBoard.Subject AS Subject4, BulletinBoard.Message AS Message4, BulletinBoard.ResponseTo AS ResponseTo4, BulletinBoard.BBHomepageName AS BBHomepageName4, BulletinBoard.BBHomepageURL AS BBHomepageURL4, BulletinBoard.ImageURL AS ImageURL4, BulletinBoard.BBDate AS BBDate4, BulletinBoard.BBTime AS BBTime4 FROM BulletinBoard 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%> <%=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 BulletinBoard.PostID AS Post5, BulletinBoard.BBName AS BBName5, BulletinBoard.BBEmail AS BBEmail5, BulletinBoard.Subject AS Subject5, BulletinBoard.Message AS Message5, BulletinBoard.ResponseTo AS ResponseTo5, BulletinBoard.BBHomepageName AS BBHomepageName5, BulletinBoard.BBHomepageURL AS BBHomepageURL5, BulletinBoard.ImageURL AS ImageURL5, BulletinBoard.BBDate AS BBDate5, BulletinBoard.BBTime AS BBTime5 FROM BulletinBoard 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%> <%=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 BulletinBoard.PostID AS Post6, BulletinBoard.BBName AS BBName6, BulletinBoard.BBEmail AS BBEmail6, BulletinBoard.Subject AS Subject6, BulletinBoard.Message AS Message6, BulletinBoard.ResponseTo AS ResponseTo6, BulletinBoard.BBHomepageName AS BBHomepageName6, BulletinBoard.BBHomepageURL AS BBHomepageURL6, BulletinBoard.ImageURL AS ImageURL6, BulletinBoard.BBDate AS BBDate6, BulletinBoard.BBTime AS BBTime6 FROM BulletinBoard 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%> <%=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 BulletinBoard.PostID AS Post7, BulletinBoard.BBName AS BBName7, BulletinBoard.BBEmail AS BBEmail7, BulletinBoard.Subject AS Subject7, BulletinBoard.Message AS Message7, BulletinBoard.ResponseTo AS ResponseTo7, BulletinBoard.BBHomepageName AS BBHomepageName7, BulletinBoard.BBHomepageURL AS BBHomepageURL7, BulletinBoard.ImageURL AS ImageURL7, BulletinBoard.BBDate AS BBDate7, BulletinBoard.BBTime AS BBTime7 FROM BulletinBoard 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%> <%=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 BulletinBoard.PostID AS Post8, BulletinBoard.BBName AS BBName8, BulletinBoard.BBEmail AS BBEmail8, BulletinBoard.Subject AS Subject8, BulletinBoard.Message AS Message8, BulletinBoard.ResponseTo AS ResponseTo8, BulletinBoard.BBHomepageName AS BBHomepageName8, BulletinBoard.BBHomepageURL AS BBHomepageURL8, BulletinBoard.ImageURL AS ImageURL8, BulletinBoard.BBDate AS BBDate8, BulletinBoard.BBTime AS BBTime8 FROM BulletinBoard 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%> <%=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 BulletinBoard.PostID AS Post9, BulletinBoard.BBName AS BBName9, BulletinBoard.BBEmail AS BBEmail9, BulletinBoard.Subject AS Subject9, BulletinBoard.Message AS Message9, BulletinBoard.ResponseTo AS ResponseTo9, BulletinBoard.BBHomepageName AS BBHomepageName9, BulletinBoard.BBHomepageURL AS BBHomepageURL9, BulletinBoard.ImageURL AS ImageURL9, BulletinBoard.BBDate AS BBDate9, BulletinBoard.BBTime AS BBTime9 FROM BulletinBoard 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%> <%=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 BulletinBoard.PostID AS Post10, BulletinBoard.BBName AS BBName10, BulletinBoard.BBEmail AS BBEmail10, BulletinBoard.Subject AS Subject10, BulletinBoard.Message AS Message10, BulletinBoard.ResponseTo AS ResponseTo10, BulletinBoard.BBHomepageName AS BBHomepageName10, BulletinBoard.BBHomepageURL AS BBHomepageURL10, BulletinBoard.ImageURL AS ImageURL10, BulletinBoard.BBDate AS BBDate10, BulletinBoard.BBTime AS BBTime10 FROM BulletinBoard 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%> <%=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 BulletinBoard.PostID AS Post11, BulletinBoard.BBName AS BBName11, BulletinBoard.BBEmail AS BBEmail11, BulletinBoard.Subject AS Subject11, BulletinBoard.Message AS Message11, BulletinBoard.ResponseTo AS ResponseTo11, BulletinBoard.BBHomepageName AS BBHomepageName11, BulletinBoard.BBHomepageURL AS BBHomepageURL11, BulletinBoard.ImageURL AS ImageURL11, BulletinBoard.BBDate AS BBDate11, BulletinBoard.BBTime AS BBTime11 FROM BulletinBoard 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%> <%=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 BulletinBoard.PostID AS Post12, BulletinBoard.BBName AS BBName12, BulletinBoard.BBEmail AS BBEmail12, BulletinBoard.Subject AS Subject12, BulletinBoard.Message AS Message12, BulletinBoard.ResponseTo AS ResponseTo12, BulletinBoard.BBHomepageName AS BBHomepageName12, BulletinBoard.BBHomepageURL AS BBHomepageURL12, BulletinBoard.ImageURL AS ImageURL12, BulletinBoard.BBDate AS BBDate12, BulletinBoard.BBTime AS BBTime12 FROM BulletinBoard 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%> <%=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 BulletinBoard.PostID AS Post13, BulletinBoard.BBName AS BBName13, BulletinBoard.BBEmail AS BBEmail13, BulletinBoard.Subject AS Subject13, BulletinBoard.Message AS Message13, BulletinBoard.ResponseTo AS ResponseTo13, BulletinBoard.BBHomepageName AS BBHomepageName13, BulletinBoard.BBHomepageURL AS BBHomepageURL13, BulletinBoard.ImageURL AS ImageURL13, BulletinBoard.BBDate AS BBDate13, BulletinBoard.BBTime AS BBTime13 FROM BulletinBoard 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%> <%=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 %>

[ Back to BB ][ More Archives ]

Use of this bulletin board means you have read and agree to our rules.