function allpic(pics)
	dim pi,parr
	parr=split(pics,"|||")

 	for pi=0 to ubound(parr)
		dim tarr,t_pic,a_pic,t_alt
		tarr=split(parr(pi),"|")
		t_pic=tarr(0)
		a_pic=tarr(1)
		t_alt=tarr(2)
  allpic=allpic&   "<li>"
    allpic=allpic&     " <div><a href=""javascript:void(0)"" rel="""&t_pic&""" info="""&t_alt&""" ><img src="""&t_pic&""" width=""100"" height=""75""/><span>"&t_alt&"</span></a></div>"
  allpic=allpic&  "</li>"
	 
	next 


actcool=allpic
end function 