Dim Job1 As HttpJob
Job1.Initialize("JobWriteEnergyRecord",Me)
Dim myPostString2 As String
myPostString2 = "id=" & EnergyC.GetInt("ID") & _
"&fromdate=" & EnergyC.GetLong("FromDate") & _
"&todate=" & EnergyC.GetLong("ToDate") & _
"&esigma=" & EnergyC.GetLong("EnergyOccupied")
Dim ServerString As String
ServerString = "http://192.168.0.15/energy"
Job1.PostString(ServerString,myPostString2)