FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index mod_harbour landing page with dbf pagedata file
Otto
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM

landing page with dbf pagedata file

Posted: Sun Aug 08, 2021 10:15 AM
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

Otto
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM

Re: landing page with dbf pagdata file

Posted: Sun Aug 08, 2021 01:51 PM

Info
The SSL certificate of mybergland.com is expired - I am working on renewing the certificate.
Best regards,
Otto

Otto
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM

Re: landing page with dbf pagdata file

Posted: Sun Aug 08, 2021 03:24 PM

Hello friends,

Now SSL is renewed and working again.

Best regards,
Otto

Otto
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM

Re: landing page with dbf pagdata file

Posted: Sun Aug 08, 2021 09:30 PM
This easy you can resolve the source code of such a complex, feature-rich web page with Harbourino.

Otto
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM

Re: landing page with dbf pagedata file

Posted: Mon Aug 09, 2021 06:09 PM
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 (fw): Select all Collapse
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 (fw): Select all Collapse
 <?prg  return hPageData[ "keyname" ] ?>








Best regards,
Otto

Continue the discussion

Static archive · New replies & topics via GitHub Discussions