<%
On Error Resume Next
site = Request.Form("URL")
If Len(site) > 0 then
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", site, False
xml.send
cont = xml.responseText
Set xml = Nothing
If Len(cont) > 100 then
set re = new RegExp
re.global=false
re.ignoreCase=true
re.pattern = "()(.+)()"
If re.test(cont) then
set matches = re.execute(cont)
set match = matches(0)
title = match.SubMatches(1)
End If
re.pattern = "()"
If re.test(cont) then
set matches = re.execute(cont)
set match = matches(0)
descr = match.SubMatches(5)
End If
If Len(title) = 0 AND Len(descr) = 0 then
result = "nometa"
Else
result = "ok"
End If
Else: result = "nosite"
End If
%>
<%
End If
%>