사이트 URL 유효성 체크

<%

Sub LinkChk( SiteUrl )

Response.Buffer = True

On Error Resume Next

Set objXML = Server.CreateObject("Microsoft.XMLHTTP")

objXML.Open "Get", linkSiteUrl , False

objXML.Send

If Err.Number = 0 Then

response.write "정상"

Else

response.write "에러"

End If

Response.Flush

Err.Clear

End Sub

LinkChk("Site Url")

%>