this will at least get you started, i dont have the time or desire to write the whole thing for you, but you should be able to take the following and tweak it to your needs..... if you need RegEx help,
ASPFaqs is an excellent resource....
<%@ Language=VBScript %>
<% Response.Expires = -1 %>
<% Response.Buffer = True %>
<%
PageDomain = "http://www.jenric.freeserve.co.uk/"
PageLocation = PageDomain & "links.htm"
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", PageLocation, False
xml.Send
strHTML = xml.ResponseText
Set xml = Nothing
Dim objRegExp, objMatch, objMatches
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
%>
<html>
<body style="font-size: 10px; font-family: verdana;">
All Retrieved Images/Links/Both from <a href="<%= PageLocation %>" target="_blank"><b><%= PageLocation %></b></a><hr />
<br />
<font style="color: blue;">Just Images:</font><br />
<%
objRegExp.Pattern = "<img border=""0"" src=""graphics_new/(.*?)>"
Set objMatches = objRegExp.Execute(strHTML)
For Each objMatch in objMatches
Response.Write( Replace(objMatch,"src=""grap", " align=""left"" src=""" & PageDomain & "grap") )
Response.Write(Server.HTMLEncode(objMatch) & "<br clear=""all""/>")
Next
%>
<br /><hr />
<font style="color: blue;">All Links:</font><br />
<%
objRegExp.Pattern = "<a (.*?)</a>"
Set objMatches = objRegExp.Execute(strHTML)
For Each objMatch in objMatches
Response.Write( Server.HTMLEncode(objMatch) & "<br clear=""all""/>")
Next
%>
<%
Set objMatch = Nothing
Set objRegExp = Nothing
%>
</body>
</html>
Topic Options
Post Options
Thanks(0)
