%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' Declaring Information Variables Dim strDate Dim strTitle Dim strEntDetail Dim strEntID ' Declare an object called NewsConn to store the database connection Set EntertainmentConn = Server.CreateObject("ADODB.Connection") ' Open the database using the Access DSN-less driver EntertainmentConn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\db\golf.mdb")) ' Prepare the SQL Query that will retrieve all headline news from the database SQL_query = "SELECT entertainment_id, entertainment_date, entertainment_title, entertainment_details FROM entertainment ORDER BY entertainment_date" ' Retrieve the entertainment items from the query and store them in the recordset object Set rsEntertainment = EntertainmentConn.Execute(SQL_query) %>