<% Option Explicit %> <% Dim strSQL, xxx, arrData, blnFoundData Call db_open() set objRS = objConn.execute("SELECT intAutoID,strQuestion,strAnswer FROM tre_pages_faq WHERE strRace = 'BD' ORDER BY intPosition ASC") if (not(objRS.EOF)) Then blnFoundData = true arrData = objRS.getrows Else blnFoundData = false end if objRS.Close Call db_close() strTitle = "BullDog 50/50 FAQ" strPage = "bd/faq" Call pageRef(strPage) Call header(strTitle,strPage) Call columnA(strPage) Call columnB(strPage,"contentStart") response.write ("

") response.write ("

Frequently Asked Questions

") For xxx = 0 To UBound(arrData,2) response.write ("

Q: " & arrData(1,xxx) & "

") response.write ("

A: " & arrData(2,xxx) & "

") Next response.write ("

") Call columnB(strPage,"contentEnd") Call columnC(strPage) Call footer(strPage) %>