% dim strcontent,arr arr = QueryToArray("SELECT tbl_Page.strPageContent FROM tbl_Page WHERE (((tbl_Page.intPageID)="& 1 & "))", strConnect) if isarray(arr) then strcontent = arr(0,0) end if %>