Building and Running Online Auctions
by Brent Gorda and Gregory V. Wilson


Listing One
<html>
<qbtcl>
    for {set i 0} { $i < 10 } { incr i } {
        puts "i is $i <br>"
    }
</qbtcl>
 ...
</html>

Listing Two
<qbsub>
    Lot Number: $lotNum<br>
    Description (Manufacturer): $lotDesc <br>
    Quantity Available: $lotQuant <br>
    Current Price: $lotMinBid <br>
    ...
</qbsub>

Listing Three
<qbtcl>
   set sdb(login) $username
</qbtcl>


Listing Four
<qbtcl>
    if {info exists sdb(login)} {
       set userquery "select * from users where login = \"$sdb(login)\""
       set userhandle [ esql query $userquery ]
        ...
    }
</qbtcl>


Listing Five
  ...
<qbtcl>
    # was a login provided?
    if [ info exists qb_val(login) ] {
        set sdb(login) $qb_val(login)  # remember this for future use
    }
</qbtcl>


