<% ns_puts [subst { ns_conn authpassword = [ns_conn authpassword] ns_conn authuser = [ns_conn authuser] ns_conn contentlength = [ns_conn contentlength] ns_conn driver = [ns_conn driver] ns_conn form = [ns_conn form] ns_conn headers = [ns_conn headers] ns_conn host = [ns_conn host] ns_conn isconnected = [ns_conn isconnected] ns_conn location = [ns_conn location] ns_conn method = [ns_conn method] ns_conn outputheaders = [ns_conn outputheaders ] ns_conn peeraddr = [ns_conn peeraddr] ns_conn port = [ns_conn port] ns_conn protocol = [ns_conn protocol] ns_conn query = [ns_conn query] ns_conn request = [ns_conn request] ns_conn url = [ns_conn url] ns_conn urlc = [ns_conn urlc] ns_conn urlv = [ns_conn urlv] ns_conn version = [ns_conn version] }] set form [ns_conn form $conn] if {[string length $form] > 0} { ns_puts "post data ([ns_set size [ns_conn form $conn]]):" for {set i 0} {$i < [ns_set size $form]} {incr i} { ns_puts "[ns_set key $form $i] = [ns_set value $form $i]" } } ns_puts [subst { }] %>