<% Response.Buffer=True %> Custom Speech USA - FAQs - We teach computers how to listen

csusatop.gif (4377 bytes)

tgif0001.gif (861 bytes) <% 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.

<% set rsitems = nothing conn.close set conn = nothing response.flush %>