Click here to Skip to main content
15,885,956 members
Articles / Programming Languages / ASP

The Code Project Discussion boards

,
Rate me:
Please Sign up or sign in to vote.
4.78/5 (39 votes)
25 Aug 2001CPOL 2.9M   15.2K   144  
The Discussion board ASP scripts as used in The Code Project. This is an open source project for the Code Project community.
<%' index.asp 
%>

		<style type="text/css"><!--
			.LIST:link    { text-decoration:none; }
			.LIST:visited { text-decoration:none; }
			.LIST:active  { text-decoration:none; }
			.LIST:hover   { text-decoration:underline; }
		--></style>

		<!--
		<% ' //////////////////////////////////////////////////////////////// %>
		<% ' // button for admin mode.                                        %>

			<p><font size="2" face="Arial"><a href="start.asp?ad=12345"><b>Enter Admin mode</b></a></font></p>

		-->
		<hr>
		<% ' //////////////////////////////////////////////////////////////// %>
		<% ' // the list of all available forums.                             %>

<p><%= FONT2 %>Current forums &gt;&nbsp;&nbsp;


		<%
		dim forum_rs
		set forum_rs = fh.getForumsRs

		' display all forums by iterating the recordset.
		while not forum_rs.Eof
		%>

			<b><a href="<%=fh.getUriListWithForum(forum_rs("ID"))%>" title="<%=forum_rs("Description")%>"><%=forum_rs("Name")%></a></b>&nbsp;&nbsp;&nbsp;

		<%
			forum_rs.MoveNext
		wend
		%>
</font></p>
	
		<% ' //////////////////////////////////////////////////////////////// %>
		<% ' // the article-list of the current forum.                        %>

		<% 
		' ---------------------------------------------------------
		' select the forum that is specified in the parameters
		' for that page.
		' the caller may have either specified a forum id or
		' the short-name of a forum.
		dim forum_id
		dim forum_name
		forum_id   = Request("forumid")
		forum_name = Request("forum")

		' translate forum name to forum id (if no id present).
		if forum_id="" and forum_name<>"" then
			forum_id = fh.getForumId( forum_name )
		end if

		' if no forum selected, select first as default.
		if forum_id="" then
			dim rs
			set rs = fh.getForumsRs()
			forum_id = rs("ID")
		end if
		%>


	<!--#include file="../files/header.inc"-->


		<% 
		' ---------------------------------------------------------
		' 'forum_id' must be dimmed and set correctly before
		' #including main.inc.
		'
		' main.inc #includes the list for the forum specified by
		' 'forum_id'.
		%>

		<!--#include file="../files/main.inc"-->

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


Written By
Founder CodeProject
Canada Canada
Chris Maunder is the co-founder of CodeProject and ContentLab.com, and has been a prominent figure in the software development community for nearly 30 years. Hailing from Australia, Chris has a background in Mathematics, Astrophysics, Environmental Engineering and Defence Research. His programming endeavours span everything from FORTRAN on Super Computers, C++/MFC on Windows, through to to high-load .NET web applications and Python AI applications on everything from macOS to a Raspberry Pi. Chris is a full-stack developer who is as comfortable with SQL as he is with CSS.

In the late 1990s, he and his business partner David Cunningham recognized the need for a platform that would facilitate knowledge-sharing among developers, leading to the establishment of CodeProject.com in 1999. Chris's expertise in programming and his passion for fostering a collaborative environment have played a pivotal role in the success of CodeProject.com. Over the years, the website has grown into a vibrant community where programmers worldwide can connect, exchange ideas, and find solutions to coding challenges. Chris is a prolific contributor to the developer community through his articles and tutorials, and his latest passion project, CodeProject.AI.

In addition to his work with CodeProject.com, Chris co-founded ContentLab and DeveloperMedia, two projects focussed on helping companies make their Software Projects a success. Chris's roles included Product Development, Content Creation, Client Satisfaction and Systems Automation.

Written By
Chief Technology Officer Zeta Software GmbH
Germany Germany
Uwe does programming since 1989 with experiences in Assembler, C++, MFC and lots of web- and database stuff and now uses ASP.NET and C# extensively, too. He has also teached programming to students at the local university.

➡️ Give me a tip 🙂

In his free time, he does climbing, running and mountain biking. In 2012 he became a father of a cute boy and in 2014 of an awesome girl.

Some cool, free software from us:

Windows 10 Ereignisanzeige  
German Developer Community  
Free Test Management Software - Intuitive, competitive, Test Plans.  
Homepage erstellen - Intuitive, very easy to use.  
Offline-Homepage-Baukasten

Comments and Discussions