Set httpobj = server.createObject ("asphttp.conn") DIM FD FD = 111 SearchFolder FD
'The following is the process Sub SearchFolder (FD)
Do While Fd <> 500 response.write fd httpobj.ur = "http://www.object.net/read.asp?articleid="&fd httpobj.RequestMethod =" get "content = httpobj.geturl
'Take the title ") POS2 = INSTR (POS1, Content, " TD>") Title = MID (Content POS1 1, POS2-POS1-1) 'Source
'IDNO POS1 = INSTR (1, Content, "ArticleID") POS2 = INSTR (POS1, Content, ">") IDNO = MID (Content, POS1 10, POS2-POS1-10)
'Content POS1 = INSTR (1, Content, "
'The following database operation: rs.addnew r ("name") = Title RS ("Source") = COMEFROM RS ("Content") = Trim ("IDNO") = Trim (IDNO) rs.Update FD = fd 1 loopend sub 'end
Response.Write FD & "
"
rs.close set conn = Nothing set fs = not%> body> html>