Hey guys. I'm trying to make a simple web page that displays the current cool setpoint on my zwave thermostat.
I'm trying to pull parts from this event script:
tempdownonedegree.vb
I'm trying to make an asp file that shows just the current set point using portions of the above code:
When I open this page in a browser I get this error:
Maybe I'm just way off. Can someone tell me what I'm doing wrong?
I'm trying to pull parts from this event script:
tempdownonedegree.vb
Code:
Sub Main(ByVal parms as Object) Dim pi As Object Dim oldCoolSetPoint As Double = hs.Plugin("BLStat").GetCoolSetpoint(1,1) Dim currentCoolSetPoint As Double Dim currentTemperature As Double = hs.Plugin("BLStat").GetTemp(1,1) Const failSafe as double = 70 pi = hs.Plugin("BLStat") hs.Plugin("BLStat").DecreaseSetpoint(1,1) currentCoolSetPoint = pi.GetCoolSetpoint(1,1) hs.writelog("Info", "Setpoint changed from " & oldCoolSetPoint & "F to " & currentCoolSetPoint & "F") End Sub
PHP Code:
<%@ Language=VBScript %>
<HTML>
<head>
</head>
<BODY>
<%
Dim currentCoolSetPoint As Double = hs.Plugin("BLStat").GetCoolSetPointTemp(1,1)
response.Write currentCoolSetPoint
%>
</BODY >
</HTML >
Script error: Expected end of statement
Dim currentCoolSetPoint As Double = hs.Plugin("BLStat").GetCoolSetPointTemp(1,1)
response.Write currentCoolSetPoint
Dim currentCoolSetPoint As Double = hs.Plugin("BLStat").GetCoolSetPointTemp(1,1)
response.Write currentCoolSetPoint
Comment