<%perl>
my $sql=qq|select Dbid from contentpages where Pagename = 'index' AND Cms = '5'|;
my @chosen=$db->select_array("$sql");
foreach my $S (@chosen) {
my @auto=$db->simple_select("select * from contentpages where Dbid = $S AND Cms = '5'");
print $auto[1];
}
