Loop through and list records from a database with classic ASP

Dim strDbConnection
Dim objConn
Dim objRS
Dim strSQL
strDbConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.mdb;"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open(strDbConnection)
strSQL = "SELECT fullName, birthDate FROM persons"
Set objRS = objConn.Execute(strSQL)
If objRS.EOF Then
  Response.Write("No items found")
Else
  Do While Not objRS.EOF
    Response.Write(objRS.Fields("birthDate").value & ", ")
    Response.Write(objRS.Fields("fullName").value & "<br />")
    objRS.MoveNext()
  Loop
End If
objRS.Close()
Set objRS = Nothing
objConn.Close()
Set objConn = Nothing