<% If session("login")<>"true" then If request("USERNAME")="kate" And request("PASSWORD")="fete" Then session("login")="true" Else response.redirect("login.asp?failedlogin=true") End If End if %> the perfect t-shirt

Forum Topic Management

Below is a list of current forum topics

<% strConnString = "driver={SQL Server};server=sql7.globalgold.co.uk;uid=betterthinking;pwd=master-point;database=betterthinking" set my_Conn = Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString strSql = "SELECT * from forum_topics where binary_display=1 order by datetime_date desc" set rs = my_Conn.Execute (strSql) %> <% Do Until rs.eof id_forum_topic = rs("idforum_topic") title_graphic_root = rs("title_graphic_root") title_graphic_main = rs("title_graphic_main") topic_summary = rs("topic_summary") topic_brief = rs("topic_brief") binary_display = rs("binary_display") %>

<%=topic_summary%>

<% rs.movenext loop %>

Add a new topic

Topics Title Graphic:
Topics Main Title:
Topic Summary
Topic Brief
Display?