This is the official CDF Electro-Bastard Archive of Wisdom 3000. With it, you can view all of the past rants, fajitas and other writings that El Presidente has been gracious enough to share with you. Enjoy and be grateful.
<% Set fp_conn = Server.CreateObject("ADODB.Connection") fp_conn.Open Application("rants_ConnectionString") SQLText = "SELECT * FROM RantLetter;" set rs_Letters = fp_conn.Execute(SQLText) RS_Letters.MoveFirst while not rs_Letters.EOF strLetters = strLetters & UCase(rs_Letters("Letter")) rs_Letters.MoveNext wend Response.Write("
") Response.Write(" ALL |") for i = 65 to 90 if instr(1,strLetters, chr(i)) then Response.Write(" " & chr(i) & " |") else Response.Write(" " & chr(i) & " |") end if next Response.Write("
") set rs_Letters = Nothing strRange = Request.QueryString("Range") if strRange = "" then strRange = "A" if strRange <> "" and strRange <> "ALL" then SQLText = "SELECT * FROM Rants WHERE Title LIKE '" & strRange & "%' ORDER BY Title;" else SQLText = "SELECT * FROM Rants ORDER BY Title;" End If set rs_Rants = fp_conn.Execute(SQLText) rs_Rants.MoveFirst While Not rs_Rants.EOF %>| Title |
<% Response.Write(" " & rs_Rants("Title") & "") %> |
||
| Date | <% Response.Write(" " & rs_Rants("Date") & " ") %> | Author | <% Select Case UCase(rs_Rants("Type")) Case "R" strAuthor = "El Presidente" Case Else strAuthor = "Pedro" End Select Response.Write(strAuthor) %> |
<% rs_Rants.MoveNext Wend %>
