Aspect Frequently Asked Questions Page
   Documentation | FAQs | Software | Forms
<% Dim faqlist__value1 faqlist__value1 = "0" If (Request.QueryString("ItemID") <> "") Then faqlist__value1 = Request.QueryString("ItemID") End If %> <% set faqlist = Server.CreateObject("ADODB.Recordset") faqlist.ActiveConnection = MM_faqsmanager_STRING faqlist.Source = "SELECT Faq.*, FaqCategory.CategoryDesc, FaqCategory.CategoryName FROM FaqCategory INNER JOIN Faq ON FaqCategory.CategoryID = Faq.CategoryID WHERE Faq.Activated = 'True' AND Faq.ItemID LIKE '" + Replace(faqlist__value1, "'", "''") + "'" faqlist.CursorType = 0 faqlist.CursorLocation = 2 faqlist.LockType = 3 faqlist.Open() faqlist_numRows = 0 %> <% Dim questionfaqlist__value1 questionfaqlist__value1 = "%" If (request.form("search") <> "") Then questionfaqlist__value1 = request.form("search") End If %> <% Dim questionfaqlist__value2 questionfaqlist__value2 = "%" If (request.form("searchcat") <> "") Then questionfaqlist__value2 = request.form("searchcat") End If %> <% set questionfaqlist = Server.CreateObject("ADODB.Recordset") questionfaqlist.ActiveConnection = MM_faqsmanager_STRING questionfaqlist.Source = "SELECT Faq.*, FaqCategory.CategoryDesc, FaqCategory.CategoryName FROM FaqCategory INNER JOIN Faq ON FaqCategory.CategoryID = Faq.CategoryID WHERE Faq.Activated = 'True' AND FaqCategory.CategoryName LIKE '" + Replace(questionfaqlist__value2, "'", "''") + "' AND ( FaqQuestion LIKE '%" + Replace(questionfaqlist__value1, "'", "''") + "%' OR FaqAnswer LIKE '%" + Replace(questionfaqlist__value1, "'", "''") + "%') ORDER BY FaqCategory.CategoryID" questionfaqlist.CursorType = 0 questionfaqlist.CursorLocation = 2 questionfaqlist.LockType = 3 questionfaqlist.Open() questionfaqlist_numRows = 0 %> <% set Category = Server.CreateObject("ADODB.Recordset") Category.ActiveConnection = MM_faqsmanager_STRING Category.Source = "SELECT FaqCategory.CategoryName FROM FaqCategory INNER JOIN Faq ON FaqCategory.CategoryID = Faq.CategoryID GROUP BY FaqCategory.CategoryName" Category.CursorType = 0 Category.CursorLocation = 2 Category.LockType = 3 Category.Open() Category_numRows = 0 %> <% Dim Repeatfaqfaqlist__numRows Dim Repeatfaqfaqlist__index Repeatfaqfaqlist__numRows = -1 Repeatfaqfaqlist__index = 0 faqlist_numRows = faqlist_numRows + Repeatfaqfaqlist__numRows %> <% Dim Repeatquestionfaqlist__numRows Dim Repeatquestionfaqlist__index Repeatquestionfaqlist__numRows = -1 Repeatquestionfaqlist__index = 0 questionfaqlist_numRows = questionfaqlist_numRows + Repeatquestionfaqlist__numRows %> <% Dim Repeatfaqcategory__numRows Dim Repeatfaqcategory__index Repeatfaqcategory__numRows = -1 Repeatfaqcategory__index = 0 Category_numRows = Category_numRows + Repeatfaqcategory__numRows %> <% Dim TFM_nestfaqcat, lastTFM_nestfaqcat%>
<%If Request.QueryString("mid") <> "" Then %>?mid=<%=request.querystring("mid")%><%end if%><%If Request.QueryString ("mid2")<> "" Then %>&mid2=<%=request.querystring("mid2")%><%end if%><%If Request.QueryString ("mid3")<> "" Then %>&mid3=<%=request.querystring("mid3")%><%end if%><%If Request.QueryString ("incid")<> "" Then %>&incid=<%=request.querystring("incid")%><%end if%>" method="post" name="form2" id="form2">
Search by Category
Search by Keyword
 
<% If Not faqlist.EOF Or Not faqlist.BOF Then %>
<% While ((Repeatfaqfaqlist__numRows <> 0) AND (NOT faqlist.EOF)) %> "> <% Repeatfaqfaqlist__index=Repeatfaqfaqlist__index+1 Repeatfaqfaqlist__numRows=Repeatfaqfaqlist__numRows-1 faqlist.MoveNext() Wend %>
<%=(faqlist.Fields.Item("CategoryName").Value)%> <%=(faqlist.Fields.Item("CategoryDesc").Value)%>

<%=(faqlist.Fields.Item("FaqQuestion").Value)%>

<%=Replace(faqlist.Fields.Item("FaqAnswer").Value,Chr(13),"
")%>

<% If (faqlist.Fields.Item("FaqRelatedLink").Value) <> "" Then %> See related Item: " target="_blank"><%=(faqlist.Fields.Item("FaqRelatedLink").Value)%> <%end if%>

Go back
<% End If ' end Not faqlist.EOF Or NOT faqlist.BOF %> <% if Not Request.QueryString("ItemID") <> "" then %> <% While ((Repeatquestionfaqlist__numRows <> 0) AND (NOT questionfaqlist.EOF)) %>
<% TFM_nestfaqcat = questionfaqlist.Fields.Item("CategoryName").Value If lastTFM_nestfaqcat <> TFM_nestfaqcat Then lastTFM_nestfaqcat = TFM_nestfaqcat %>
<%=(questionfaqlist.Fields.Item("CategoryName").Value)%> <%End If 'End Basic-UltraDev Simulated Nested Repeat %>
    
  • ?ItemID=<%=(questionfaqlist.Fields.Item("ItemID").Value)%><%If Request.QueryString("mid") <> "" Then %>&mid=<%=request.querystring("mid")%><%end if%><%If Request.QueryString ("mid2")<> "" Then %>&mid2=<%=request.querystring("mid2")%><%end if%><%If Request.QueryString ("mid3")<> "" Then %>&mid3=<%=request.querystring("mid3")%><%end if%><%If Request.QueryString ("incid")<> "" Then %>&incid=<%=request.querystring("incid")%><%end if%>"><%=(questionfaqlist.Fields.Item("FaqQuestion").Value)%>
    • <% Repeatquestionfaqlist__index=Repeatquestionfaqlist__index+1 Repeatquestionfaqlist__numRows=Repeatquestionfaqlist__numRows-1 questionfaqlist.MoveNext() Wend %> <%End If%>

    INFOTECH Soft, Inc.
    1201 Brickell Ave, Ste 220
    Miami, Florida 33131
    Phone (305) 371-5111
    Fax (305) 371-5112
    Support@INFOTECHSoft.com

      CONFIDENTIAL © 2006 INFOTECH Soft, Inc. All Rights Reserved. Contact Us 
    <% faqlist.Close() %><% questionfaqlist.Close() %><% Category.Close() Set Category = Nothing %>