<% 'den besked der skal makeres som spam intMessage = Request("id") 'er vi helt sikkere på at den skal makeres som spam? intSikker = Request("sikker") 'lav forbindelse til databasen Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN ' vi kontrolere om brugeren er medlem af SPO intBrugerkontrol = Session("ID") If intBrugerkontrol = "" Then intMedlem = 0 Else strSQL = "SELECT medlem FROM spobruger WHERE (brugerID = " & intBrugerkontrol & ")" Set rs = myConn.Execute(strSQL) intMedlem = rs("medlem") End if ' Vi henter info om indlægget strSQL = "SELECT Subject, name, Email From Entries WHERE (ID = " & intMessage & ")" Set rs = myConn.Execute(strSQL) strSubject = rs("Subject") strName = rs("name") strEmail = rs("Email") ' Man kan kun markere indlæg som spam hvis man er spo medlem If intMedlem > 0 Then If intSikker = "60" Then ' Vi markere indlægget som spam strSQL5 = "UPDATE Entries SET spam = '1', `date` = `date` WHERE (id = " & intMessage & ")" myConn.Execute(strSQL5) strOutput = "Du har markere indlægget """ & strSubject & """, skrevet af """ & strName & """ der har opgivet email adressen " & strEmail & " som spam." strOutput = strOutput & "

Indlægget kan stadig ses ved at linke direkte til det, men vil ikke forekomme i forumoversigten" Else strOutput = "Du er ved at markere indlægget """ & strSubject & """, skrevet af """ & strName & """ der har opgivet email adressen " & strEmail & " som spam." strOutput = strOutput & "

Er du helt sikker på at indlægget skal markeres som spam?

Ja - Nej" End if else strOutput = "Du skal være medlem af spo og være logget ind for at kunne markere indlæg som spam" End if rs.Close myConn.Close Set myConn = Nothing %> <%=strOutput%>