-Rick
some examples - full text in attachment
<META name=viewport content="width = 320">
<META name=viewport content="initial-scale=1, user-scalable=no">
<META name=apple-mobile-web-app-capable content=yes>
<SNIP>
</FORM>
Code:
<script runat="server"> dim hs as object Sub Page_Load(Sender As Object, E As EventArgs) hs = Context.Items("Content") end sub </script> If Request.Form("sVal29") = "On" Then hs.transmit("q22", "On", 0, 0) ElseIf Request.Form("sVal30") = "Off" Then hs.transmit("q22", "Off", 0, 0) End If If Request.Form("sVal32") = "Arm" Then Dim VA VA = hs.Plugin("Vista Alarm") VA.ArmStay() End If
If Request.Form("sVal11") = "On" Then
hs.transmit("Q1", "On", 0, 0)
ElseIf Request.Form("sVal12") = "Off" Then
hs.transmit("Q1", "Off", 0, 0)
End If
If Request.Form("sVal13") = "On" Then
hs.execX10("q24", "On", 0, 0)
ElseIf Request.Form("sVal14") = "Off" Then
hs.execX10("q24", "Off", 0, 0)
End If
If Request.Form("sVal31") = "Disarm" Then
Dim VA
VA = hs.Plugin("Vista Alarm")
VA.Disarm()
End If
%>
Comment