Powerlines newsletter, Vol.11 No.2, Listing 1

Listing 1 - index.asp
<%
option explicit
dim pfxsys
set pfxsys=Server.CreateObject("PfxCOM.PfxSystem")
dim pfxcom
set pfxcom=pfxsys.LoadModule(Server.MapPath("index.ptm"))

' Function to return a value from pfxplus
' and HTML encode it
function GetValH (s)
  GetValH =Server.HTMLEncode (pfxcom.Value(s))
end function

' Function to call a pfxplus function
function CallPFX (s)
  CallPFX =pfxcom.CallFunction (s,"")
end function
%>
<html>
<head>
<title>Member Database Viewer</title>
</head>
<body>
  <table border=1>
    <tr>
      <% do while CallPFX ("GETHEADER") <> "" %>
        <td><% =GetValH("HEADERNAME") %></td>
      <% loop %>
    </tr>
    <% do while CallPFX("GETNEXTROW") <> "" %>
      <tr>
        <% do while CallPFX("GETNEXTCOL") <> "" %>
          <td><% =GetValH("VAL") %></td>
        <% loop %>
      </tr>
    <% loop %>
  </table>
  <hr>
  Page brought to you by POWERflex Corporation
</body></html>
</html>