newscript
FUNCTION RemoteDBaccess ( )

   dbclose
   dbopen ("memory")
   dim dbCON = createobject ("ADODB.Connection")
   dim dbRS = CreateObject("ADODB.Recordset")
   dim myItem
   dbCON.ConnectionString =  "DRIVER={MySQL ODBC 8.0 ANSI Driver};SERVER=localhost;UID=root;PWD=root;DATABASE=wordpress;OPTION=3"
   dbCON.Open  ()
   dbRS .open ( "select * from wp_options   ", dbCON )

   dim index = 0
   freestring = " create table myTable ( "
   FOR EACH myItem in dbRS.fields
      IF ( index ) then
         freestring  = freestring   & " , "
      END If
      index = 1     
      freestring  = freestring   &   sqlIdentifier(myItem.name)   & " text"
   NEXT myItem   
   freestring  = freestring & " ) "
   sql = freestring
   DO while !  dbrs.EOF
      index = 0
      freestring = "INSERT into myTable    values ( "
      FOR EACH myItem in dbRS.fields
         IF ( index ) then
            freestring  = freestring   & " , "
         END If
         index = index+ 1

         freestring  = freestring   &   sqlString ( (myItem.value) ) 
      NEXT myItem 
      freestring  =  freestring & " ) "

      sql = freestring
      dbRS.movenext
   LOOP
   dbRS.close

END function