ASP loop Import Export data processing do not use caching _ Application Tips

<%
'//Data Processing Section
Dim Content,num,i,strcodea

I=request ("I")
If Len (I) =0 then i=0
Response.Write "<br><div align=center> The program has now been looping through the" &I& "secondary data </div><br>"

Strcodea= ' uploadfiles/news '//need to query for strings included
Strcodeb= "" ""/uploadfiles/news "//replaced string
Strcodec= "" "" http://www.jb51.net/uploadfiles/news "//replacement string

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 (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
%>