webForumDet fria alternativet

popup problem

41 svar · 578 visningar · startad av jboy_87

jboy_87Medlem sedan aug. 20011 099 inlägg
#1

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
InferisMedlem sedan sep. 2000670 inlägg
#2

Du kan ju försöka att ta bort loopen.

InferisMedlem sedan sep. 2000670 inlägg
#3

Förklarar dåligt.. Öppna popup ifall du har några nya meddelande. Där loopar du ut alla inlägg

jboy_87Medlem sedan aug. 20011 099 inlägg
#4

jag loopar för att ta fram alla nya inläggen! jag kan ju inte ta bort loopen?

SebbeMedlem sedan jan. 20032 285 inlägg
#5
<%
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å! :)

jboy_87Medlem sedan aug. 20011 099 inlägg
#6

nu får jag

Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.
/status.asp, line 97
SebbeMedlem sedan jan. 20032 285 inlägg
#7
<%
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
%>
jboy_87Medlem sedan aug. 20011 099 inlägg
#8

när jag får ett meddelande blir det eof igen!

SebbeMedlem sedan jan. 20032 285 inlägg
#9

Hur menar du nu?

SebbeMedlem sedan jan. 20032 285 inlägg
#10
<%
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?

jboy_87Medlem sedan aug. 20011 099 inlägg
#11

när last1 blir till 1 från 0 så kommer fel meddelandet:

Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.
/status.asp
SebbeMedlem sedan jan. 20032 285 inlägg
#12

Sebbe skrev:

<%
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. :)

jboy_87Medlem sedan aug. 20011 099 inlägg
#13

samma fel!
jepp du e snabb du glömmer och lägga till then hehe :birp
If DateAdd("n",1,objRS("datum")) <= Now() then

SebbeMedlem sedan jan. 20032 285 inlägg
#14

jboy_87 skrev:

samma fel!
jepp du e snabb du glömmer och lägga till then hehe :birp
If DateAdd("n",1,objRS("datum")) <= Now()

Nejmen herre gud vad pinsamt! :r
Funkade det om du skrev så eller?

jboy_87Medlem sedan aug. 20011 099 inlägg
#15

nope får samma fel!

solbulleMedlem sedan mars 20015 287 inlägg
#16

/r glöm det.. fungerar ändå inte.

SebbeMedlem sedan jan. 20032 285 inlägg
#17

Vilken rad är det felet kommer på?

jboy_87Medlem sedan aug. 20011 099 inlägg
#18
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.
/status.asp

står ingen rad!

solbulleMedlem sedan mars 20015 287 inlägg
#19

Jag ska väl egentligen inte lägga mig i. Men vad är det egentligen du vill uppnå?
Hur ska javascriptskoden eg. se ut?

jboy_87Medlem sedan aug. 20011 099 inlägg
#20

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!

133 ms totalt · 3 externa anrop · v20260731065814-full.2b84b982
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
130 ms — hämta tråd, inlägg och bilagor (db)