<%Set RsLink=Server.CreateObject("Adodb.RecordSet")
SqlLink="Select * from news where NewsClassid=80"
RsLink.Open SqlLink,Conn,1,1
Response.Write(" | ")
do while Not RsLink.eof
Response.Write RsLink("NewsContent")
RsLink.MoveNext
Loop
RsLink.close
Set RsLink=Nothing
Set SqlLink=Nothing
Response.Write(" | |
")
%> |