<%=pageTitle%> - Knowledge Base Search - Edit an article

<% If Request.QueryString("step") = "2" Then articleTitle = Replace(Request.Form("articleTitle"), "'", "''") keywords = Replace(Request.Form("keywords"), "'", "''") articleDescription = Replace(Request.Form("description"), "'", "''") articleIndexed = Replace(Request.Form("articleIndexed"), "'", "''") articleText = Replace(Request.Form("articleText"), "'", "''") If articleTitle = "" OR keywords = "" OR articleDescription = "" OR articleText = "" Then emptyData = True Else emptyData = False Set rsKbSearch = Server.CreateObject("ADODB.RecordSet") adoCon.Open cString StrSql="UPDATE tbl_KbIndex SET articleTitle='" & articleTitle & "', keywords='" & keywords & "', description='" & articleDescription & "', articleText='" & articleText & "', articleIndexed='" & articleIndexed & "' WHERE ID=" & aID adoCon.Execute(StrSql) adoCon.Close 'Set rsKbSearch = Nothing Response.Redirect("search.asp?mode=" & Request.QueryString("mode") & "&searchQ=" & Request.QueryString("searchQ")) End If End If If validateID(aID) = True AND Session("adminLoggedIn") = True Then Set rsKbSearch = Server.CreateObject("ADODB.RecordSet") StrSql="SELECT * FROM tbl_KbIndex WHERE ID=" & aID rsKbSearch.Open StrSql,cString %> <%=pageTitle%> - Knowledge Base Search - Edit an article <% Server.Execute("inc_style.asp") %> <% Server.Execute("inc_formatting.asp") %> <% Server.Execute("inc_header.asp") %> <% If emptyData = True Then %>

Several of the required fields were left empty, and are marked in red. Please make the necessary changes.

<% End If %>

Edit an article

<%If articleTitle = "" AND emptyData = True Then Response.Write("") End If%>Article Title<%If articleTitle = "" AND emptyData = True Then Response.Write("") End If%>:	" size="40">

<%If keywords = "" AND emptyData = True Then Response.Write("") End If%>Keywords<%If keywords = "" AND emptyData = True Then Response.Write("") End If%>:	<%If keywords = "" AND emptyData = True Then Response.Write(keywords) Else Response.Write(Replace(rsKbSearch("keywords"), "''", "'")) End If%>

<%If articleDescription = "" AND emptyData = True Then Response.Write("") End If%>Description<%If authPass = "" AND articleDescription = True Then Response.Write("") End If%>:	<%If articleDescription = "" AND emptyData = True Then Response.Write(Replace(articleDescription, "''", "'")) Else Response.Write(Replace(rsKbSearch("description"), "''", "'")) End If%>

Article Text (HTML Format):
	<%If articleText = "" AND emptyData = True Then Response.Write(Replace(Replace(Replace(articleText, "<", "<"), ">", ">"), "''", "'")) Else Response.Write(Replace(Replace(Replace(rsKbSearch("articleText"), "<", "<"), ">", ">"), "''", "'")) End If%>
	Preview this Article

Make Article Searchable?

<% Server.Execute("inc_footer.asp") %> <% ElseIf validateID(aID) = False Then %> <%=pageTitle%> - Knowledge Base Search - Edit an article: Error <% Server.Execute("inc_style.asp") %> <% Server.Execute("inc_header.asp") %>

Sorry, the article ID (aID) you entered is not valid! Please go back and try again.

<% Server.Execute("inc_footer.asp") %> <% Else %> <%=pageTitle%> - Knowledge Base Search - Edit an article: Error <% Server.Execute("inc_style.asp") %> <% Server.Execute("inc_header.asp") %>

Sorry, you are not authorized to access this page. You may go back and search the Knowledge Base.

<% Server.Execute("inc_footer.asp") %> <% End If %>