dim scar
scar=split(xxcar)
for j=LBound(scar) To UBound(scar)
select case j
case 5,10,15,20,25
xcar12=xcar12 & "<p>"
end select
xcar12=xcar12 & " " & "<a href='data/zbgl/addcar.asp?id=" & scar(j) & "' target='_blank' class=class>" & scar(j) & "</a>"
next