| |
 |
 |
|
<%
dim rs1
dim conn
if not Conn_Flag=true then
set conn=server.createobject("adodb.connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("tsl.mdb")
conn.open connstr
end if
set rs1=server.createobject("adodb.recordset")
strsql="select * from news_mast where news_flag='Yes'"
if not Conn_Flag=true then
rs1.Open strsql,conn
else
rs1.Open strsql,conn1
end if
if not rs1.EOF then
rs1.MoveFirst
while not rs1.EOF
%>
|
| <%=rs1("news_head")%> |
<%=rs1("news_shorttxt")%>
|
|
|
<%
rs1.MoveNext
wend
rs1.Close
end if
%>
|
|
|
