האם החיבור הזה תקין?

הנה

ישרתי לשמאל… והנה הבעיה שלי:
אני רוצה לעשות חיבור למסד נתונים, יש לי מסד ואני רוצה להציג את תוכנו בדף… זה הדף(הקוד למטה)  שמסמל את החיבור למסד

אבל הוא לא מחבר לי אותו למסד… בדף המיועד הוא לא מציג כלום… מה אני צריך לעשות? אני החיבור תקין?

<%
dim conn
set conn=server.createobject("ADODB.connection")

dim connstring
connstring = "provider=microsoft.jet.oledb.4.0; data source=" &
server.MapPath("bookstore.mdb")

conn.open connstring

dim rs, sql
set rs=server.createobject("ADODB.recordset")
sql="select * from books order by book_id"
rs.Open sql, conn

if rs.EOF =true and rs.BOF=true then
Response.Write "<center>אין ספרים כרגע ברשימה"
end if

Response.Write "<center><table border=1 cellpadding=2 BGCOLOR=Yellow>"
do while not rs.EOF

Response.Write "<tr>"
Response.Write "<td align=right>" & formatcurrency(rs("price")) & "</td>"
Response.Write "<td align=right>" & rs("author") & "</td>"
Response.Write "<td align=right>" & rs("title") & "</td>"
Response.Write "</tr>"
  

rs.MoveNext
loop

Response.Write "</center></table>"

rs.close
set rs=nothing
conn.Close
set conn=nothing
%>

וואיי…
אני אובד עצות.. בבקשה תעזרו לי…