<%@ LANGUAGE=VBScript %> <%Response.Buffer=TRUE '' The OLEDB switchover -- JKAG 2/23/2006 'Function NumReplies(inDBConn, inMID) ' Dim frs 'Function Recordset ' Dim retValue ' retValue=0 ' Set frs=Server.CreateObject("ADODB.Recordset") ' frs.Open "SELECT MID FROM Messages WHERE Re = " & inMID, inDBConn ' While Not(frs.EOF) ' retValue=retValue+NumReplies(inDBConn,frs("MID"))+1 ' frs.MoveNext ' Wend ' frs.Close ' Set frs = Nothing ' NumReplies = retValue ''End Function %> <% Dim DBConn, rs, temprs, CurrThreadLevel, SQLText, DBPath ''Intialize the Database connection -- the OLEDB switchover -- JKAG 2/23/2006 Set DBConn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") DBPath = Server.MapPath("../Database/forum_i2k.mdb") DBConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & DBPath '' WAS before the OLEDB switchover -- JKAG 2/23/2006 ''Intialize the Database connection '' Set DBConn=Server.CreateObject("ADODB.Connection") ''If Request.QueryString("Forum") = "" Then '' Response.Redirect("forum.asp") ''End If ''DBConn.Open "Forum_i2k_dsn" ''Set rs=Server.CreateObject("ADODB.Recordset") '' Added date cutoff via MID > 54000 '' (JKAG 2/23/2006 made it 54000 which is Jan 1 2006 -- was 37000 that's Jul 2005 -- JKAG 1/26/2006 -- 17000 is Jan 2005 -- JKAG 9/6/05) '' 10000 (that's about Sept 2004) -- JKAG 2/2/2005 SQLText = "SELECT Handle, TimeStamp, MID, Subject, NumRe FROM Messages WHERE Forum = '" & Request.QueryString("Forum") & "' and " & _ "ThreadLevel = 1 and (MID > 54000 or Handle = 'Moderator') ORDER BY TimeStamp " rs.Open SQLText, DBConn %>     Click here for <%=Request.QueryString("Forum")%> Blog (most recent postings)
    This is the 2006 Forum. Click here for older <%=Request.QueryString("Forum")%> postings (threads prior to Dec. 2005) <% While Not(rs.EOF) ''Fill Discussion Topic Table dim the_subject the_subject = rs("Subject") %> <% rs.MoveNext Wend %>

DISCUSSION TOPIC	AUTHOR	DATE	REPLIES
&MID=<%=rs("MID")%>&mMID=<%=rs("MID")%>"> <% if len (the_subject) < 35 then %> <%=the_subject%>        <% elseif len (the_subject) < 45 then %> <%=the_subject%>        <% else the_subject = left (the_subject, 40) + "..." %> <%=the_subject%>        <% end if %>	<%=rs("Handle")%>	<%=NiceTimeStamp(rs("TimeStamp"))%>	<%=rs("NumRe")%>
&"> POST NEW TOPIC

<% 'Close Database Connections rs.Close DBConn.Close Set rs = Nothing Set DBConn = Nothing %>

---