Announcement

Collapse
No announcement yet.

IR Devices

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

    #16
    Change all the fs.Add to Response.Write
    --
    Jeff Farmer
    HS 3, HSPhone
    My HS3 Plugins: CFHSExtras, Random, Restart, Tracker, WeatherXML, PanaBluRay
    Other Plugins In Use: APCUPSD, BLOnkyo, Device History, EasyTrigger, HSTouch Server, PHLocation2, Pushover, RFXCom, UltraGCIR3, UltraMon3, UltraPioneerAVR3, X10, Z-Wave

    Hardware: GoControl Irrigation Controler, Schlage Lever Lock, Schlage Deadbolt, Way2Call Hi-Phone, RFXCom RFXrec433 Receiver, WGL 800, TI-103, Z-Net, Pioneer 1120, Pioneer 1021, Pioneer LX302, Panasonic BDT-110, Panasonic BDT-210 x2

    Comment


      #17
      After making the changes I am now getting this:
      "
      Response.Send "
      "
      That is with just the first part added, nothing else.

      Comment


        #18
        You can't have two cases with the same value in the select.

        <pre class="ip-ubbcode-code-pre">
        Case "input_cd" hs.SetDeviceValue("n35"),10
        Case "input_cd" hs.SetDevicetring"n35","&lt;img align=""absmiddle"" src=""cdrom1.gif""&gt; " & "CD"
        Case "input_tuner" hs.SetDeviceValue("n35"),20
        </pre>

        But you can do this:
        <pre class="ip-ubbcode-code-pre">
        Case "input_cd" hs.SetDeviceValue("n35"),10
        hs.SetDevicetring"n35","&lt;img align=""absmiddle"" src=""cdrom1.gif""&gt; CD"
        Case "input_tuner" hs.SetDeviceValue("n35"),20
        </pre>
        --
        Jeff Farmer
        HS 3, HSPhone
        My HS3 Plugins: CFHSExtras, Random, Restart, Tracker, WeatherXML, PanaBluRay
        Other Plugins In Use: APCUPSD, BLOnkyo, Device History, EasyTrigger, HSTouch Server, PHLocation2, Pushover, RFXCom, UltraGCIR3, UltraMon3, UltraPioneerAVR3, X10, Z-Wave

        Hardware: GoControl Irrigation Controler, Schlage Lever Lock, Schlage Deadbolt, Way2Call Hi-Phone, RFXCom RFXrec433 Receiver, WGL 800, TI-103, Z-Net, Pioneer 1120, Pioneer 1021, Pioneer LX302, Panasonic BDT-110, Panasonic BDT-210 x2

        Comment


          #19
          Try this. I have added the extra code in.
          Attached Files
          --
          Jeff Farmer
          HS 3, HSPhone
          My HS3 Plugins: CFHSExtras, Random, Restart, Tracker, WeatherXML, PanaBluRay
          Other Plugins In Use: APCUPSD, BLOnkyo, Device History, EasyTrigger, HSTouch Server, PHLocation2, Pushover, RFXCom, UltraGCIR3, UltraMon3, UltraPioneerAVR3, X10, Z-Wave

          Hardware: GoControl Irrigation Controler, Schlage Lever Lock, Schlage Deadbolt, Way2Call Hi-Phone, RFXCom RFXrec433 Receiver, WGL 800, TI-103, Z-Net, Pioneer 1120, Pioneer 1021, Pioneer LX302, Panasonic BDT-110, Panasonic BDT-210 x2

          Comment


            #20
            Thanks that is working perfectly. Now for the other amps I have, do I just keep adding their codes right after the one for the living room? I am trying to add them right after the other ones but I keep getting script errors. Again thanks a lot.

            Comment


              #21
              Just make sure you copy the right lines and you should be fine.
              Look for this section
              <pre class="ip-ubbcode-code-pre">
              Set dv = hs.GetDeviceByRef(Request.Form("selectremote"))
              dv.CustomStatus.status = Request.Form("irvalue")
              if dv.Location = "Living Room" AND dv.Name="Some Amp" Then
              Select Case Request.Form("keylabel")
              Case "input_cd" hs.SetDeviceValue("n35"),10
              hs.SetDevicetring"n35","&lt;img align=""absmiddle"" src=""cdrom1.gif""&gt; CD"
              Case "input_tuner" hs.SetDeviceValue("n35"),20
              End Select
              End if
              Set dv = Nothing
              </pre>

              And just add more like this
              <pre class="ip-ubbcode-code-pre">
              Set dv = hs.GetDeviceByRef(Request.Form("selectremote"))
              dv.CustomStatus.status = Request.Form("irvalue")
              if dv.Location = "Living Room" AND dv.Name="Some Amp" Then
              Select Case Request.Form("keylabel")
              Case "input_cd" hs.SetDeviceValue("n35"),10
              hs.SetDevicetring"n35","&lt;img align=""absmiddle"" src=""cdrom1.gif""&gt; CD"
              Case "input_tuner" hs.SetDeviceValue("n35"),20
              End Select
              End if
              if dv.Location = "Theatre Room" AND dv.Name="Some Amp" Then
              Select Case Request.Form("keylabel")
              Case "input_cd" hs.SetDeviceValue("n25"),10
              hs.SetDevicetring"n25","&lt;img align=""absmiddle"" src=""cdrom1.gif""&gt; CD"
              Case "input_tuner" hs.SetDeviceValue("n25"),20
              End Select
              End if
              Set dv = Nothing
              </pre>
              --
              Jeff Farmer
              HS 3, HSPhone
              My HS3 Plugins: CFHSExtras, Random, Restart, Tracker, WeatherXML, PanaBluRay
              Other Plugins In Use: APCUPSD, BLOnkyo, Device History, EasyTrigger, HSTouch Server, PHLocation2, Pushover, RFXCom, UltraGCIR3, UltraMon3, UltraPioneerAVR3, X10, Z-Wave

              Hardware: GoControl Irrigation Controler, Schlage Lever Lock, Schlage Deadbolt, Way2Call Hi-Phone, RFXCom RFXrec433 Receiver, WGL 800, TI-103, Z-Net, Pioneer 1120, Pioneer 1021, Pioneer LX302, Panasonic BDT-110, Panasonic BDT-210 x2

              Comment


                #22
                Once again thanks for your help with this.

                Comment

                Working...
                X