<% 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

Edit Topic

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 idforum_topic = " & request("idforum_topic") 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") add_comment = rs("add_comment") topic_summary = rs("topic_summary") topic_brief = rs("topic_brief") binary_display = rs("binary_display") If binary_display = "1" Then check_box="checked" End if %> Topic Title Graphic:
Comment Title Graphic:
Add Comment Graphic: <% rs.movenext loop %>

Add a new topic

Topic Title Graphic:
Comment Title Graphic:
Add Comment Graphic:
Topic Summary
Topic Brief
Display? >