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