No entiendo a que te refieres con que se repite. ¿Te refieres a que el bucle te escribe repetidamente lo mismo?
Tienes que asignar a codigo_portatil el campo cada vez que incrementes el recordset RS1 y tú sólo lo haces una vez antes de entrar en el bucle. Escribelo así:
<% Do While Not RS1.EOF
codigo_portatil = RS1("cod_portatil")
Response.Write(codigo_portatil)
RS1.MoveNext
Loop
%>
¿Ves la diferencia? Ahora en cada iteración del bucle consultas el valor del campo cod_portatil del recordset de cada registro obtenido en tu consulta lo asignas a la variable codigo_portatil y lo imprimes con Response.Write por pantalla.
Te podrias ahorrar asignarlo a la variable codigo_portatil imprimiéndolo por pantalla directamente del recordset RS1. Así:
<% Do While Not RS1.EOF
Response.Write(RS1("cod_portatil")
RS1.MoveNext
Loop
%>
<div align="left">
<img src="http://www.sfn.saskatoon.sk.ca/~ad676/moon/img/kissy.gif" border="0">
</div>