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