|
|
|
|
|
|
<%
set conn = Server.CreateObject("adodb.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("tsl.mdb")
set rs1=server.createobject("adodb.recordset")
conn.open connstr
catid = request("cat_id")
strsql="select * from news_mast where news_flag='Yes' and cat_id="&catid
rs1.Open strsql,conn
if not rs1.EOF then
rs1.MoveFirst
while not rs1.EOF
%>
| <%=rs1("news_head")%> |
 |
|
| |
<%
img=rs1("news_img")
if not trim(img)="" then
%>
|
<%end if%>
<%=rs1("news_text")%> |
| |
<%
rs1.MoveNext
wend
rs1.Close
set rs1=nothing
end if
%>
|
|
|
|
| |
|
