사이트 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.ClearEnd SubLinkChk("Site Url")%>