---
title: "popup problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/73248-popup-problem/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jboy_87"
published: "2003-04-05T18:09:25.000Z"
updated: "2003-04-06T13:29:53.000Z"
replies: 41
views: 635
page: 2
pages: 3
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/73248-popup-problem"
---

# popup problem

_Sida 2 av 3._

## #21 — Sebbe, 2003-04-06T11:42Z

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

Permalänk: https://www.webforum.nu/p/1001697

## #22 — jboy_87, 2003-04-06T11:49Z

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

Permalänk: https://www.webforum.nu/p/1001706

## #23 — Sebbe, 2003-04-06T11:51Z

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>
```

Permalänk: https://www.webforum.nu/p/1001708

## #24 — jboy_87, 2003-04-06T12:15Z

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
```

Permalänk: https://www.webforum.nu/p/1001721

## #25 — Sebbe, 2003-04-06T12:17Z

Vilken är rad 16?

Permalänk: https://www.webforum.nu/p/1001722

## #26 — jboy_87, 2003-04-06T12:19Z

recset("inlagg")

Permalänk: https://www.webforum.nu/p/1001723

## #27 — Sebbe, 2003-04-06T12:23Z

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

Permalänk: https://www.webforum.nu/p/1001726

## #28 — jboy_87, 2003-04-06T12:33Z

oj vad klantigt av mig :-D

Permalänk: https://www.webforum.nu/p/1001735

## #29 — Sebbe, 2003-04-06T12:37Z

Funkar det nu?? :e

Permalänk: https://www.webforum.nu/p/1001738

## #30 — jboy_87, 2003-04-06T12:38Z

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

Permalänk: https://www.webforum.nu/p/1001740

## #31 — Sebbe, 2003-04-06T12:43Z

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

Permalänk: https://www.webforum.nu/p/1001745

## #32 — jboy_87, 2003-04-06T12:45Z

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)
```

Permalänk: https://www.webforum.nu/p/1001751

## #33 — Sebbe, 2003-04-06T12:51Z

```
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

Permalänk: https://www.webforum.nu/p/1001759

## #34 — jboy_87, 2003-04-06T13:01Z

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

Permalänk: https://www.webforum.nu/p/1001766

## #35 — Sebbe, 2003-04-06T13:10Z

```
<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.

Permalänk: https://www.webforum.nu/p/1001773

## #36 — jboy_87, 2003-04-06T13:14Z

kolla det jag skrev ovanför.
sidan krashar hehe

Permalänk: https://www.webforum.nu/p/1001775

## #37 — Sebbe, 2003-04-06T13:16Z

> **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>
```

Permalänk: https://www.webforum.nu/p/1001779

## #38 — jboy_87, 2003-04-06T13:21Z

nu öppnas det ingen ny popup?

Permalänk: https://www.webforum.nu/p/1001786

## #39 — Sebbe, 2003-04-06T13:23Z

Öppnas ingenting nu eller? Och inget felmeddelande heller?

Permalänk: https://www.webforum.nu/p/1001787

## #40 — jboy_87, 2003-04-06T13:25Z

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

Permalänk: https://www.webforum.nu/p/1001792

---

Tråden på webben: https://www.webforum.nu/amne/asp/73248-popup-problem/page2  
Föregående sida: https://www.webforum.nu/amne/asp/73248-popup-problem.md  
Nästa sida: https://www.webforum.nu/amne/asp/73248-popup-problem/page3.md