%@language="VBscript"%> <% theDataBaseNameNews = Server.MapPath("/dbase/db.mdb") theConnectionStringNews = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & theDataBaseNameNews & ";" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open theConnectionStringNews SQL = "SELECT * FROM NEWS ORDER BY OrderID ASC" set rsdata = objconn.execute(SQL)%>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||