<%
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
If request("display") = "on" Then
display = 1
else
display = 0
End if
strSql	= "update forum_topics set " &_
		"title_graphic_root = '" & request("title_graphic_root")& "', " &_
		"title_graphic_main = '" & request("title_graphic_main") & "', " &_
		"add_comment = '" & request("add_comment") & "', " &_
		"topic_brief = '" & Replace(request("topic_brief"), "'", "''") & "', " &_
		"topic_summary = '" & Replace(request("topic_summary"), "'", "''") & "', " &_
		"binary_display = '" & display & "' " &_
		"where idforum_topic = " & request("idforum_topic")
response.write(strSql)
set rs = my_Conn.Execute (strSql)
'response.end
response.redirect("edit_topic.asp?idforum_topic=" &request("idforum_topic"))
%>