<% 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 title_graphic_root = Replace(request("title_graphic_root"), "'", "''") title_graphic_main = Replace(request("title_graphic_main"), "'", "''") add_comment = Replace(request("add_comment"), "'", "''") topic_summary = Replace(request("topic_summary"), "'", "''") topic_brief = Replace(request("topic_brief"), "'", "''") If request("display") = "on" Then display = 1 else display = 0 End if strsql ="insert into forum_topics (title_graphic_root, title_graphic_main, add_comment, topic_summary, topic_brief, binary_display) values ('" & title_graphic_root & "', '" & title_graphic_main & "', '"&add_comment&"', '" & topic_summary & "', '" & topic_brief & "', " & display & ")" set rs = my_Conn.Execute (strSql) response.redirect("manage_forum.asp") %>