<%@ LANGUAGE=VBScript %> <%Response.Buffer=TRUE '' The OLEDB switchover -- JKAG 2/23/2006 %> <% Dim DBConn, rs, temprs, CurrThreadLevel, SQLText, the_latest, 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 ''Set DBConn=Server.CreateObject("ADODB.Connection") ''DBConn.Open "Forum_i2k_dsn" ''Set rs=Server.CreateObject("ADODB.Recordset") ''' Added NOT IN list of retired topics. -- JKAG 2/2/2005 ''' SQLText = "SELECT Forum, sum (NumRe) as NumReplies FROM Messages GROUP BY Forum " '' old way (exclude; new way is include) SQLText = "SELECT Forum, count (*) as NumReplies, max(TimeStamp) as the_latest FROM Messages WHERE Forum not in ('School_Choice','Katrina','Al_Gore','Bill_Clinton','Howard_Dean','John_Kerry','David_Pryor','David_Funderburk','Solomon_Ortiz','Joe_Scarborough','Pat_Roberts','Governors','House','Infrastructure','Michael_Peroutka','Cabinet','Marilyn_Musgrave','Newt_Gingrich','Gray_Davis','Carol_Moseley-Braun','Dick_Gephardt','Donald_Trump','Pat_Buchanan','Ross_Perot', 'Michael_Badnarik', 'Wesley_Clark', 'Joseph_Lieberman', 'John_Edwards', 'Dennis_Kucinich', 'Fair_Elections','Democratic_Convention','David_Cobb', 'Bart_Gordon', 'Immigration_Boycott' ) GROUP BY Forum " SQLText = "SELECT Forum, count (*) as NumReplies, max(TimeStamp) as the_latest FROM Messages WHERE Forum in ('Abortion', 'Barack_Obama', 'China', 'Civil_Rights', 'Crime', 'Death_Penalty', 'Drugs', 'Education', 'Energy_ _Oil', 'Environment', 'Families_ _Children', 'Foreign_Policy', 'Fred_Thompson', 'Free_Trage', 'Gay_Rights', 'George_W__Bush', 'Government_Reform', 'Gun_Control', 'Health_Care', 'Hillary_Clinton', 'Homeland_Security', 'Immigration', 'Israel', 'Jobs', 'Not_One_Damn_Dime', 'Religion', 'Ron_Paul', 'Rudy_Giuliani', 'Senate', 'Social_Security', 'Tax_Reform', 'War_ _Peace', 'Welfare_ _Poverty') GROUP BY Forum " rs.Open SQLText, DBConn %> The Forum - SpeakOut.com
   Speakout Logo  

The Speakout Forum

Welcome to the Speakout Forum.
Click on a topic below, to read people's comments on that topic.
Then click on 'Post' to post your own replies. Speak out!
Blog of the week: Immigration protests
  • Like blog format? Most recent postings.
  • Like discussion groups? PrezVeepSenator, on Yahoo.
  • By author:
    		•
  • By keyword:
    		•
    <% While Not(rs.EOF) ''Fill Discussion Topic Table %> <% rs.MoveNext Wend %>
    FORUM TOPIC NUMBER OF ENTRIES  MOST RECENT
       "> <%=rs("Forum")%>            <%=rs("NumReplies")%>     <%=rs("the_latest")%>  
     
    <% ''Close Database Connections rs.Close DBConn.Close Set rs = Nothing Set DBConn = Nothing %>

      Speakout Home Page

    On The Issues Home Page

    Copyright 1999-2006 by Jesse Gordon and the Speakout Foundation

    		Speakout Logo   Speakout <%=Request.QueryString("Forum")%> Forum

    E-mail: Forum@Speakout.com

    Privacy Policy