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

[posman]

Si lo que quieres es encontrar el registro en donde id = apellido, entonces mejor utiliza:
registros.open "select apellido from cv where apellido = '" & id & "'",conexion

Con esto simplemente te regresaria los registros en donde el apellido sea igual al id

Código:

registros.open "select apellido from cv where apellido = '" & id & "'",conexion
if registros.eof then
  response.write "No existen registros"
else
  do while not registros.eof
    response.write registros("apellido")
    registros.moveNext
  loop
end if