---
title: "Ej fungerande block funktion"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/143444-ej-fungerande-block-funktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Astro69"
published: "2006-03-05T07:24:57.000Z"
updated: "2006-03-09T11:38:32.000Z"
replies: 9
views: 439
page: 1
pages: 1
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/143444-ej-fungerande-block-funktion"
---

# Ej fungerande block funktion

## #1 — Astro69, 2006-03-05T07:24Z

Jag undrar varför inte det funkar att blocka en medlem då man fyller i för mess o gb block men det funkar om man total blockar?

Skriptet kommer här!

```
Set RS=Conn.Execute("Select user,blockad_user From sidan_totblock Where user=" & FixaTecken(userID) & " And blockad_user=" & FixaTecken(Session("user_id")))
  If Not RS.EOF THen
    If strUserType = "0" Then
      Set Namn=Conn.Execute("Select anvnamn From sidan_users Where userId=" & FixaTecken(userID))
        Namn.Close:SetNamn=Nothing
        RS.Close:Set RS=Nothing
        Call AlertUserAndRedirect("Du är blockad av " & default.asp & "!","inloggad.asp")
    End If
  End If
```

Detta är den delen som är för block av gb o mess blocken!

När man blockar nu så kan dem som har blivit blockade fortfarande skriva mess o gb inlägg trots blocket!

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

## #2 — LarsG, 2006-03-05T16:17Z

Ta bort all oväsentlig kod innan du postar. Beskriv vad du vill uppnå och på vilket sätt det inte fungerar i mer detalj.

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

## #3 — Astro69, 2006-03-07T05:31Z

Nu har jag gjort som det sas! Tack för påpekandet! inte lätt alla gånger att hålla reda på allt när man är trött o ängslig då det inte fungerar som det ska!

Sorry LarsG men nu ska det vara bätre

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

## #4 — @nders, 2006-03-07T07:02Z

Den här raden ser konstig ut:

```
        Call AlertUserAndRedirect("Du är blockad av " & default.asp & "!","inloggad.asp")
```

Hur ser *AlertUserAndRedirect* ut?

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

## #5 — Astro69, 2006-03-07T07:13Z

> **@nders skrev:**
>
> Den här raden ser konstig ut:
>
> ```
>         Call AlertUserAndRedirect("Du är blockad av " & default.asp & "!","inloggad.asp")
> ```
>
> Hur ser *AlertUserAndRedirect* ut?

Det va det ända!
Men det finns en fil med namnet gastbok_block.asp o där finns denna code!

```
<%
If int(Request.QueryString("userid")) = Session("user_id") Then
  Call AlertUserAndRedirect("Du kan inte blocka dig själv!","gastbok.asp?id=" & Request.QueryString("userid"))
Else 
  Set RS=Conn.Execute("Select user,blockad_user From sidan_blockat Where user=" & FixaTecken(Session("user_id")) & " And blockad_user=" & FixaTecken(Request.QueryString("userid")))
    If RS.EOF Then
      Conn.Execute("Insert Into sidan_blockat(blockad_user,user,date) Values(" & FixaTecken(Request.QueryString("userid")) & "," & FixaTecken(Session("user_id")) & ",current_timestamp)")
    End If
  RS.Close
  Set RS=Nothing
  Conn.Close:Set Conn=Nothing
  Response.Redirect "gastbok.asp?id=" & Request.QueryString("id")
End If
%>
```

Underar om det är det som är felet???

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

## #6 — @nders, 2006-03-07T07:19Z

Funktionen / subrutinen AlertUserAndRedirect måste ju finnas någonstans i koden!

Annars: jämför de två raderna:

```
Call AlertUserAndRedirect("Du kan inte blocka dig själv!","gastbok.asp?id=" & Request.QueryString("userid"))
Call AlertUserAndRedirect("Du är blockad av " & default.asp & "!","inloggad.asp")
```

Du borde se en ganska väsentlig skillnad.

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

## #7 — Astro69, 2006-03-07T07:22Z

Jepp! Ser det o undrar var  resten är??? hmm måste ha missat nånting efter blockad av " frågan är bara hur det ska vara? hmm tipps?

```
Call AlertUserAndRedirect("Du är blockad av " & default.asp & "!","inloggad.asp")
```

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

## #8 — Astro69, 2006-03-07T07:25Z

Kollar runt bland mina filer o det jag vet funkar är total blocken! den ser ut så här!

```
Set RS=Conn.Execute("Select user,blockad_user From sidan_totblock Where user=" & FixaTecken(userID) & " And blockad_user=" & FixaTecken(Session("user_id")))
  If Not RS.EOF THen
    If strUserType = "0" Then
      Set Namn=Conn.Execute("Select anvnamn From sidan_users Where userId=" & FixaTecken(userID))
        Namn.Close:SetNamn=Nothing
        RS.Close:Set RS=Nothing
        Call AlertUserAndRedirect("Du är blockad av " & default.asp & "!","inloggad.asp")
    End If
  End If
```

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

## #9 — @nders, 2006-03-07T07:52Z

Är du säker på att den funkar? Det ser jättekonstigt ut. Se det fetmarkerade:

```
Call AlertUserAndRedirect("Du är blockad av " & [b]default.asp[/b] & "!","inloggad.asp")
```

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

## #10 — Astro69, 2006-03-09T11:38Z

Om det dröjer så är det så att jag håller på att kolla på samtliga mina filer om dena rad ifall jag har en annan fil där den raden är mer koräckt!

Det är som @nders skriver mysko!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/143444-ej-fungerande-block-funktion