» Market Data » Market Commentary

Market Data » Market Commentary



<% set dbconn=getDB() requestid = request.QueryString("mcid") 'table view Set rs=Server.CreateObject("ADODB.Recordset") rs.cursortype=3 strSql="select * from market_comments where delstatus=0 and readstatus=1 and cno="&requestid&" order by cno desc" rs.Open strSql,dbconn %>
Market Commentary
<% if rs.recordcount<>0 then bgcol=1 while not rs.eof %> <%if rs("comments_by")<>"" then%> <%end if%> <%bgcol=bgcol+1 rs.movenext Wend %> <% else %> <%end if%>
 
 
<%=rs("title")%> <%=itemdateformat(rs("entrydate"))%>
<%=rs("statement")%>
<%=rs("comments")%>

By,
<%=rs("comments_by")%>
Market Commentry unavailable now
<% function itemdateformat(val) dim monthNames(12) monthNames(1)="JAN" monthNames(2)="FEB" monthNames(3)="MAR" monthNames(4)="APR" monthNames(5)="MAY" monthNames(6)="JUN" monthNames(7)="JUL" monthNames(8)="AUG" monthNames(9)="SEP" monthNames(10)="OCT" monthNames(11)="NOV" monthNames(12)="DEC" splitval=split(val,"/") dim dateName dateName = splitval(1) if len(dateName)<=1 then dateName = "0"&dateName end if 'itemdateformat=splitval(1)&" "&monthNames(splitval(0))&" "&right(splitval(2),4) itemdateformat=monthNames(splitval(0))&" "&dateName&", "&left(splitval(2),4) End function %>