View Single Post
  #4 (permalink)  
Old June 19th, 2003, 12:35 PM
NotNowJohn NotNowJohn is offline
Friend of Wrox
 
Join Date: Jun 2003
Location: Wien, Wien, Austria.
Posts: 158
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via ICQ to NotNowJohn
Default

You can use this function to check the status of the page 2 before the redirection:

Code:
Function CheckPageStatus(PageToCheck)
    Dim objXMLHTTP
    dim StatusOK
    set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") 
    objXMLHTTP.Open "GET", PageToCheck, false
    objXMLHTTP.Send
    if objXMLHTTP.status=200 then
        StatusOK=1
    else
        StatusOK=0
    End If
    CheckPageStatus=StatusOK
    Set objXMLHTTP= Nothing
End Function


...but the Soon is eclipsed by the Moon
Reply With Quote