<%
Sub LinkChk( linkSiteUrl )
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( http://www.test.co.kr )
%>