 |
<% Dim strCategory, strTitle, strHeader, strFooter, aHeaders(11,1), iI, iMax, iCount
Dim strTopLink, strBookmark
'Place HTML that is used repeatedly into variables.
iMax=11
aHeaders(0,0)="1CD"
aHeaders(0,1)="
"
aHeaders(1,0)="2CC"
aHeaders(1,1)="
"
aHeaders(2,0)="3AC"
aHeaders(2,1)="
"
aHeaders(3,0)="4CM"
aHeaders(3,1)="
"
aHeaders(4,0)="5MB"
aHeaders(4,1)="
"
aHeaders(5,0)="6PB"
aHeaders(5,1)="
"
aHeaders(6,0)="7SM"
aHeaders(6,1)="
"
aHeaders(7,0)="8SS"
aHeaders(7,1)="
"
aHeaders(8,0)="9SR"
aHeaders(8,1)="
"
aHeaders(9,0)="ASU"
aHeaders(9,1)="
"
aHeaders(10,0)="BMS"
aHeaders(10,1)="
"
aHeaders(11,0)="CCB"
aHeaders(11,1)="
"
strToTopImage=" "
set rsItems = Server.CreateObject("ADODB.Recordset")
rsItems.CursorType=3 'Static, so we can move in any direction.
rsItems.ActiveConnection=conn
rsItems.open "SELECT tblFAQs.ID, Question, Answer, DisplayOrder, " & _
"tblCategories.CategoryID AS Category " & _
"FROM tblFAQs " & _
"LEFT JOIN tblCategories ON tblFAQs.CategoryID=tblCategories.ID " & _
"ORDER BY Category, DisplayOrder"
If NOT rsItems.EOF THEN
strHeader=""
strFooter=""
strCategory=""
iCount=0
rsItems.MoveFirst
'First time through, display links at the top.
Do While Not rsItems.EOF
Question = rsItems("Question")
DisplayOrder = rsItems("DisplayOrder")
'Write out the table header if necessary.
If rsItems("Category")<>strCategory Then
If strCategory<>"" Then Response.Write strFooter
'Write out the image or text heading.
For iI=0 To iMax
If aHeaders(iI,0)=rsItems("Category") Then
strTitle=aHeaders(iI,1)
strBookmark=""
End If
Next
'Write the section header.
Response.Write strBookmark
Response.write strTitle
Response.Write strHeader
End If
strCategory=rsItems("Category")
Response.Write ""
Response.Write DisplayOrder & ". " & Question
Response.Write("
")
rsItems.MoveNext
iCount = iCount + 1
Loop
rsItems.MoveFirst
strHeader=""
strFooter=""
strCategory=""
iCount=0
'Second time through, write out the actual FAQ. Divide the page with a HR.
Response.Write "
"
Do While Not rsItems.EOF
Question = rsItems("Question")
Answer = rsItems("Answer")
DisplayOrder = rsItems("DisplayOrder")
'Write out the table header if necessary.
If rsItems("Category")<>strCategory Then
If strCategory<>"" Then Response.Write strFooter
'Write out the image or text heading.
For iI=0 To iMax
If aHeaders(iI,0)=rsItems("Category") Then strTitle=aHeaders(iI,1)
Next
'Write the section header.
response.write strTitle
Response.Write strHeader
End If
strCategory=rsItems("Category")
Response.Write ""
Response.Write "" & DisplayOrder & ". " & Question & "
"
Response.Write "" & Answer & ""
Response.Write "
" & strToTopImage & "
"
rsItems.MoveNext
iCount = iCount + 1
Loop
If iCount > 0 Then Response.Write strFooter
End If
%>
Price, terms,
specifications, and
availability are subject to change without notice. Custom Speech USA, Inc.
trademarks are indicated. Other marks are the property of their respective
owners. Click here for
Online Privacy Policy.
|
