<% header= " Last , Vol , High , Low , B-Vol , Bid , Offer , O-Vol ,P.Close ,Chg(Rs),Chg(%)" set conntaurus = server.CreateObject("adodb.connection") conntaurus.open Application("ConnLivequotes_ConnectionString") sql="Select CompanyName from DayWiseTrades where CompanyCode in(" & Addsecurities & ") order by CompanyName" set rs_header= conntaurus.execute(sql) while not rs_header.eof header= header & trim(rs_header("CompanyName")) rs_header.movenext if not rs_header.eof then header= header & "," wend header= header & "" rs_header.close set rs_header=Nothing sql="Select CompanyName from DayWiseTrades where CompanyCode in(" & default & ") Order by Mscrorder" set rs_header= conntaurus.execute(sql) header=header & "" while not rs_header.eof header= header & trim(rs_header("CompanyName")) rs_header.movenext if not rs_header.eof then header= header & "," wend header= header & "" rs_header.close set rs_header=Nothing Application("Header2")=header response.write header %>