<% Dim conn, dbcon , rs ,dbname, dbuid, dbpwd Conn = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=ewura; UID=ewura;PASSWORD=ewura; OPTION=16387" Set dbcon = Server.CreateObject("ADODB.Connection") dbcon.Open(conn) %> <% Set rs = dbcon.Execute("Select news_cd, ntitle, ndetail, ndos, islink from newsdet order by ndos desc") %>