Flash/ASP interface broken, PLEASE HELP!!!

[ttscoff]

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

[pscott]

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

[ttscoff]

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