Hii mikedeepak!!
Plz try this,
Currently I do not have any database on my system :)
So I use array instead of your recordset.
Note:-rs(0) -stands for arrname
rs(1) -stands for arrvalue
<%
dim arrname(5)
dim arrvalue(5)
arrname(0)="Personal Loan"
arrname(1)="Personal Loan"
arrname(2)="Personal Loan"
arrname(3)="Personal Loan"
arrname(4)="Home Loan"
arrname(5)="Home Loan"
arrvalue(0)="PLType1"
arrvalue(1)="PLType2"
arrvalue(2)="PLType3"
arrvalue(3)="PLType4"
arrvalue(4)="HLType1"
arrvalue(5)="HLType2"
searchstr=""
output=""
prevsearchstr=""
for i=0 to ubound(arrname)
if(searchstr="") then 'first time getting value
output=output & arrname(i) &"(" &arrvalue(i)
prevsearchstr=arrname(i)
searchstr=arrname(i)
else
if(prevsearchstr=arrname(i)) then
output=output & "/"& arrvalue(i)
prevsearchstr=arrname(i)
else
output=output & ")"
response.write(output &"<br>")
output= arrname(i) &"(" &arrvalue(i)
prevsearchstr=arrname(i)
searchstr=arrname(i)
end if
end if
if(i=ubound(arrname)) then
response.write(output&")")
end if
next
%>
Hope this will help you
Cheers :)
vinod
|