Support > ScriptBasic Examples w/source
CGI - ODBC Example
(1/1)
Support:
--- Code: Script BASIC ---#!/usr/bin/scriba -c INCLUDE cgi.basINCLUDE odbc.bas cgi::Header 200,"text/html"cgi::FinishHeader PRINT """<HTML><HEAD><title>unixODBC testing</title></HEAD><BODY><FONT face="Verdana, Arial, Helvetica, sans-serif"><TABLE border="1" cellpadding="3">""" ON ERROR GOTO PROBLEMS dbh = ODBC::RealConnect("DSN","user","password") ODBC::query(dbh,"SELECT * FROM contact") PRINT "File Handle: <b>",dbh,"</b><br>"PRINT "Affected Rows: <b>",ODBC::AffectedRows(dbh),"</b><br>" WHILE ODBC::FetchHash(dbh,column) PRINT "<TR>"PRINT "<TD>",column{"ID"},"</TD>"PRINT "<TD>",column{"NAME"},"</TD>"PRINT "<TD>",column{"ADDRESS"},"</TD>"PRINT "<TD>",column{"CITY"},"</TD>"PRINT "<TD>",column{"STATE"},"</TD>"PRINT "<TD>",column{"ZIP"},"</TD>"PRINT "<TD>",column{"PHONE"},"</TD>"PRINT "<TD>",column{"EMAIL"},"</TD>"PRINT "<TD>",column{"URL"},"</TD>"PRINT "</TR>" WEND PRINT """</TABLE></FONT></BODY></HTML>""" ODBC::Close(dbh) END PROBLEMS: PRINT "ERROR = ",error(),"<br>" RESUME
Navigation
[0] Message Index
Go to full version