har en liten problem! jag vet inte hur jag ska göra för att slippa göra så att det ploppar upp 10 rutor när någon skriver 10 inlägg till mig! jag vill istället poppa upp alla inlägg i en popup. Men om de blir skrivna i samma tid ska de öppnas i en annan popup med resten av inläggen!
Set recset = connect.execute ("Select * From Privat_chat where Till = '"&session("Anvandarnamn")&"' and last1 = 0")
if not recset.eof then
do until recset.eof
response.write "<script language=""Javascript"">"
dim popupnamn
if dateadd("n",1,recset("datum")) <= now() then
popupnamn = "privatchat_samma"
response.write "theWnd = privatchat('medlem_privatchat.asp?visa=ja&id="&recset("id1")&""&"','"&popupnamn&"');"
else
popupnamn = "privatchat_"&recset("id1")
response.write "theWnd = privatchat('medlem_privatchat.asp?visa=ja&id="&recset("id1")&""&"','"&popupnamn&"');"
end if
response.write "</script>"
recset.movenext
loop
end if
recset.close
set recset = nothing
<%
Set objRS = connect.execute ("Select * From Privat_chat where Till = '"&session("Anvandarnamn")&"' and last1 = 0")
If NOT objRS.EOF Then
Do Until objRS.EOF
i = i + 1
If DateAdd("n",1,objRS("datum")) <= Now()
blnCheck = True
End If
objRS.MoveNext
Loop
End If
%>
<script language="JavaScript">
<!--
<%
If blnCheck Then
strChat = "samma"
Else
strChat = objRS("id1")
End If
%>
theWnd = privatchat('medlem_privatchat.asp?visa=ja&id=<%=objRS("id1")%>','privatchat_<%=strChat%>');
//-->
</script>
<%
objRS.Close
Set objRS = Nothing
%>
Är det så du vill ha det? Har gjort om rätt mycket i koden, men jag hoppas det blev rätt ändå! :)
<%
Set objRS = connect.execute ("Select * From Privat_chat where Till = '"&session("Anvandarnamn")&"' and last1 = 0")
If NOT objRS.EOF Then
Do Until objRS.EOF
i = i + 1
If DateAdd("n",1,objRS("datum")) <= Now()
blnCheck = True
End If
objRS.MoveNext
Loop
%>
<script language="JavaScript">
<!--
<%
If blnCheck Then
strChat = "samma"
Else
strChat = objRS("id1")
End If
%>
theWnd = privatchat('medlem_privatchat.asp?visa=ja&id=<%=objRS("id1")%>','privatchat_<%=strChat%>');
//-->
</script>
<%
End If
objRS.Close
Set objRS = Nothing
%>
<%
Set objRS = connect.execute ("Select * From Privat_chat where Till = '"&session("Anvandarnamn")&"' and last1 = 0")
If NOT objRS.EOF Then
Do Until objRS.EOF
i = i + 1
If DateAdd("n",1,objRS("datum")) <= Now()
blnCheck = True
End If
objRS.MoveNext
Loop
%>
<script language="JavaScript">
<!--
<%
If blnCheck Then
strChat = "samma"
Else
objRS.MovePrevious
strChat = objRS("id1")
End If
%>
theWnd = privatchat('medlem_privatchat.asp?visa=ja&id=<%=objRS("id1")%>','privatchat_<%=strChat%>');
//-->
</script>
<%
End If
objRS.Close
Set objRS = Nothing
%>
<%
Set objRS = connect.execute ("Select * From Privat_chat where Till = '"&session("Anvandarnamn")&"' and last1 = 0")
If NOT objRS.EOF Then
Do Until objRS.EOF
i = i + 1
If DateAdd("n",1,objRS("datum")) <= Now()
blnCheck = True
End If
objRS.MoveNext
Loop
%>
<script language="JavaScript">
<!--
<%
If blnCheck Then
strChat = "samma"
Else
objRS.MovePrevious
strChat = objRS("id1")
End If
%>
theWnd = privatchat('medlem_privatchat.asp?visa=ja&id=<%=objRS("id1")%>','privatchat_<%=strChat%>');
//-->
</script>
<%
End If
objRS.Close
Set objRS = Nothing
%>
Det kanske funkar?
Jag är kanske lite snabb? :OO Testa den i alla fall. :)
lite svårt och förklara!
men typ scriptet fungerar som en chat när man får ett meddelande så ploppas det upp en ruta. Nästan samma som PM i webbforum. Problemet är att man kan skriva 10 inlägg till medlemmen så ploppar det upp 10 st popup sammtidigt.
Istället vill jag göra så att alla meddelanden i samma minut punkt lagras i en popup och resten ska öppnas i ett nytt popup!
138 ms totalt · 3 externa anrop · v20260731065814-full.b746b907
