<%=Subject%>
[ Follow Ups ] [ Post Follow Up ] [ Back to BB ] [ Log Out ] [ FAQ ]
Posted by <%=BBName%> on <%=BBDate%> at <%=BBTime%>
<%Set rsPosts = Server.CreateObject("ADODB.Recordset")
sql = "SELECT BulletinBoard.PostID AS OriginalID, BulletinBoard.BBName AS OriginalBBName, BulletinBoard.BBEmail AS OriginalBBEmail, BulletinBoard.Subject AS OriginalSubject, BulletinBoard.BBDate AS OriginalBBDate, BulletinBoard.BBTime AS OriginalBBtime FROM BulletinBoard WHERE PostID = "&ResponseTo&""
rsPosts.open sql, conn, 3, 3
If rsPosts.eof = false then%>
In Reply To: "><%=Server.HTMLEncode(rsPosts.Fields("OriginalSubject").Value)%> Posted by "><%=Server.HTMLEncode(rsPosts.Fields("OriginalBBName").Value)%> on <%=Server.HTMLEncode(rsPosts.Fields("OriginalBBDate").Value)%> at <%=Server.HTMLEncode(rsPosts.Fields("OriginalBBTime").Value)%>
<%else%>
<%end if%>
<%rsPosts.close
set rsPosts = nothing
%>
<%=Replace(Message, vbCrLf, "
")%>
<%If BBHomepageURL <> "0" then%><%If BBHomepageName <> "0" then%><%=BBHomepageName%><%end if%><%end if%>
<%If ImageURL <> "0" then%>
 <%end if%>
<%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, BBTime DESC"
rsPosts2.open sql, conn, 3, 3
If rsPosts2.eof = false then
%>
Follow Ups:
<%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, BBTime 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, BBTime 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, BBTime 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, BBTime 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, BBTime 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, BBTime 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, BBTime 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, BBTime 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, BBTime 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, BBTime 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, BBTime 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
%>
Post Follow Up
Use of this bulletin
board means you have read and agree to our rules.
[ Follow Ups ] [ Post Follow Up ] [ Back to BB ][ Log Out ] [ FAQ ]
|