ASP - Ayuda con base de datos

Hola buenas.
Mi problema es el siguiente. Estoy cogiendo un parametro(cod) que viene de una tabla con diferentes cod el cual tengo que ir juntandolo en una cadena de texto separado por comas.
Siempre que clickeo para pasar el parametro me junta al texto pero si le doy al mismo cod no me junta al texo y si ya tengo esto: 4,5,2,7 y le doy al cod 4 me sale esto:4,; y si le doy al 2 pasa esto:4,5,2.
No se que me esta haciendo.¿Podriais explicarmelo?Os mando el codigo
<%
dim rstm
dim x,i,kk
x=1
set rstm=server.CreateObject("adodb.recordset")
rstm.ActiveConnection=session("con")
rstm.CursorType=adOpenKeyset
rstm.LockType =adLockoptimistic
rstm.Source="select * from mayoristas where id like " & session("pp")
rstm.open
rstm.fields("compra")=rstm.fields("compra")&Request.QueryString("cod")& ","
rstm.Update
%>
<%for i=x to len(lTrim(rstm.Fields("compra")))
session("kk")=mid(rstm.Fields("compra"),i,1)
if session("kk")="," then
%>
<br>
<%else%>
<%Response.Write(session("kk"))%>
<%end if%>
<%next