webForumDet fria alternativet
Logga in / Bli medlem

popup problem

ASP

41 svar · 581 visningar · startad av jboy_87 · sida 2 av 3

Frågan, av jboy_87

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 Privatchat where Till = '"&session("Anvandarnamn")&"' and last1 =

Läs frågan i sin helhet →
SebbeMedlem sedan jan. 20032 285 inlägg
#21
<script language="JavaScript">
<!--
<%
Set objRS = connect.Execute("SELECT * FROM Privat_chat WHERE Till = '" & Session("Anvandarnamn") & "' AND last1 = 0")

If NOT objRS.EOF Then
  Do Until objRS.EOF
    If Minute(objRS("datum")) = Minute(Now()) Then
      If NOT blnNew Then
        Response.Write("theWnd = privatchat('medlem_privatchat.asp?visa=ja&id=1','privatchat_samma');")
        blnNew = True
      End If
    Else
      If NOT blnOld Then
        Response.Write("theWnd = privatchat('medlem_privatchat.asp?visa=ja&id=2','privatchat_tidigare');")
        blnOld = True
      End If
    End If
  Loop
End If

objRS.Close
Set objRS = Nothing
%>
//-->
</script>

medlem_privatchat.asp:

<%
If NOT Request.QueryString("id") = "" Then
  intId = CInt(Request.QueryString("id"))
  If intId = 1 Then
    strSQL = "SELECT * FROM Privat_chat WHERE Till = '" & Session("Anvandarnamn") & "' AND last1 = 0 AND datum = #" & DateAdd("n",1,Now()) & "# OR datum = Now()"
  ElseIf intId = 2 Then
    strSQL = "SELECT * FROM Privat_chat WHERE Till = '" & Session("Anvandarnamn") & "' AND last1 = 0 AND datum < #" & DateAdd("n",1,Now()) & "#"
  End If
  Set objRS = connect.Execute(strSQL)

  If NOT objRS.EOF Then
    Do Until objRS.EOF
    ' Lista ut
    Next
  End If
  Set objRS = Nothing
End If
%>

? Byt ut kolumnnamnen mot vad dina heter. :)

jboy_87Medlem sedan aug. 20011 099 inlägg
#22

på första koden stannar hela sidan! oändlig loop

SebbeMedlem sedan jan. 20032 285 inlägg
#23

Jamen ojdå! Har inte riktigt vaknat än! ;) :e

<script language="JavaScript">
<!--
<%
Set objRS = connect.Execute("SELECT * FROM Privat_chat WHERE Till = '" & Session("Anvandarnamn") & "' AND last1 = 0")

If NOT objRS.EOF Then
  Do Until objRS.EOF
    If Minute(objRS("datum")) = Minute(Now()) Then
      If NOT blnNew Then
        Response.Write("theWnd = privatchat('medlem_privatchat.asp?visa=ja&id=1','privatchat_samma');")
        blnNew = True
      End If
    Else
      If NOT blnOld Then
        Response.Write("theWnd = privatchat('medlem_privatchat.asp?visa=ja&id=2','privatchat_tidigare');")
        blnOld = True
      End If
    End If
    objRS.MoveNext
  Loop
End If

objRS.Close
Set objRS = Nothing
%>
//-->
</script>
jboy_87Medlem sedan aug. 20011 099 inlägg
#24

nu får jag

Körningsfel i Microsoft VBScript (0x800A01C2)
Fel antal argument eller felaktig egenskapstilldelning.
/medlem_privatchat.asp, line 16

dim intId,strsql
If NOT Request.QueryString("id") = "" Then
  intId = CInt(Request.QueryString("id"))
  If intId = 1 Then
    strSQL = "SELECT * FROM Privat_chat WHERE Till = '" & Session("Anvandarnamn") & "' AND last1 = 0 AND datum = DateAdd(minute,1,getdate()) OR datum = getdate()"
  ElseIf intId = 2 Then
    strSQL = "SELECT * FROM Privat_chat WHERE Till = '" & Session("Anvandarnamn") & "' AND last1 = 0 AND datum < DateAdd(minute,1,getdate())"
  End If
  Set recset = connect.Execute(strSQL)

  If NOT recset.EOF Then
    Do Until recset.EOF
    recset("inlagg")
    recset.movenext
    loop
  End If
  recset.close
  Set recset = Nothing
End If
SebbeMedlem sedan jan. 20032 285 inlägg
#25

Vilken är rad 16?

jboy_87Medlem sedan aug. 20011 099 inlägg
#26

recset("inlagg")

SebbeMedlem sedan jan. 20032 285 inlägg
#27

Byt ut det till
Response.Write(recset("inlagg") & "<br>" & vbCrLf)

jboy_87Medlem sedan aug. 20011 099 inlägg
#28

oj vad klantigt av mig :-D

SebbeMedlem sedan jan. 20032 285 inlägg
#29

Funkar det nu?? :e

jboy_87Medlem sedan aug. 20011 099 inlägg
#30

nu får jag en tom popup och en popup med text när jag skriver ett meddelande?

SebbeMedlem sedan jan. 20032 285 inlägg
#31

