On Wed, 2002-10-30 at 09:33, [EMAIL PROTECTED] wrote:
> my @emonth;
> while ( @emonth = $end_Months->fetchrow_array()) {
> print HTML "<OPTION VALUE=\"@emonth\">@emonth\n";
> }
Grab the month from the database row before writing the line:
while ( my @row = $sth->fetchrow_array()) {
my $month = $row[0]; # first column of DB row
if ($month eq (split ' ', uc localtime)[1]){
# print SELECTED stuff
} else {
# don't print selected stuff
}
}
--
Nigel Wetters, Senior Programmer, Development Group
Rivals Digital Media Ltd, 151 Freston Road, London W10 6TH
Tel. 020 8962 1346 (direct line), Fax. 020 8962 1311
http://www.rivalsdm.com/ <[EMAIL PROTECTED]>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
