Set rs = server.CreateObject("adodb.recordset") rs.open "select content From news where id="I" and siteid=1 order by id desc",conn,1,1 If not(rs.eof or rs.bof) then
Content=rs("content") Num=instr(content,strCodea) If Num>0 then If right(left(content,Num),2)="""""/" then content=replace(content,strCodeb,strCodec) end if end if
end if Rs.close
II=I+1 response.write("meta http-equiv=""refresh"" content=""0;url=?I="I""">") Set rs = Nothing %>
