Home Automation Domotica Forum Europe, Bwired Forum

Code: Select all

var ToHomeseer:LoadVars = new LoadVars();
	var FromHomeseer:LoadVars = new LoadVars();

	
	var strType = this._parent.devtype;
	var hscode = this._parent.housecodeT;

	ToHomeseer.Device = hscode ;
	ToHomeseer.strType = strType ;
	ToHomeseer.sendAndLoad("/hsflash/hsflash.asp",FromHomeseer,"POST");


Dit stukje code heb ik schaamteloos geleend van Estebans ifohn

<%@ Language=VBScript %>
<% 
'  Since the frame is hidden it doesn't hurt to leave on debug info.
'  If you want to see the debug info set the iframes width and height to something
'  other than zero ...

'  Device id from form id tag ...
	device = Request.Form("device")
	Response.Write device
	
	'  Device type appended via javascript ...
	strType = Request.Form("strType")
	Response.Write strType
	
	'  Polling for device status
	devStatus = hs.DeviceStatus(device)
  Response.Write devStatus
  
  '  The way this is set up is it needs a set of code for each feature type  ...
  '  Currently there is one for light  ...
  '  If the image names were changed to fanon and lighton then only one set of code would be needed ...
	If device <> "" And Request.ServerVariables("AUTH_USER") <> "guest" Then	
		if strType = "light" then
				If devStatus = 2 Then
				hs.ExecX10 device,"Off"
				Elseif devStatus = 3 Then
				hs.ExecX10 device,"On"
				Elseif devStatus = 4 Then
				hs.ExecX10 device,"Off"
				Elseif devStatus = 17 Then
				hs.ExecX10 device,"ON"
				End If
		end if
		
		Response.Write"<SCRIPT LANGUAGE=""JavaScript"">" & vbCrlf
		Response.Write"  parent.document.images['" & device & "'].src = " & imgSrc &";" & vbCrlf
		Response.Write"</SCRIPT>" & vbCrlf
	End If
 
%>

Code: Select all

Response.Write"<SCRIPT LANGUAGE=""JavaScript"">" & vbCrlf
Response.Write" parent.document.images['" & device & "'].src = " & imgSrc &";" & vbCrlf
Response.Write"</SCRIPT>" & vbCrlf