 |
|
|
|
 |
| |
 |
<%
Dim conn,rs
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("./krlml/betar.mdb")&";"
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "Select newsdesc,newsid,newstitle from company order by newsno desc"
RS.Open SQL ,Conn ,1,2
if rs.bof and rs.eof then
%>
<%
else
No = 1
Do While NOT Rs.EOF
nid=rs("newsid")
ntitle = Rs("newstitle")
ndesc = Rs("newsdesc")%>
<%
rs.movenext
no=no+1
'next
loop
end if
%>
|
|
| |
|
|
|
|
 USEFUL LINKS |
COMING SOON
|
|
|
 |
|