Page 1 of 1

landing page with dbf pagedata file

PostPosted: Sun Aug 08, 2021 10:15 am
by Otto
Hello friends,

We are organizing a Live Stream with Jacob Koopman from Dublin to Sillian, Hotel Bergland.
Therefore, we program a landing page with mod harbour for marketing.

We use a DBF file to store the content.
With the help of a self developed little FIVEWIN program we can rapidly at a pagedata-dbf-file .
This program creates a record inside the pagedata file.
And you can copy the hashkey to the clipboard.
You also see the Harbourino tool in action.
Harbourino is a tool to let you easily develop your personal framework.

LINK to page: https://winhotel.space/jacobkoopman/home-studio.prg

VIDEO: https://mybergland.com/fwforum/pagedatafile.mp4

Image

Re: landing page with dbf pagdata file

PostPosted: Sun Aug 08, 2021 1:51 pm
by Otto
Info
The SSL certificate of mybergland.com is expired - I am working on renewing the certificate.
Best regards,
Otto

Re: landing page with dbf pagdata file

PostPosted: Sun Aug 08, 2021 3:24 pm
by Otto
Hello friends,

Now SSL is renewed and working again.

Best regards,
Otto

Re: landing page with dbf pagdata file

PostPosted: Sun Aug 08, 2021 9:30 pm
by Otto
This easy you can resolve the source code of such a complex, feature-rich web page with Harbourino.

Image

Re: landing page with dbf pagedata file

PostPosted: Mon Aug 09, 2021 6:09 pm
by Otto
Hello friends,

Where is the web page with this video

LINK to page: https://winhotel.space/jacobkoopman/home-studio.prg
hosted?

We are connected with Fiberglas 100/100 to the internet.

An OPNsense Firewall distributes the internet to my Apache web servers.
I use i7 notebooks with good SSD drives and the maximum of RAM.

Here is the mod harbour code:
We fill a hash from a dbf file and pass the hash to HTML.

Code: Select all  Expand view


hPageData := {=>}  

  use ( hb_GetEnv( "PRGPATH" ) + "\data\pagedata.DBF" ) new
  do while .not. eof()
      hPageData[  ALLTRIM( field->hashkey ) ] = field->text
      select pagedata
      skip
  enddo
  select pagedata
  use
   TEMPLATE PARAMS hPageData
 


And here the code to access the hash from HTML.

Code: Select all  Expand view

 <?prg  return hPageData[ "keyname" ] ?>
 




Image

Image

Best regards,
Otto