uma alteração

Seguinte. pode ser uma coisa boba d se fazer, mas eu to comçando na area d sistemas então é meio complicado pra mim isso ainda.

eu tenho duas strings, uma d usuarios e outra d leitura q são mais ou menos assim

USUARIOS: A, B, C, D,

LEITURA: 0, 1, 0, 1,

bom e eu fiz isso para quebar-los:

function RetornaUsuario(id)

 strSQL= "Select * from circDoc_Usuarios where idDoc=" & id

 'Response.write(strSQL)

 set RS0= oCon.Execute(strSQL)

 

 usuarios= RS0("usuario")

 leitura= RS0("leitura")

 

 tamanho= 0

 status= 0

 pessoa= usuarios

 j= 0

 mostrar= ""

 

 

 usuarios= Split(usuarios,",")

 

 for i= LBound(usuarios) to UBound(usuarios)

 tamanho= tamanho + 1

 'Response.Write(usuarios(i) & "<br>")

 next

 tamanho= tamanho - 1

 

 leitura= Split(leitura,",")

 

 for i= LBound(leitura) to Ubound(leitura)

 status= status + 1

 next

 status= status - 1

 

 for j= 0 to status

 if leitura(j)= "0" then

 mostrar= usuarios(j) & ", "

 Response.write(mostrar)

 end if

 next

end function

gostaria d saber como eu vou fazer na hora d editar um unico elemento por exemplo o usuario c, onde seu status mudará d 0 para 1

Obrigada http://forum.imasters.com.br/public/style_emoticons/default/joia.gif