<%=pageTitle%> - Knowledge Base Search

<% If Session("adminLoggedIn") <> True Then %> <%=pageTitle%> - Knowledge Base Search - Add 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") %> <% ElseIf 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") StrSql="SELECT * FROM tbl_KbIndex" rsKbSearch.CursorType = 2 rsKbSearch.LockType = 3 rsKbSearch.Open StrSql,cString rsKbSearch.AddNew rsKbSearch.fields("articleTitle") = articleTitle rsKbSearch.fields("keywords") = keywords rsKbSearch.fields("description") = articleDescription rsKbSearch.fields("articleIndexed") = articleIndexed rsKbSearch.fields("articleText") = articleText rsKbSearch.Update rsKbSearch.Close Set rsKbSearch = Nothing Response.Redirect("search.asp?mode=" & pageMode & "&searchQ=" & searchQ) End If Else %> <%=pageTitle%> - Knowledge Base Search - Add 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 %>

Add an article

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

<%If keywords = "" AND emptyData = True Then Response.Write("") End If%>Keywords<%If keywords = "" AND emptyData = True Then Response.Write("") End If%>:	<%=keywords%>

<%If articleDescription = "" AND emptyData = True Then Response.Write("") End If%>Description<%If articleDescription = "" AND emptyValue = True Then Response.Write("") End If%>:	<%=articleDescription%>

Article Text (HTML Format):
	<%=Replace(Replace(articleText, "<", "<"), ">", ">")%>
	Preview this Article

Make Article Searchable?

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