llenado de combox

[antonia24]

hola amigos cuando selecciono una opcion de mi combox y me da de alta por ejemplo una marca porque me la agrega asi lo he hecho de 2 formas puse las 2 para ver si me pueden ayudar gracias

id marca marca en esta parte tengo los valores de id_marca=120 y marca=acer y me muestra este resultado

id_marca marca
2 2,0
asi le estoy poniendo a mi codigo

<%
'conexion con la base de datos
sqltxt="select id_marca from marca order by id_marca"
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,Conn
%>
<select name="id_marca" id="select5">
<%

response.write "<option value=0 selected>°°°SELECCIONE LA CLAVE DE LA MARCA°°° "
response.write "<option value=1 selected>189"
response.write "<option value=2 selected>234"
Do while not rs.eof
completa=cstr(rs("id_marca"))
if len(completa)=1 then
completa="0"&completa
end if

Response.Write " <option value='" & completa & "' >" & rs("id_marca") &"</option>"
rs.movenext
completa=""
Loop
%>
</select>
<%
rs.close
set rs = nothing
%>
</p>
</div>
<td width="155"><div align="left"><strong>MARCA
<%
sqltxt="select marca from marca order by marca"
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,Conn
%>
<select name="marca" id="select6">
<%
response.write "<option value=0 selected>°°°SELECCIONE UNA MARCA °°°"
response.write "<option value=1 selected > compaq"
response.write "<option value=2selected> dell"

do while not rs.eof
completa=cstr(rs("marca"))
if len(completa)=1 then
completa="0"&completa
end if

Response.Write " <option value='" & completa & "' >" & rs("marca") &"</option>"
rs.movenext
completa=""
Loop
%>
</select>
<%
rs.close
set rs = nothing
%>


<%
'conexion con la base de datos
sqltxt="select id_marca from marca order by id_marca"
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,Conn
%>
<select name="id_marca" id="select5">
<%

response.write "<option value=0 selected>°°°SELECCIONE LA CLAVE DE LA MARCA°°° "
response.write "<option value=189 selected>189"
response.write "<option value=234 selected>234"

Do while not rs.eof
completa=cstr(rs("id_marca"))
if len(completa)=1 then
completa="0"&completa
end if

Response.Write " <option value='" & completa & "' >" & rs("id_marca") &"</option>"
rs.movenext
completa=""
Loop
%>
</select>
<%
rs.close
set rs = nothing
%>
</p>
</div>
<td width="155"><div align="left"><strong>MARCA
<%
sqltxt="select marca from marca order by marca"
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,Conn
%>
<select name="marca" id="select6">

<%

response.write "<option value=0 selected>°°°SELECCIONE UNA MARCA °°°"

response.write "<option value=compaq selected > compaq"

response.write "<option value=dell selected> dell

do while not rs.eof
completa=cstr(rs("marca"))
if len(completa)=1 then
completa="0"&completa
end if

Response.Write " <option value='" & completa & "' >" & rs("marca") &"</option>"
rs.movenext
completa=""
Loop
%>
</select>
<%
rs.close
set rs = nothing
%>

este codigo me muestra este resultado
id_marca marca
189 compaq,0
234 dell, 0

no entiendo porque me muestra el cero ya que no lo necesito solo la marca me puedes decir que tengo mal