[Date Prev][Date
Next][Thread Prev][Thread Next][Date
Index][Thread Index]
HomeSeer & ASP - Sorted!
- To: ukha_d@xxxxxxx
- Subject: HomeSeer & ASP - Sorted!
- From: "Andy Powell" <Andy@xxxxxxx>
- Date: Sat, 09 Sep 2000 11:55:40 +0200
- Delivered-to: rich@xxxxxxx
- Delivered-to: mailing list ukha_d@xxxxxxx
- Mailing-list: list ukha_d@xxxxxxx; contact
ukha_d-owner@xxxxxxx
- Reply-to: ukha_d@xxxxxxx
-------------------------- eGroups Sponsor -------------------------~-~>
Special Offer-Earn 300 Points from MyPoints.com for trying @Backup
Get automatic protection and access to your important computer files.
Install today:
http://click.egroups.com/1/6347/9/_/2065/_/968492896/
---------------------------------------------------------------------_->
Hi,
for those wanting to use ASP to access Homeseer here is a sample script
that works on my system....
Enjoy
A.
<TITLE>HomeSeer Web
Interface</TITLE></HEAD><body><body
bgcolor="#0000000"><br>
<table border="0" cellpadding="0"
cellspacing="0" width="100%" >
<tr><td align="left"
colspan="1"><b><h2><font size="5"
face="Verdana, Arial, Helvetica, sans-serif">
<b><font color="#FFFF00"><i>HomeSeer Web
Interface</i></font></b></font></p>
</b></h2></td>
<tr><td align="left" colspan="1"
bgcolor="#02007D"><font
color="#FFFFFF">
<% Response.write "Generated " & Now %>
<b> Sunrise: </b>
<%
Set HomeSeer = GetObject("","Homeseer.Application")
Response.Write homeseer.sunrise%><b> Sunset: </b><%
Response.write homeseer.sunset%></font>
</td><td align="right" colspan="1"
bgcolor="#02007D">
</td></tr></table><br>
<table border="0" cellpadding="0"
cellspacing="0" width="100%" >
<tr><td bgcolor="#800000" colspan="6"><p
align="center"><B><I><FONT
COLOR="#ffffff">Device List</font>
</B></I></p></td></tr>
<tr>
<TD bgcolor="#800000"><B><FONT
COLOR="#ffffff">Status</B></TD></FONT>
<TD bgcolor="#800000"><B><FONT
COLOR="#ffffff">Name</B></TD></FONT>
<TD bgcolor="#800000"><B><FONT
COLOR="#ffffff">Code</B></TD></FONT>
<TD bgcolor="#800000"><B><FONT
COLOR="#ffffff">Location</B></TD></FONT>
<TD bgcolor="#800000"><B><FONT
COLOR="#ffffff">Type</B></TD></FONT>
<TD bgcolor="#800000"><B><FONT
COLOR="#ffffff">Control</B></TD></FONT></TR>
<%
Dim x
Dim y
Set HomeSeer = GetObject("","Homeseer.Application")
DevCount = HomeSeer.Devicecount
for t = 1 to DevCount
set devs = Homeseer.GetDevice(t)
devcode = devs.hc & devs.dc
dtype = devs.dev_type_string
lev = ""
if Homeseer.IsOn(devcode) then
dstatus = " On"
else
dstatus = " Off"
End if
dname = devs.name
dcod = devs.hc & devs.dc
dloc = devs.location
Response.Write "<TR><TD
bgcolor=""#DFDFDF""> " & dstatus
& lev & "</TD><TD
bgcolor=""#EFEFEF""><A
HREF="""">" & dname &
"</TD><TD bgcolor=""#DFDFDF"">"
& dcod & "</TD><TD
bgcolor=""#EFEFEF"">" & dloc &
"</TD><TD nowrap
bgcolor=""#DFDFDF"">" & dtype &
"</TD>"
next
%>
--- Tag-it! v2.0 (c) Andy Powell ,1998,1999,2000...and beyond..
_ _ _ _ //// <-- domino effect at work.
Home |
Main Index |
Thread Index
|