if ($q->param('list1') eq '')
{
print "<tr bgcolor=\"#ffffff\">
  <td class=\"colhead\">List1</td>
  <td><select name='list1' size=\"1\" style=\"background-color:#DDD;\">";

while (my ($ca) = $sth1->fetchrow_array())
{
 print "<option value=\"$ca\">$ca</option>";
}
print "</select>
  </td>
</tr>";
}
else
{
print "<tr bgcolor=\"#ffffff\">
  <td class=\"colhead\">List1</td>
  <td><select name='list1' size=\"1\" style=\"background-color:#DDD;\">";

 print "<option value=\"". $q->param('list1') ."\">". $q->param('list1') ."</option>";
print "</select>
  </td>
</tr>";	
}