Menar du att du får upp en popup som funkar utmärkt och en som bara är vit?

jboy_87Medlem sedan aug. 20011 099 inlägg
#32

precis!
och hur lägger jag in

connect.execute ("update Privat_chat set last1 = 1 where id1 = "&sqlencode(request.querystring("id"))&" and till = '"&session("anvandarnamn")&"'"),,128

så här ser sql satsen ut nu!

If NOT Request.QueryString("id") = "" Then
  intId = CInt(Request.QueryString("id"))
  If intId = 1 Then
    strSQL = "SELECT * FROM Privat_chat WHERE Till = '" & Session("Anvandarnamn") & "' AND last1 = 0 AND datum = DateAdd(minute,1,getdate()) OR datum = getdate()"
  ElseIf intId = 2 Then
    strSQL = "SELECT * FROM Privat_chat WHERE Till = '" & Session("Anvandarnamn") & "' AND last1 = 0 AND datum < DateAdd(minute,1,getdate())"
  End If
  Set recset = connect.Execute(strSQL)
SebbeMedlem sedan jan. 20032 285 inlägg
#33
If NOT Request.QueryString("id") = "" Then
  intId = CInt(Request.QueryString("id"))
  If intId = 1 Then
    strSQL = "SELECT * FROM Privat_chat WHERE Till = '" & Session("Anvandarnamn") & "' AND last1 = 0 AND datum = DateAdd(minute,1,getdate()) OR datum = getdate()"
  ElseIf intId = 2 Then
    strSQL = "SELECT * FROM Privat_chat WHERE Till = '" & Session("Anvandarnamn") & "' AND last1 = 0 AND datum < DateAdd(minute,1,getdate())"
  End If
  Set recset = connect.Execute(strSQL)

  Do Until recset.EOF
    connect.Execute("UPDATE Privat_chat SET last1 = 1 WHERE id1 = " & recset("id1"))
    Response.Write(recset("inlagg") & "<br>" & vbCrLf)
    recset.MoveNext
  Loop

Typ... :p

jboy_87Medlem sedan aug. 20011 099 inlägg
#34

nu när jag skriver ett inlägg som kommer det ingen text men när jag väntar i 1 minut så ploppas det upp en popup med alla meddelande jag skrivit. Den tomma popupen är fortfarande tom

SebbeMedlem sedan jan. 20032 285 inlägg
#35
<script language="JavaScript">
<!--
<%
Set objRS = connect.Execute("SELECT * FROM Privat_chat WHERE Till = '" & Session("Anvandarnamn") & "' AND last1 = 0")

If NOT objRS.EOF Then
  Do Until objRS.EOF
    If objRS("datum") = Now() OR objRS("datum") = DateAdd("n",-1,Now()) Then
      If NOT blnNew Then
        Response.Write("theWnd = privatchat('medlem_privatchat.asp?visa=ja&id=1','privatchat_samma');")
        blnNew = True
      End If
    Else
      If NOT blnOld Then
        Response.Write("theWnd = privatchat('medlem_privatchat.asp?visa=ja&id=2','privatchat_tidigare');")
        blnOld = True
      End If
    End If
  Loop
End If

objRS.Close
Set objRS = Nothing
%>
//-->
</script>

Det kanske funkar bättre så? Tror inte det, men man kan ju testa. ;) Även om det blir samma fel, behåll denna koden, då den här är säkrare.

jboy_87Medlem sedan aug. 20011 099 inlägg
#36

kolla det jag skrev ovanför.
sidan krashar hehe

SebbeMedlem sedan jan. 20032 285 inlägg
#37

jboy_87 skrev:

kolla det jag skrev ovanför.
sidan krashar hehe

Jaja, men skriv till samma sak som jag gjorde förra gången då!

<script language="JavaScript">
<!--
<%
Set objRS = connect.Execute("SELECT * FROM Privat_chat WHERE Till = '" & Session("Anvandarnamn") & "' AND last1 = 0")

If NOT objRS.EOF Then
  Do Until objRS.EOF
    If objRS("datum") = Now() OR objRS("datum") = DateAdd("n",-1,Now()) Then
      If NOT blnNew Then
        Response.Write("theWnd = privatchat('medlem_privatchat.asp?visa=ja&id=1','privatchat_samma');")
        blnNew = True
      End If
    Else
      If NOT blnOld Then
        Response.Write("theWnd = privatchat('medlem_privatchat.asp?visa=ja&id=2','privatchat_tidigare');")
        blnOld = True
      End If
    End If
    objRS.MoveNext
  Loop
End If

objRS.Close
Set objRS = Nothing
%>
//-->
</script>
jboy_87Medlem sedan aug. 20011 099 inlägg
#38

nu öppnas det ingen ny popup?

SebbeMedlem sedan jan. 20032 285 inlägg
#39

Öppnas ingenting nu eller? Och inget felmeddelande heller?

jboy_87Medlem sedan aug. 20011 099 inlägg
#40

alltså nu öppnas det bara en popup med alla meddelanden i!

257 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
121 ms — deklarationer (db)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)
123 ms — ändringar (db)