NeoWebScript™ Feedback

NeoSoft™ is always listening for feedback from you, the users and developers of NeoWebScript™. For additional information, or if you have any comments or suggestions, send email to info@neowebscript.com. proc check_response {} { global response foreach field [list to from comments] { if {![info exists response($field)]} { return 0 } if {[clength $response($field)] == 0} { return 0 } } return 1 } load_response if [array exists response] { if [check_response] { set fp [open_outbound_mail -subject "NeoWebScript Feedback" -to $response(to) -from $response(from)] puts $fp "Name: $response(name)" puts $fp "Email: $response(from)" puts $fp "Comments:\n$response(comments)" puts $fp "\n----------\n" foreach env [array names webenv] { puts $fp "webenv($env) = $webenv($env)" } close $fp html "

Message sent! Send another?

\n" } else { html "

Message not sent. Please fill out all the fields.

\n" } } set this_doc $webenv(DOCUMENT_NAME) html "
Your name:
Your email address:
What version of NeoWebScript are you using?

"