 |
| |
 |
<%
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
%>
|
|
| |
|
|
|
|
 FEEDBACK |
If you require special needs to be prayed for, kindly enter your prayer request in the box below. You can also put your suggestions, complains, request etc. Please explain the situation in detail.
|
|
