' ' Assumes:There are 3 pages: 'check.asp To post the url and receive the result of the check. 'checkurl.asp this page will Do the check 'checkdone.asp; this page will post the results back To the referer. ' ' Side Effects:In order to make this scr ' ipt work you server should have IE 5+ in ' stalled. ' '****** check.asp **** 'part 1: the post form '********************* <% strFrom=Request.Form("result") strResult=Request.Form("url") %> URL check

<%= strFrom %>

<%= strResult %>

'****** checkurl.asp **** 'part 2: the actual check '************************ <% strURL=Request.Form("url") If strURL<>"" Then If Left(LCase(strURL),7)<>"http://" Then strURL="http://" & strURL End If On Error Resume Next Dim objHTTP Dim sHTML Set objHTTP = Server.CreateObject ("Microsoft.XMLHTTP") objHTTP.open "GET", strURL, False objHTTP.send sHTML=objHTTP.statusText If err Or sHTML<>"OK" Then sTxt="fail" Else sTxt="ok" End If Set objHTTP=Nothing Else sTxt="fail" End If strFrom=Request.ServerVariables("HTTP_REFERER") p=InStr(1,strFrom,"?") If p>0 Then strFrom=Left(strFrom,p-1) End If Response.Redirect "checkdone.asp?result=" & sTxt & "&ref=" & strURL & "&return=" & strFrom %> '****** checkdone.asp **** 'part 3: post the results back to the re ' ferer '************************ <% strRes=Request.QueryString("result") strRef=Request.QueryString("ref") strRet=Request.QueryString("return") %>