Online users vises ikke

Jeg har prøvet og kikke og første gang kunne jeg ikke se nogen men det kunne jeg anden gang jeg var ikke at kikke, men nu ser det mere ud som siden ikke kan loades??

Bruger chatten cookies??

Ja, siden har været nede i en halv times tid, men den kører igen.

Ja, chatten bruger cookies

Jeg har fordoblet antal point til 300p, der må da være en der kan finde ud af det :-)

Jeg ville gerne hjælpe, men jeg gider ikke oprette mig som bruger for at få koden.
Brug min chat i stedet: www.loginn.dk

Skriv din email, så skal jeg sende koden til dig

eksperten@ceb.dk

Prøv med denne kode i stedet for linierne 328-351 i default filen
<%
For antal_online = 0 To 30
strChatName = Application(strUser & intIndex)
If IsNull(strChatName) OR strChatName = \"\" Then

Response.Write \"<tr><td width=10><img src=\'images/design/front/vert_user_l.gif\'></td><td width=181 bgcolor=#ffffff><font face=\'Tahoma, Arial\' size=2>No users online</font></td><td width=10><img src=\'images/design/front/vert_user_r.gif\'></td></tr>\" & vbCrLf

Else
                   
Select Case C(Application(strChatName & \"_admin\"))
Case 0:  strImg = \"user\"
Case -1: strImg = \"co-admin\"
Case -2: strImg = \"admin\"
Case -3: strImg = \"sysadm\"
End Select

If C(Application(strChatName & \"_away\")) = 1 Then strImg = strImg & \"_a\"
Response.Write \"<tr><td width=10><img src=\'images/design/front/vert_user_l.gif\'></td><td width=16 bgcolor=#ffffff><img src=\'images/head/\" & strImg & \".gif\' width=16 height=16></td><td width=165 bgcolor=#ffffff><font face=\'Tahoma, Arial\' size=2>\" & strChatName & \"<font></td><td width=10><img src=\'images/design/front/vert_user_r.gif\'></td></tr>\" & vbCrLf
End If
Next
%>

Prøv med denne kode i stedet for linierne 328-351 i default filen
<%
For antal_online = 0 To 30
strChatName = Application(strUser & intIndex)
If IsNull(strChatName) OR strChatName = \"\" Then

Response.Write \"<tr><td width=10><img src=\'images/design/front/vert_user_l.gif\'></td><td width=181 bgcolor=#ffffff><font face=\'Tahoma, Arial\' size=2>No users online</font></td><td width=10><img src=\'images/design/front/vert_user_r.gif\'></td></tr>\" & vbCrLf

Else
                   
Select Case C(Application(strChatName & \"_admin\"))
Case 0:  strImg = \"user\"
Case -1: strImg = \"co-admin\"
Case -2: strImg = \"admin\"
Case -3: strImg = \"sysadm\"
End Select

If C(Application(strChatName & \"_away\")) = 1 Then
strImg = strImg & \"_a\"
End If
Response.Write \"<tr><td width=10><img src=\'images/design/front/vert_user_l.gif\'></td><td width=16 bgcolor=#ffffff><img src=\'images/head/\" & strImg & \".gif\' width=16 height=16></td><td width=165 bgcolor=#ffffff><font face=\'Tahoma, Arial\' size=2>\" & strChatName & \"<font></td><td width=10><img src=\'images/design/front/vert_user_r.gif\'></td></tr>\" & vbCrLf
End If
Next
%>

Den sidste er den rigtige. Der mangler en end if i den første!

nu står der bare no users online 20 gange - også når man er i chatten, så det virker ikke endnu.

OK, jeg ville bare vende det hele for at gøre det mere overskueligt, men lavede ged i det selv.
intUserFound = 0 i linie 329 skal være
intUserFound = false

og der mangler en \"end if\" i linie 344

www.theill.com der er chatten der virker

Jeg havde conquerchat før, men der kommer af og til fejlsider samt at den er ikke filckerfri - så den er jeg ikke tilfreds med.

Lige så andre ved det - der er ikke fundet en løsning på mit spørgsmål, så der er stadig 300p på højkant

Jeg har fundet endnu et problem. Hver gang der er en der logger ind i chatten slettes den sidst skrevne linie. Der mangler et linieskift et eller andet sted.

søg i window.asp filen efter \"kom til chatten\" (uden \"\")
Det er den linie der overskriver den sidsts skrevne linie

150p til den der klarer det problem

filen (window.asp) kan ses her:
http://www.3dmaxer.dk/window.text

Det blev ikke løst - tager pointene igen