restaurar el response.write

[fildey]

una duda... como hago para q en el loop no me tire todos los nombres seguidos??

este es mi codigo:
<%
dim conexion
set conexion = Server.CreateObject("ADODB.Connection")
conexion.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("cv2.mdb")
conexion.Open
dim registros,id
id = request.QueryString("id")
set registros = Server.CreateObject("ADODB.RecordSet")
registros.open "select apellido from cv",conexion
if id = registros("apellido") then
response.Write(registros("apellido"))
else
do while not id = registros("apellido")
if id = registros("apellido") then
response.Write(registros("apellido"))
else
registros.movenext
response.Write(registros("apellido"))
end if
loop
end if
conexion.close
%>

se q en la parte q esta en rojo me falta algo para q cada vez q pase x ahi me deje el campo vacio...

es tema es q no se q es lo q falta...

si alguine me puede ayudar lo voy a agradecer mucho