View Single Post
  #4 (permalink)  
Old June 19th, 2003, 11:35 AM
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

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

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

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