<% 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)='MR' order by accountid 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") 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 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%>

<% Set RS1 = Server.CreateObject("ADODB.Recordset") SQL = "Select * FROM news_master where (ucase(accountsubtype)='MR') 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 %> Other News <% 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 %>