<%
set rs2=server.CreateObject("ADODB.RecordSet")
rs2.Source="select Top 8 * from jrnews order by NewsID"
rs2.Open rs2.Source,conn,1,1
while not rs2.eof
strnews=rs2.fields("Title")
strid=rs2.fields("NewsID")
response.Write "" %> "target="_blank">
<%
response.Write trim(strnews) & " | " &""
rs2.movenext
wend
rs2.close
%>
|
|
<%
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.Source="select Top 8 * from ytnews order by NewsID"
rs1.Open rs1.Source,conn,1,1
while not rs1.eof
strytnews=rs1.fields("Title")
strytid=rs1.fields("NewsID")
response.Write "| " %>"target="_blank">
<%
response.Write trim(strytnews) & " | " &""
rs1.movenext
wend
rs1.close
%>
|
|
