<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
ON ERROR RESUME NEXT
	Function GETHTTP(adres)
		Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
			StrHTTP.Open "GET" , adres, false
			StrHTTP.sEnd
			GETHTTP = StrHTTP.Responsetext
		Set StrHTTP = Nothing
	End Function

	URL = "http://www.buradabiradresolsun.com"
	Veri = GETHTTP (Url)

IF Veri="" Then
	Response.Write("Site KAPALI")
Else
	Response.Write("Site AÇIK")
End if
%>