<% If Session("adminLoggedIn") <> True Then Response.Redirect("admin.asp?redir=setup.asp&mode=" & pageMode & "&searchQ=" & searchQ) ElseIf Request.QueryString("step") = "2" Then authName = Request.Form("loginName") authPass = Request.Form("pw1") pw2 = Request.Form("pw2") fullName = Request.Form("fullName") adminEmail = Request.Form("adminEmail") emailType = Request.Form("emailType") emailHost = Request.Form("emailHost") allowEmailFriend = Request.Form("allowEmailFriend") allowRateArticle = Request.Form("allowRateArticle") headerLogo = Request.Form("headerLogo") pageTitle = Request.Form("pageTitle") homePage = Request.Form("homePage") bgColor = Request.Form("bgColor") fontColor = Request.Form("fontColor") fontSize = Request.Form("fontSize") fontFamily = Request.Form("fontFamily") aLinkColor = Request.Form("aLinkColor") aLinkWeight = Request.Form("aLinkWeight") aLinkStyle = Request.Form("aLinkStyle") aHoverColor = Request.Form("aHoverColor") aHoverStyle = Request.Form("aHoverStyle") tblOddBgColor = Request.Form("tblOddBgColor") tblOddColor = Request.Form("tblOddColor") tblEvenBgColor = Request.Form("tblEvenBgColor") tblEvenColor = Request.Form("tblEvenColor") tblLinkColor = Request.Form("tblLinkColor") tblHoverColor = Request.Form("tblHoverColor") If authName = "" OR authPass = "" OR fullName = "" OR adminEmail = "" OR authPass <> pw2 OR headerLogo = "" OR pageTitle = "" OR homePage = "" OR bgColor = "" OR fontColor = "" OR aLinkColor = "" OR aHoverColor = "" OR tblOddBgColor = "" OR tblOddColor = "" OR tblEvenBgColor = "" OR tblEvenColor = "" OR tblLinkColor = "" OR tblHoverColor = "" Then emptyData = True Else emptyData = False Set rsKbSearch = Server.CreateObject("ADODB.RecordSet") adoCon.Open cString StrSql="UPDATE tbl_Admin SET authName='" & authName & "', authPass='" & authPass & "', fullName='" & fullName & "', adminEmail='" & adminEmail & "', emailType='" & emailType & "', emailHost='" & emailHost & "', allowEmailFriend='" & allowEmailFriend & "', allowRateArticle='" & allowRateArticle & "'," & _ "pageTitle='" & pageTitle & "', homePage='" & homePage & "', headerLogo='" & headerLogo & "', bgColor='" & bgColor & "', fontColor='" & fontColor & "', fontFamily='" & fontFamily & "', fontSize='" & fontSize & "', aLinkColor='" & aLinkColor & "', aLinkWeight='" & aLinkWeight & "'," & _ "aLinkStyle='" & aLinkStyle & "', aHoverColor='" & aHoverColor & "', aHoverStyle='" & aHoverStyle & "', tblEvenBgColor='" & tblEvenBgColor & "', tblEvenColor='" & tblEvenColor & "', tblOddBgColor='" & tblOddBgColor & "', tblOddColor='" & tblOddColor & "'," & _ "tblLinkColor='" & tblLinkColor & "', tblHoverColor='" & tblHoverColor & "'" adoCon.Execute(StrSql) adoCon.Close 'Set rsKbSearch = Nothing Session("adminName") = authName Response.Redirect("search.asp?mode=" & pageMode & "&searchQ=" & searchQ) End If End If Set rsAdmin = Server.CreateObject("ADODB.RecordSet") AdminSql="SELECT * FROM tbl_Admin" rsAdmin.Open AdminSql,cString %> <%=pageTitle%> - Knowledge Base Search - Setup <% 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 %> <% If authPass <> pw2 Then %>

The Password and Confirmation Password must be the same.

<% End If %>
Knowledge Base Setup
<%If authName = "" AND emptyData = True Then Response.Write("") End If%>Login Name<%If authName = "" AND emptyData = True Then Response.Write("") End If%>: ">
<%If authPass = "" AND emptyData = True Then Response.Write("") End If%>Password<%If authPass = "" AND emptyData = True Then Response.Write("") End If%>: ">
<%If authPass = "" AND emptyData = True Then Response.Write("") End If%>Confirm password<%If authPass = "" AND emptyData = True Then Response.Write("") End If%>: ">
<%If fullName = "" AND emptyData = True Then Response.Write("") End If%>Full Name<%If fullName = "" AND emptyData = True Then Response.Write("") End If%>: ">
<%If adminEmail = "" AND emptyData = True Then Response.Write("") End If%>Admin Email<%If adminEmail = "" AND emptyData = True Then Response.Write("") End If%>: ">
Email System:
Mail Host: ">
Allow user to email article to friend?
Allow users to rate articles?
Style
<%If pageTitle = "" AND emptyData = True Then Response.Write("") End If%>Website Title<%If pageTitle = "" AND emptyData = True Then Response.Write("") End If%>: ">
<%If homePage = "" AND emptyData = True Then Response.Write("") End If%>Homepage URL<%If homePage = "" AND emptyData = True Then Response.Write("") End If%>: ">
<%If headerLogo = "" AND emptyData = True Then Response.Write("") End If%>Header Logo<%If headerLogo = "" AND emptyData = True Then Response.Write("") End If%>: ">
<%If bgColor = "" AND emptyData = True Then Response.Write("") End If%>Background Color<%If bgColor = "" AND emptyData = True Then Response.Write("") End If%>: "> Color Palate
<%If fontColor = "" AND emptyData = True Then Response.Write("") End If%>Font Color<%If fontColor = "" AND emptyData = True Then Response.Write("") End If%>: "> Color Palate
Font:
Font Size:
<%If aLinkColor = "" AND emptyData = True Then Response.Write("") End If%> Link Color<%If aLinkColor = "" AND emptyData = True Then Response.Write("") End If%>: "> Color Palate
Link Weight:
Link Style:
<%If aHoverColor = "" AND emptyData = True Then Response.Write("") End If%> Link Hover Color<%If aHoverColor = "" AND emptyData = True Then Response.Write("") End If%>: "> Color Palate
Link Hover Style:
<%If tblEvenBgColor = "" AND emptyData = True Then Response.Write("") End If%> Even Table Background Color<%If tblEvenBgColor = "" AND emptyData = True Then Response.Write("") End If%>: "> Color Palate
<%If tblEvenColor = "" AND emptyData = True Then Response.Write("") End If%> Even Table Font Color<%If tblEvenColor = "" AND emptyData = True Then Response.Write("") End If%>: "> Color Palate
<%If tblOddBgColor = "" AND emptyData = True Then Response.Write("") End If%> Odd Search Table Background Color<%If tblOddBgColor = "" AND emptyData = True Then Response.Write("") End If%>: "> Color Palate
<%If tblOddColor = "" AND emptyData = True Then Response.Write("") End If%> Odd Search Table Font Color<%If tblOddColor = "" AND emptyData = True Then Response.Write("") End If%>: "> Color Palate
<%If tblLinkColor = "" AND emptyData = True Then Response.Write("") End If%> Search Table Link Color<%If tblLinkColor = "" AND emptyData = True Then Response.Write("") End If%>: "> Color Palate
<%If tblHoverColor = "" AND emptyData = True Then Response.Write("") End If%> Search Table Link Color Hover<%If tblHoverColor = "" AND emptyData = True Then Response.Write("") End If%>: "> Color Palate

<% Server.Execute("inc_footer.asp") %> <% rsAdmin.Close Set rsAdmin = Nothing %>