<% 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>