<%@ Language=VBScript %> <% '======================================================================= ' ' "ASP Forums" - a web-based discussion forum implementation. ' Copyright (C) 1999 Geoff Taylor ' ' This program is free software; you can redistribute it and/or ' modify it under the terms of the GNU General Public License ' as published by the Free Software Foundation; either version 2 ' of the License, or (at your option) any later version. ' ' This program is distributed in the hope that it will be useful, ' but WITHOUT ANY WARRANTY; without even the implied warranty of ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ' GNU General Public License for more details. ' ' You should have received a copy of the GNU General Public License ' along with this program; if not, write to the Free Software ' Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ' '======================================================================= '======================================================================= ' Version 0.17 - September 30th 1999. '======================================================================= Option Explicit Response.Buffer = True %> <% 'Date page processing code - added by PPO on 11/28/99 dim txtDateLinks, rvDate, intCurrPage rvDate = CreateDateLinks(txtDateLinks, intCurrPage) %> <% Const iWidth = 201 'PPO - Dynamically derived the DSN - rewritten from ASPForums JScript example Dim currentPath, pathElements, filename, lengthOfFilename, guestbookDirectory, DBPath, DSN currentPath = Cstr(Request.ServerVariables("PATH_TRANSLATED")) pathElements = Split(currentPath, "\") filename = Cstr(pathElements(UBound(pathElements))) lengthOfFilename = Len(filename) guestbookDirectory = Left(currentPath,(Len(currentPath) - lengthOfFilename)) DBPath = guestbookDirectory + "polls.mdb" 'changed 3.51 to 4.0 to try to get working as per Aspforums general /showmessage.asp?messageID=4146 DSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + DBPath 'End DSN code. Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = DSN objConn.Open Dim objRS Set objRS = Server.CreateObject("ADODB.Recordset") Dim strVoted strVoted = Request.Cookies("Voted") Dim strSQL %> Richard Hell Forum Board ! <%If intCurrPage = 1 Then 'only show this on first page %>
Oh monkey. Welcome to the R. Hell Site
Forum Board


PLEASE NOTE:
We've had to temporarily disable message-posting due to flood of a vandal's posts.

To keep the Forum easy to use, please write a subject line for your post that's descriptive of its message, and a message that's related to site content. Personal attacks on other Forum participants will not be tolerated. We reserve the right to remove the intolerably obnoxious. You can say anything you want about Hell, though -- short of systematic harrassment wasting Board space --, but please don't ask him direct questions here. Send private messages to Richard and/or webmaster Roy Suggs via e-mail or you can ask Richard questions (and see his answers) at his personal page.
Note: The Forum is now moderated by Hannah Reich-Levbarg, an international nomad from Texas who most recently found her way from Bath, England to Sante Fe, NM, where she's stopping for the time being. Thanks for helping with the Forum, Hannah.

P.S. Please Note: There is currently a ban on political discussion here. Any overtly political posts will be removed. You can see an explanation in this post from the webmaster.
[If you want to put formatting (bold/italic type, images, links, etc.) in your message here's how.]
<% End If %>
<%SEARCH_FORM_DISC%> Note: This search engine will show results for the exact character sequence you type, case-insensitive, including spaces. In other words if you type Bob, it will show any instances of Bob, such as in: Bob Quine, Bobbit, and discombobulate; but if you type Bob Quine it will MISS Robert Quine. [Tip: if you want "Bob" but not "discombobulate" type a space on either side: " Bob " (without quote marks).] Or, to search entire site as well as Forum...
Merch Links Site Index Lyrics 1st Page Bio Core Updates

 

PAGE: <%Response.Write(txtDateLinks)%>

<%CURRENT_ROOT_POSTS_THREADED_DISC%>



PAGE: <%Response.Write(txtDateLinks)%>


Merch Links Site Index Lyrics 1st Page Bio Core Updates

top   






















Contents of site © 1998-2001 by Richard Meyers & Roy Suggs. All rights reserved including right of reproduction in any form.