<%
Dim sRemoved
Dim sOriginal
Dim i
Dim sSplit
sRemoved = "299,188,340"
sOriginal = "344,190,299,234,999,188,234,340"
if(sRemoved<>"")then
sSplit=split(sRemoved,",")
for i=0 to Ubound(sSplit)
sOriginal = replace(sOriginal,sSplit(i),"|")
next
sOriginal =replace(sOriginal,"|","")
sOriginal =replace(sOriginal,",,",",")
if(Mid(sOriginal,len(sOriginal),1)=",")then sOriginal =Left(sOriginal, len(sOriginal) - 1)
Response.write(sOriginal)
end if
%>
|