كيف اربط قاعدة البيانات بالصفحة

  Set objConn = CreateObject("ADODB.Connection")
  objConn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & _
  Server.MapPath("databaseproject.mdb"))

set rs=objconn.execute("select * from tech_news")

while not  rs.eof 
 response.write rs.subject 
rs.movenext
wend

شكراً لك اخوي عبدالرحمن المعزاب

لكن لم يتم الربط مع قاعدة البيانات ولم تظهر اي نتائج على الصفحة عند عرضها....

ارجوا منكم ان تشرحوا كود ربط قاعدة البيانات شرحاً تفصيلياً وبأسلوب بسيط لكي نتمكن من فهمة .. اي ان توضحوا ماهي الاشياء الثابتة في الكود التي لاتتغير واي الاشياء التي تتغير حسب نوع واسم وماتحتوي علية قاعدة البيانات....لكي نتمكن من ربط بأنفسنا في مشروعاتنا القادمه(طبعاً هذا لايعني اننا سوف نستغني عنكم;) ;) ;) )

وشكراً

المعذرة كان الكود السابق فيه خطاء بسيط

هذا كود مرة أخرى

<%
  Set objConn = CreateObject("ADODB.Connection")
  objConn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & _
  Server.MapPath("db4.mdb"))

set rs=objconn.execute("select * from books")

while not rs.eof 
 response.write rs("name") 
rs.movenext
wend
%>