quote:

---

1) LoadVariables (inc_flash_stats,"0")
2) (empty)
5) If Tjeck == "ok" goto 10 Else Goto 2 and Play
10) Tjeck ="" (and 2 dynamic textfileds with Variable1 and Variable 2 showing)
20) Goto 1 and Play

- anyone see the probs and able to help with a solution? ... once we get this to work, inc_flash_stats could be made to generate many of the variables we need, and theoretically many of the mods could be converted and/or used by flashfiles/sites

mph73


Morpheus73

---

quote:

---

quote:

---

1) LoadVariables (inc_flash_stats,"0")
2) (empty)
5) If Tjeck == "ok" goto 10 Else Goto 2 and Play
10) Tjeck ="" (and 2 dynamic textfileds with Variable1 and Variable 2 showing)
20) Goto 1 and Play

- anyone see the probs and able to help with a solution? ... once we get this to work, inc_flash_stats could be made to generate many of the variables we need, and theoretically many of the mods could be converted and/or used by flashfiles/sites

mph73


Morpheus73

---

1) LoadVariables (inc_flash_stats,"0") needs to be :

1) Load Variables ("inc_flash_stats.asp", 0)

I used flash once to do a continual update, be warned, it will be an immense load on the server.

Neil

---

<!-- #include file="config.asp"-->
<!-- #include file="inc_functions.asp"-->

<% ' Get Private Message count for display on Default.asp 

set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString


if strDBType = "access" then 
strSqL = "SELECT count(M_TO) as [pmcount] " 
else 
strSqL = "SELECT count(M_TO) as pmcount " 
end if 
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM " 
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'" 
strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_TO " 
strSql = strSql & " AND " & strTablePrefix & "PM.M_READ = 0 " 

Set rsPM = my_Conn.Execute(strSql) 
pmcount = rsPM("pmcount") 

' Get Buddies online count 
If trim(strDBNTUserName)="" Then 
' No user/password so ask user 
strMessBuddies = "Login to View Online Buddies" 
Else '### User Logged In So Get Buddies Who Are Online 

set rsBuddiesOnline = server.CreateObject("ADODB.RecordSet") 
strSql = "SELECT " & strMemberTablePrefix & "ONLINE.UserID," & strMemberTablePrefix & "MEMBERS.MEMBER_ID" 
strSql = strSql & " FROM " & strMemberTablePrefix & "ONLINE INNER JOIN (" & strMemberTablePrefix & "MEMBERS INNER JOIN " & strMemberTablePrefix & "BUDDYS ON " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strMemberTablePrefix & "BUDDYS.BUDBUDID) ON " & strMemberTablePrefix & "ONLINE.UserID = " & strMemberTablePrefix & "MEMBERS.M_NAME" 
strSql = strSql & " WHERE " & strMemberTablePrefix & "BUDDYS.BUDMEMBERID=" & getmemberID(strDBNTUserName) 
rsBuddiesOnline.Open strSQL, my_Conn 

dim intDisplayBudCount 
intDisplayBudCount = 0 
If rsBuddiesOnline.Eof OR rsBuddiesOnline.Bof Then 
strMessBuddies = "No Buddies Online" 
Else 

do until rsBuddiesOnline.eof 
' here we could read the Name in an array and display it in flash 
intDisplayBudCount = intDisplayBudCount + 1 
rsBuddiesOnline.movenext 
loop 
strMessBuddies = cstr(intDisplayBudCount) & " Buddies online" 
End if 
rsBuddiesOnline.close 
set rsBuddiesOnline = Nothing 
End if 
MyOutput="Variable1="&pmcount&"&Variable2="&strMessBuddies&"&Tjeck=ok" 
Response.Write (MyOutput) 
%> 

 

quote:

---

neil, whats going on with this? do you have an example we can see?

Brad

---