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!
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!
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
%>
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")
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
