You're welcome! Glad to help..

>Thank you ! :) This is what I am looking for.
>
>
>>This will do what you want:
>>

< %
>>   Dim cName, oFS, cFile
>>   Set oFS = Server.CreateObject("Scripting.FileSystemObject")
>>   cName = "\\COMPUTER\ShareName\TextFile.TXT"
>>   If oFS.FileExists(cName) = False Then
>>      Response.write "The server is not available (Server IP Address file is missing).  Please try again."
>>   Else
>>      Set cFile = oFS.OpenTextFile(cName,1)
>>      cAddress = cFile.Read(25)    ' Read 25 characters from file
>>      Response.Redirect ("http://" & cAddress)
>>      cFile.Close
>>   end if
>>% >
>>

>>Note: Remove the spaces from < % and % >
>>
>>-Ed
>>