<%
strCountFileName = server.mappath("/CGI-BIN") & "/CameraIP.txt"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
If Not objCountFile.AtEndOfStream Then
IPv = objCountFile.ReadAll
End If
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
if IPv = Request.ServerVariables("REMOTE_ADDR") then
IPv = "192.168.1.250:8081"
else
IPv = IPv & ":8081"
end if
%>