<% Option Explicit %> <% Dim strSQL, xxx, arrData, blnFoundData Call db_open() set objRS = objConn.execute("SELECT intAutoID,strTitle,strText FROM tre_pages_ors") if (not(objRS.EOF)) Then blnFoundData = true arrData = objRS.getrows Else blnFoundData = false end if objRS.Close Call db_close() strTitle = arrData(1,0) strPage = "ors" Call pageRef(strPage) Call header(strTitle,strPage) Call columnA(strPage) Call columnB(strPage,"contentStart") response.write ("

") response.write ("

" & arrData(1,0) & "

") response.write ("

" & arrData(2,0) & "

") response.write ("

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