Replace Not Working In Loop

I am trying to replace the word hello with the names from a database then write them out. When I write out the variable "txt" it shows four records but they are all the same. When I write out ("Name").Value it shows four records all different which is correct. Can anyone help "txt" be replaced correctly with the four names???

Dim txt
txt= "hello"
Do While Not emails.eof
txt = Replace(txt, "hello", (emails.Fields.Item("Name").Value))
Response.Write txt
Response.Write (emails.Fields.Item("Name").Value)
emails.movenext
Loop