Belirttiğim gibi herşey sürekli deneme yapmaya bakıyor. İlk başlarda bende title vs. çekerek başladım. Söylediğiniz gibi bu konuda kaynak yok. Mantık çok basit. Sitenin kaynak koduna bağlanıp ordaki html kodlarından onu arındırıp, ilgili içeriği almak.

Bunun içinde, mid, instr, split, replace gibi fonksiyonlar kullanacaksınız.

Yol göstermesi bakımından, aynen c/p yapınız

<%
' coded by ShN!
' https://www.r10.net/members/9879-sahinet.html
Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
StrHTTP.Open "GET" , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function

function koru(shn)
shn=replace(shn,"<title>","")
koru = shn
end function

kaynak = GETHTTP("https://www.r10.net/asp/801672-asp-bot-detayli-aciklama-yardim.html") ' r10 da çekilecek konu :)

baslik1=instr(kaynak,"<title>")
baslik2=instr(kaynak,"</title>")
baslik = mid(kaynak,baslik1,baslik2-baslik1)

mesaj1=split(kaynak,"<div id=""post_message_")

response.write "<b>Konu Başlığı : </b>" & koru(baslik) ' konunun başlığını çektik
response.write "<hr>"

for i = 1 to ubound(mesaj1) ' ## Mesajları Çekelim:
mesaj2=split(mesaj1(i),"<div style=""margin-top: 10px"" align=""right"">")
response.write mesaj2(0)
response.write "<hr>"
next
%>

kolay gelsin