ci sono un paio di correzioni da fare

<%
objRs =server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT * from tbl_nome")

Do while NOT objRs.EOF
response.write "nome = " & objRs("nome") & "
"
objRs.Movenext
loop
objRs.Close
%>