[http://naviserver.sourceforge.net/ns_logobig.gif]

[NaviServer%|%Main%|%]
✸ http://naviserver.sourceforge.net/w/NaviServer%|%Home Page%|%
✸ http://bitbucket.org/naviserver/naviserver/%|%Source Code %|%
✸ http://sourceforge.net/project/showfiles.php?group_id=130646%|%Downloads %|%
✸ http://naviserver.sourceforge.net/n/toc.html%|%API Documentation %|%
✸ http://sourceforge.net/mail/?group_id=130646%|%Mailing Lists%|%
✸ http://sourceforge.net/tracker/?group_id=130646&atid=719006%|%Bugs %|%
✸ https://www.ohloh.net/p/naviserver/contributors%|%Developers %|%

----

**Database connection**

Tcl example of database connection.

This will register the TCL procedure 'db_test' to requests for the dbtest.html page such that when a request is sent for dbtest.html then the procedure 'db_test' is run.

======tcl
ns_register_proc GET /dbtest.html db_test

proc db_test {} {
    set pool "main"
    set sql "select * from users"
    set db [ns_db gethandle $pool]
    
    set row [ns_db select $db $sql]
    
    set html ""
    while {[ns_db getrow $db $row]} {
        append html "<p>row: [ns_set array $row]</p>"
    }               
  
    ns_db releasehandle $db
  
    ns_return 200 text/html $html
}
======

<<categories>>NaviServer