hey
jeg er enig med keysersoze om metoden. Her lidt kodning på din vej så du i hvert fald kan hente den side du vil sammenligne med den "gamle", så mangler du kun sammenligningen og en afvikling af siden i faste intervaller og det er nok også til at klare.
<%
function GetHTML(url)
Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
xmlhttp.open "GET", url, false
xmlhttp.setRequestHeader "User-Agent","Browser1"
xmlhttp.send()
'tjekker side status
Select Case xmlhttp.status
Case 200 To 299
GetHTML = xmlhttp.Responsetext
Case Else
GetHTML = ""
End select
If err.number <> 0 then
GetHTML = ""
end if
Set xmlhttp = nothing
end function
dim url, sideTekst
url = "
http://www.jubii.dk"sideTekst = GetHTML(url)
if sideTekst = "" then 'funktion returnerer tom side
Response.Write "Siden er nede..."
else
Response.Write "<h1>HTML teksten</h1><xmp>"
Response.Write sideTekst
Response.Write "</xmp><p><hr>"
end if
%>
/hiks