RATES :
   
 

<% StrCon= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("/krlml/betar.mdb") & ";Persist Security Info=False" %> <% Dim conn,rs1 Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("/krlml/betar.mdb")&";" Set RS1 = Server.CreateObject("ADODB.Recordset") SQL = "Select accountid,accountname from news_master where ucase(accountsubtype)='CM' order by tid desc" RS1.Open SQL ,Conn ,1,2 if rs1.bof and rs1.eof then %> <% else totnews="" No = 1 Do While NOT Rs1.EOF nid=rs1("accountid") ntitle = Rs1("accountname") totnews=totnews+" ....... "+ ntitle rs1.movenext no=no+1 'next loop end if %> <% nid=request.querystring("id") 'response.write nid Set RS = Server.CreateObject("ADODB.Recordset") SQL = "Select * FROM news_master where accountsubtype='CM' and accountid='"&nid&"'" RS.Open SQL ,Conn ,1,2 if rs.bof and rs.eof then else rs.movefirst ntitle = Rs("accountname") ndate = Day(Rs("accountdate"))&"-"&month(Rs("accountdate"))&"-"&year(Rs("accountdate")) ndesc = Rs("accountdesc") nfile=Rs("accountphoto1") %>

<%=ntitle%>
<% if len(nfile)<5 then else %> <%end if%> Date:  <%=ndate%> |
<%=ndesc%>

<%set rs=nothing%> <%end if%>
 
 
Other News <% Set RS1 = Server.CreateObject("ADODB.Recordset") SQL = "Select * FROM news_master where accountsubtype='CM' and not accountid='"&nid&"' order by tid desc" RS1.Open SQL ,Conn ,1,2 if rs1.bof and rs1.eof then else do while not rs1.eof ntitle = Rs1("accountname") ndate = Day(Rs1("accountdate"))&"-"&month(Rs1("accountdate"))&"-"&year(Rs1("accountdate")) ndesc = Rs1("accountdesc") nfile=Rs1("accountphoto1") %>

<%=ntitle%>
<% if len(nfile)<5 then else%> <%end if%> Date:  <%=ndate%> 
<%=ndesc%>

 
 
<% rs1.movenext loop end if %>
 

 
<% Dim conn2,rs2 Set Conn2 = Server.CreateObject("ADODB.Connection") Conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("/krlml/betar.mdb")&";" Set RS2 = Server.CreateObject("ADODB.Recordset") SQL = "Select accountid,accountname from news_master where ucase(accountsubtype)='MR' order by tid desc" RS2.Open SQL ,Conn2 ,1,2 if rs2.bof and rs2.eof then %> <% else mnews="" No2 = 1 Do While NOT Rs2.EOF nid2=rs2("accountid") ntitle2 = Rs2("accountname") %>
<%=ntitle2%>
   
<%rs2.movenext no2=no2+1 'next loop end if %>
--------------------------------------------------
<% StrCon= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("/krlml/betar.mdb") & ";Persist Security Info=False" %> <% dim strMsg set con=Server.CreateObject("ADODB.connection") con.open strcon set rs= Server.CreateObject("ADODB.Recordset") strSQL="select * from currency_master where (ucase(accountid)='USD' or ucase(accountid)='INR' or ucase(accountid)='GBP' or ucase(accountid)='EUR' or ucase(accountid)='PKR') order by accountid desc" rs.Open strSQL,Con,2,3 %>
 Currency Buy Sell
<% IF RS.EOF THEN else while not rs.EOF %> <% rs.MoveNext wend end if %>
 <%=rs("accountid")%> <%=formatnumber(rs("accountoption2"),2)%> <%=formatnumber(rs("accountoption3"),2)%>
More Rates   
<%set rs=nothing%> <% set con=nothing %>