Detta är en del av en chatt. Detta ligger i filen [say.asp] som innehåller textrutan man skriver sitt meddelande i. Nästan omöjligt att svara på - man behöver debugga eller köra ett testprojekt i VB för att se vad som händer och när. Någonting inom mig säger att det antagligen inte är så svårt, bara man har någon kod att titta på. Jag tror inte felet är här, utan någon annanstans...Chatt
Problemet är att när chattet laddas loggas användaren in två gånger! Alltså det står t.ex. "kalle" två ggr i listan över chattare. Sedan, efter 5-10 sekunder, försvinner den ena av dessa dubbletter och man kan chatta utan problem. Detta är lite störande - någon som kan se vad felet är?
Tack!
<% option explicit %>
<% response.buffer = true %>
<%
Dim users, refresh
session("name") = session("usrID")
If Application("numusers") = 0 then
redim temp1(50)
redim temp2(50)
Application("users") = temp1
Application("refresh") = temp2
end if
users = application("users")
refresh= application("refresh")
Dim i
For i = 1 to 50
If users(i) = "" then
users(i) = session("name")
refresh(i) = time
application.lock
application("numusers") = application("numusers") + 1
application.unlock
exit for
end if
next
if i = 51 then response.redirect "toomany.asp"
if not isempty(application("conversation")) then
application.lock
application("conversation") = "<font class=search>" &_
session("name") &_
" kliver in.</font><br>" &_
application("conversation")
application.unlock
end if
application.lock
application("users") = users
application("refresh") = refresh
application.unlock
%>
<html>
<head>
<title>Fransman - en community med klass</title>
<link rel="stylesheet" href="css/style.css" type="text/css">
</head>
<body onload="document.form1.say.focus()">
<table align="left" border="0" class="chat" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="4">
</td>
<td>
<%
if trim(request.form("say")) <> "" then
application.lock
application("conversation") = "<b>" & _
session("name") & ": </b>" & _
request.form("say") & "<br>" & _
application("conversation")
application.unlock
End If
%>
<form action="say.asp" method="post" name="form1">
<input type="text" size="60" name="say" autocomplete="off"> 
</form>
</td>
</tr>
</table>
</body>
</html>Sv: Chatt
/PelleSv: Chatt
To be continued...