Web Development

Dim ds as DataSet = SqlHelper.ExecuteDataSet(..........)

Dim str as String = CType(ds.Table(0).Rows(0)(1),String)

public function list_of_numbers($from, $to, $selected=null, $aslist=false){
        
        $list='';
        while ($from <= $to) {
            $list .=$from . "\n";
            $from++;
        }
        
        if ($aslist) {
            return $list;
        }else{
            $arrayofages = array_diff(explode("\n",$list), array(""));
            
            
            $newlist = null;
            foreach ($arrayofages as $key=>$age){
                $string = '';
                $string = "<option value=\"$age\"";
                if ($age == $selected) {
                    $string.=' selected="selected"';
                }
                $string .= '>'. $age."</option>\n";
                $newlist .= $string;
            }
            return $newlist;
        }
    }