landon11
02-13-2003, 07:33 PM
I have this and I get the "Expected statement" error on the GoTo RetryCalc line.
RetryCount = 0
RetryCalc:
RC = ControlObj.Socket(objWeb.RequestNo, "NC ")
if RC <> 0 then
if RC = 999 then
RetryCount = RetryCount + 1
Set ControlObj = nothing
Set ControlObj = Server.CreateObject("IISConvert.WebControl")
if RetryCount < 6 then
GoTo RetryCalc
else
ErrorMessage = ErrorMessage & "Cannot establish Socket Connection." & "\n"
exit funciton
end if
else
RetryCount = 0
RetryCalc:
RC = ControlObj.Socket(objWeb.RequestNo, "NC ")
if RC <> 0 then
if RC = 999 then
RetryCount = RetryCount + 1
Set ControlObj = nothing
Set ControlObj = Server.CreateObject("IISConvert.WebControl")
if RetryCount < 6 then
GoTo RetryCalc
else
ErrorMessage = ErrorMessage & "Cannot establish Socket Connection." & "\n"
exit funciton
end if
else