영삼넷IT 강국 = 김영삼 블로그에 오신걸 환영합니다.

<%

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 )

%>