<% 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 pfxcom.Value("ACTRECNUM") = Request("recnum") pfxcom.Value("DATAVALUESSAVE")= Request("save") pfxcom.Value("DATAVALUESDELETE")=Request("delete") dim fldnum fldnum = 0 do while CallPFX("GETHEADER") <> "" fldnum = fldnum + 1 pfxcom.Array("DATAARRAY",fldnum)=Request(pfxcom.Value("HEADERNAME")) loop %> <html> <head> <title> Member Database Editor </title> </head> <body> <% if CallPFX("PROCESSFORM") <> "" then%> <% = GetValH("RESULTINFO") %><br> <% else %> <form action="editpage.asp" method="post"> <table> <% do while CallPFX("GETROWDATA") <> "" %> <tr> <td> <% =GetValH("HEADERNAME") %> </td> <td><input name="<% =GetValH("HEADERNAME") %>" size=<% =GetValH("DISPLAYSIZE") %> value="<% =GetValH("DISPLAYDATA") %>"> </td> </tr> <% loop %> </table> <input name="recnum" type="hidden" value="<%=GetValH("ACTRECNUM") %>"> <input name="save" type="Submit" value="Save"> <input name="reset" type="Submit" value="Reset"> <% if GetValH("ACTRECNUM") <> "0" then %> <input name="delete" type="Submit" value="Delete"> <% end if %> </form> <% end if %> <a href="index.asp">Back to Index</a> <hr> Page brought to you by POWERflex Corporation </body> </html>