<%set rs6=server.CreateObject("ADODB.RecordSet")
rs6.Source ="select top 1 NewsID,Title,Content,UpdateTime,Image,BigClassID,SmallClassID,SpecialID from news where (bigclassid=26) order by NewsID DESC"
rs6.Open rs6.Source,conn,1,1
while not rs6.EOF
Content1=trim(rs6("Content"))
if image>0 then
for i=1 to image
Content1=replace(Content1,"[[image" & i & "]]","")
next
end if
content1=replace(content1,"[[","<")
content1=replace(content1,"]]",">")
DisplayContent1=mid(Content1,1,200)
%>
