Local Weather

<% 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 %>