<% Dim bgColorVal,newsheadColorVal,newsTextColorVal,dateTimeColorVal,viewDetailsColorVal bgColorVal=setHashCodeValue(Trim(Request.QueryString("bgcolor"))) newsheadColorVal=setHashCodeValue(Trim(Request.QueryString("headcolor"))) newsTextColorVal=setHashCodeValue(Trim(Request.QueryString("fontcolor"))) dateTimeColorVal=setHashCodeValue(Trim(Request.QueryString("datecolor"))) viewDetailsColorVal=setHashCodeValue(Trim(Request.QueryString("viewcolor"))) If bgColorVal="" Then bgColorVal="#434343" If newsheadColorVal="" Then newsheadColorVal="#ffffff" If newsTextColorVal="" Then newsTextColorVal="#ffffff" If dateTimeColorVal="" Then dateTimeColorVal="#FFC20E" If viewDetailsColorVal="" Then viewDetailsColorVal="#ffffff" %> Latest News <% Dim slNoVal Dim rsStocks Dim newsTitle() Dim newsDetails() Dim newsPostedDateTime() Dim newsPageLink() Dim newsPostedFrom() Dim newsCountVal newsCountVal=0 Dim urlPathVal Dim postedFrom postedFrom="Capmarketpro" 'urlPathVal="http://news.capmarketpro.com/News/Service1.asmx/Rss2?CateGory=nepalnews&ID=0&maxcount=40" 'Call getRssNewsFeeds(urlPathVal,postedFrom,1,4,3,2) 'urlPathVal="http://www.bignewsnetwork.com/index.php/nav/rss/7399985502eaed63" urlPathVal="https://feeds.bignewsnetwork.com/category/7399985502eaed63" Call getRssNewsFeeds(urlPathVal,postedFrom,0,1,3,2) postion = 0 %>
<% If (newsCountVal>0) Then Dim i Dim retNosArr Dim currentDateVal,currentPrevDateVal retNosArr = getRandomNosArray(UBound(newsTitle),LBound(newsTitle),UBound(newsTitle)-1) For i = LBound(retNosArr) To UBound(retNosArr) ' currentDateVal=FormatDateTime(Date(),1) 'currentPrevDateVal= FormatDateTime(DateAdd("d",Date(),-1),1) tempDateVal=ReplaceForDateStr(newsPostedDateTime(retNosArr(i))) If len(Trim(RemoveHTML(newsDetails(retNosArr(i)))))>100 Then %>

<%=Trim(newsTitle(retNosArr(i)))%> <%=mid(Trim(RemoveHTML(newsDetails(retNosArr(i)))),1,250)%>
<%=tempDateVal%>

<% 'response.Write(len(Trim(RemoveHTML(newsDetails(retNosArr(i)))))) postion = postion+80 End If Next End if %>
<% Function RemoveHTML( strText ) Dim nPos1 Dim nPos2 nPos1 = InStr(strText, "<") Do While nPos1 > 0 nPos2 = InStr(nPos1 + 1, strText, ">") If nPos2 > 0 Then strText = Left(strText, nPos1 - 1) & Mid(strText, nPos2 + 1) Else Exit Do End If nPos1 = InStr(strText, "<") Loop RemoveHTML = strText End Function Private Sub getRssNewsFeeds(urlPathVal,postedFrom,titlePos,DetailsPos,datePos,linkPos) Dim objXML Dim objItemList Dim objItem on error resume next Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument") objXML.async = False objXML.setProperty "ServerHTTPRequest", True objXML.Load(urlPathVal) Set objItemList = objXML.getElementsByTagName("item") For Each objItem In objItemList Redim Preserve newsTitle(newsCountVal+1) Redim Preserve newsDetails(newsCountVal+1) Redim Preserve newsPostedDateTime(newsCountVal+1) Redim Preserve newsPageLink(newsCountVal+1) Redim Preserve newsPostedFrom(newsCountVal+1) newsTitle(newsCountVal)=Trim(objItem.childNodes(titlePos).text) newsDetails(newsCountVal)=Trim(objItem.childNodes(DetailsPos).text) If datePos=-1 Then newsPostedDateTime(newsCountVal)=Date() Else newsPostedDateTime(newsCountVal)=Trim(objItem.childNodes(datePos).text) 'FormatDateTime(Trim(objItem.childNodes(5).text),1) End If newsPageLink(newsCountVal)=objItem.childNodes(linkPos).text newsPostedFrom(newsCountVal)= postedFrom newsCountVal=newsCountVal+1 Next Set objItemList = Nothing Set objXML = Nothing End Sub Public Function getRandomNumber(UpperVal,LowerVal) Randomize getRandomNumber = Int((UpperVal - LowerVal + 1) * Rnd + LowerVal) End Function Public Function getRandomNosArray(UpperVal, LowerVal, totalCntVal) On Error Resume Next If totalCntVal > ((UpperVal + 1) - (LowerVal - 1)) Then Exit Function Dim x Dim n Dim arrNums() Dim colNumbers Dim tempArrVal() Redim tempArrVal(totalCntVal - 1) For x = 0 to totalCntVal-1 tempArrVal(x)=x Next incArrCnt=0 For x = 0 To totalCntVal - 1 n = getRandomNumber(0, totalCntVal-1) If tempArrVal(n)<>"" Then ReDim Preserve arrNums(incArrCnt) arrNums(incArrCnt) = tempArrVal(n) incArrCnt=incArrCnt+1 End If tempArrVal(n)="" Next getRandomNosArray = arrNums Exit Function End Function Function ReplaceForDateStr(strVal) Dim firstColon Dim tempStr On error resume next firstColon=Instr(strVal,":") If firstColon>0 Then tempStr=Mid(strVal,1,firstColon-4) Else tempStr=strVal End If tempStr=FormatDateTime(CDate(Mid(tempStr,5)),1) ReplaceForDateStr=tempStr End Function Function setHashCodeValue(strVal) strVal=Trim(strVal) If Len(strVal)>0 And Left(strVal,1)<>"#" Then strVal="#" & strVal setHashCodeValue=strVal End Function %>