Announcement

Collapse
No announcement yet.

Flash/ASP interface broken, PLEASE HELP!!!

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

    Flash/ASP interface broken, PLEASE HELP!!!

    Rick, can you move this post to the appropriate forum? I posted to quickly and forgot that this forum was for discussion of scripts in the library! Sorry!
    __________________________________________________

    Okay. I run my house off of Audrey's running a modification of the old LCARS interface. It's a simple flash interface that calls an ASP file. It's completely broken in HS2 and I have no clue where to begin fixing it. Please help!

    The flash file uses buttons that have actions like this:
    ----------------------------------
    on (release) {
    action = "alo";
    loadVariablesNum("new.asp", "", "GET");
    }
    --------------------------------------------------


    This calls an asp file (new.asp) that has something like the following:


    -------------------------------------------
    Option Explicit

    sub main()
    dim guestview
    ' To allow guests to view LCARS Data guestview = 1, else = 0
    guestview = 0


    if hs.WebLoggedInUser <> "guest" then
    hs.writelog "LCARS", "Starting LCARS" 'comment out later
    call allowed
    else if guestview = 1 then
    hs.writelog "LCARS", "Guest OK" 'comment out later
    call allowed
    else if guestview = 0 then
    call notallowed
    end if
    end if
    end if
    end sub

    sub allowed()
    dim device_action
    dim action, winamp
    dim volume, stringvolume, ip, SeerAMP

    action = request.QueryString("action")
    ip = Request.ServerVariables("REMOTE_ADDR")
    ' hs.writelog "LCARS", "IP = " & ip
    Set SeerAMP = hs.Plugin("SeerAMP")

    If action = "scheme1" Then
    hs.TriggerEvent "Scheme 1"
    end if

    If action = "triplej" Then
    SeerAMP.WAStop(0)
    SeerAMP.ClearPlaylist(0)
    hs.WaitEvents
    SeerAMP.AddFile 0, "C:\Program Files\Homeseer\seeramp\playlists\triplej.m3u"
    hs.WaitSecs(1)
    SeerAMP.Play(0)
    End If

    If action = "virgin" Then
    SeerAMP.WAStop(0)
    SeerAMP.ClearPlaylist(0)
    hs.WaitEvents
    SeerAMP.AddFile 0, "C:\Program Files\Homeseer\seeramp\playlists\virgin.m3u"
    hs.WaitSecs(1)
    SeerAMP.Play(0)
    End If


    End Sub


    sub notallowed()

    if hs.WebLoggedInUser = "guest" then

    hs.writelog "LCARS", "Guest Not Allowed"
    end if

    End Sub
    -----------------------------------------------


    Even the calls within the flash file to load a different movie cause the server to hang, which I don't understand. Sometimes they work, sometimes they don't. Any help is appreciated.

    Thanks,
    Brett
    Last edited by ttscoff; October 4, 2005, 08:55 AM. Reason: Foot in mouth.

    #2
    I am intersted in your scripts. Would you share & may be I can help.

    Comment


      #3
      I'm happy to share, especially if I can get some help with this. Do you want the flash files or just the scripts? And how should I get them to you?

      Thanks,
      Brett

      Comment

      Working...
      X