Thank You!

on comments (params) local html = webServer.httpHeader () dataFile = file.getSystemDisk () + "Comments" i entry field order = {"Name","E-mail", "Phone", "Comments"} req = {"Name", "E-mail", "Phone", "Comments"} on add (s) html = html + s + cr with params^ if defined (argTable) entry = clock.now () + tab ´Start HTML return page. add ("") add ("Thank You!") add ("") add ("

Thank you for your comments.

") add ("

") add (entry) ´ Create data file, if necessary. if not file.exists (dataFile) file.new (dataFile) file.setType (dataFile, 'TEXT') file.writeLine (dataFile, "##################") file.writeLine (dataFile, entry) ´ Add each field to record and to result page. for i = 1 to sizeOf (order) if (defined (argTable.[order[i]]) and (argTable.[order[i]] != nil)) field = string (argTable.[order[i]]) entry = order[i] + ": " + field add ("

") add (entry) file.writeLine (dataFile, entry) else if req contains (order[i]) return (webserver.errorMessage (order[i] + " is required.", params)) ´ Finish return page add ("") else html = webServer.errorMessage ("No Data", params) return (html)