<%@ Language=VBScript %>

<%
Response.expires = 0

Set conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Set comm = Server.CreateObject("ADODB.Command")
'conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" &
Server.MapPath(dbPath)
'conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & dbPath
'conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath

conn.open"driver={Microsoft Access Driver
(*.mdb)};dbq=F:\dabs\grid\cs\dabs.mdb"

rs.open "stock", conn, 2, 2


if not rs.eof then rs.movefirst
do until rs.eof
%>

<div align="center">
<table border="1" width="600">
<tr>
<td width="200"><%= FormatCurrency(rs("Ex Vat")) %></td>
</tr>
</table>
</div>


<%
rs.movenext
loop
%>

<% rs.close() %>