.echo -q $com(mysql.Database, Open, 1, *bstr, %Connection.String)
.comopen RecordsetObject ADODB.Recordset
var %SQL = SELECT * FROM news;
.echo -q $com(RecordsetObject, Open, 1, *bstr, %SQL, dispatch, mysql.Database, int, 2, int, 3, int, 1)
.echo -q $com(RecordsetObject, Collect, 2, i4, 0)
.echo -q $com(RecordsetObject, Collect, 2, i4, 1)
var %date = %date $com(RecordsetObject).result
.echo -q $com(RecordsetObject, Collect, 2, i4, 2)
var %by = %by $com(RecordsetObject).result
.echo -q $com(RecordsetObject, Collect, 2, i4, 3)
var %news = %news $com(RecordsetObject).result
.echo -q $com(RecordsetObject, Collect, 2, i4, 4)
else echo -gaitc info *
/say 15•14•7•14 $1 Sidste nyt! 15•14•7•14
/say 15•14•7•14 Dato:-> %date 15•14•7•14
/say 15•14•7•14 Skrevet af:-> %by 15•14•7•14
/say 15•14•7•14 Nyheden:-> %news 15•14•7•14
.comclose RecordsetObject
.comclose mysql.Database
}