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