_
<%
dim adoConn
dim adoRs
set adoConn = Server.CreateObject("ADODB.Connection")
set objnoticia = Server.CreateObject("ADODB.Recordset")
adoConn.open "Driver={MySql ODBC 3.51 Driver};Server=localhost;Database=centralh_chc;Uid=centralh_central;Pwd=papelcentral;"
objnoticia.ActiveConnection = adoConn
sql="select * from noticias order by id;"
objnoticia.open sql
%>
