| |
 | <%
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
%> |
|
| |
|
| |
NEWSLETTERS