Chat

har gjort en enkel chat.
Man kan skicka och byt färg.
Men hur ska jag göra för att se vilka som är online.
Lista alla som är online alltså???

Lämpligast gör du ett ja/nej fält i databasen vid namn ex Online.
När man går in på chatten så sätts fältet till Ja. Sen gör du bara en select som plcokar ut alla där online = Ja.

Svårare än så ska det nog inte vara :)

Andreas

Jag har börjat hata asp lite smått nu. så fort jag gör framsteg med en sak på ett litet community så börjar en annan krångla....Det fel som uppstod nu som jag inte kan få ordning på är inloggningsscriptet jag gjort. så jag skulle vilja ha lite hjälp med att felsöka det....Felet är att man bara kan använda en användare. försöker man logga in som en annan så får man upp meddelandet att namnet inte stämmer.

Här är det:

<%
If Session("UserId")="" Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/c2/db/craddle.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "SELECT nick FROM users "

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

If RecSet("nick")=Request.Form("username") Then %> <% RecSet.Close
Connect.Close
%> <%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/c2/db/craddle.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "SELECT password, nick, id FROM users WHERE nick= '"&(Request.Form("username"))&"' "

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

If RecSet("nick")=Request.Form("username") AND RecSet("password")=Request.Form("password") Then %>
<% Session("UserId")=RecSet("nick")
Session("idit")=RecSet("id") %> <% RecSet.Close
Connect.Close
%> <%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={MicroSoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/c2/db/craddle.mdb")

Visa = "SELECT online, nick, id FROM users WHERE nick= '"&trim(Request.Form("username"))&"' "

RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
%> <% RecSet("online")= TRUE %> <%
RecSet.Update
RecSet.Close
Connect.Close
%> <a href="ilmainset.asp" target="_parent">hej</a> <%
Else
RecSet.Close
Connect.Close
%>
<script language="javascript">
window.alert("Tyvärr så stämde inte lösenordet...");
</script>
<script language="javascript">
function relogin()
{
window.open('mainset.asp','jellity','toolbar=yes,width=600,height=400');
}
onLoad=relogin()
</script><%
End If

%>
<% Else %>
<% RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = nothing
%>
<script language="javascript">
window.alert("Tyvärr så stämde inte smeknamnet...");
</script>
<script language="javascript">
function relogin()
{
window.open('mainset.asp','jellity','toolbar=yes,width=600,height=400');
}
onLoad=relogin()
</script>
<% End If %><% End If %>

//McMiller

------------------
www.jelly-head.net ---- Din nya nöjesguide!!!