<%
Dim conObj
Set conObj = Server.CreateObject("ADODB.Connection")
conObj.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../BANCO/BANCO.mdb") & ";"
sql = "SELECT COUNT(*) as ID from CADASTRO"
set rs = conObj.execute(sql)
vtotal = rs("ID")
if vtotal = 0 then
response.write "Nenhum registro"
else
response.Write("vtotal")
end if
%>
Meu BD tem 02 registros, porque este script não me retorna nenhum resultado?