Prb en asp aide moi

salut tous le monde
voil je veux réaliser un page web qui contine un tableaue (Reference,diecreption,prix....)
les information sont stocke donnes un base de donner (esc.mdb)
voila mon code
<html>
<head>
DSN_BASE = "DBQ=" & Server.Mappath("esc.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"

Set ConnAfficheRef = Server.CreateObject("ADODB.Connection")

ConnAfficheRef.Open DSN_BASE

Set RsAfficheRef = Server.CreateObject("ADODB.Recordset")
RsAfficheRef.open"select.*from materil ORDER BY Ref",ConnAfficheRef
<%if RsAfficheRef .eof = false then%>
</head>
<body>
<table>
<tr>

<td>Ref</td>

<td>Destination</td>

<td>description</td>

<td>prix</td>

</tr>
compteur=0
<%rsAfficheRef.MoveFirst

DO WHILE not rsAfficheRef.eof%>

<tr>

<td><B><%= rsAfficheRef("reference")%></B></td>

<td><%= rsAfficheRef("Destination")%></td>

<td><%= rsAfficheRef("description")%></td>

<td><%= rsAfficheRef("prix")%></td>

</tr>
compteur=compteur+1

<%rsAfficheLots.MoveNext

loop%>

</table>
<endif>
</body>
</html>

aide moi je saie que ce code continer des faute c'est la premier fois que je travaille avac asp
svp aide moi