$sSQL = " select japanese_longname, \n";
$sSQL .= " japanese_shortname \n";
$sSQL .= " from
\n";
$sSQL .= " where instrument_id = '1301' \n";
$sSQL .= " and instrument_type = 'ST' \n";
#print("Sql i d $sSQL\n");
$dbFOX_sth=$dbFOX->prepare($sSQL);
$dbFOX_sth->execute();
if ( @row = $dbFOX_sth->fetchrow_array ) {
foreach ( @row)
{
$_ = Encode::decode_utf8( $_ );
}
( $sInstrumentNameJ, $sInstrumentShortJ ) = @row;