---
title: "nån som kan...."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/49078-nån-som-kan"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Rodan"
published: "2002-07-30T17:34:52.000Z"
updated: "2002-08-01T10:39:14.000Z"
replies: 25
views: 683
page: 1
pages: 2
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/49078-nån-som-kan"
---

# nån som kan....

_Sida 1 av 2._

## #1 — Rodan, 2002-07-30T17:34Z

hur man gör så att man har checkboxar och då kryssar man i dom man vill ta bort... till ett community så att man slipper ta bort dom en efter en .... nån som kan hjälpa mig...

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

## #2 — Jymdis, 2002-07-30T18:49Z

ehm.. 
checked = true
det du syftar på kanske?
du menar att dom ska vara ikryssade från början? det är knappast ASP eller VB script isf?
Förklara bättre =)

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

## #3 — Rodan, 2002-07-30T19:32Z

asså.... typ lunar eller nåt annat community har en inbox för mess.... då vilja alltså ha en checkbox grejej som man kan kryssa i vilka mess man vill ta bort.....   sen kryssar man i vilka man vill tabort och sen när man kryssat i så klickar man på en länk ta bort så försvinner dom som man vill ta bort....

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

## #4 — OveRRidE, 2002-07-31T01:43Z

\* 1. Gör en checkbox framför varje 'mail'
\* 2. Inneslut allt i ett formulär
\* 3. Posta formuläret till en annan ASP-sida
\* 4. Gå igenom alla forumlärelement och skapa en SQL-sträng som tar bort alla meddelanden
\* 5. Exekvera SQL-strängen

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

## #5 — Rodan, 2002-07-31T09:45Z

finns det inget script.... jag kan lite asp men inte jätte mycket...  jag lär mig om nån visar ett sånt script så kan jag göra sånna i framtiden tíll andra saker...

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

## #6 — voigtann1, 2002-07-31T09:51Z

jag har gjort sån här med en \<select\>:

```
	sd = "select * from users order by ID"
	set idid = Server.CreateObject("ADODB.Recordset")
	idid.Open sd, connect, 3, 3
	Do Until idid.eof

		SQL = "UPDATE users set page = false where ID = "& idid("id")
		connect.execute SQL 
		if idid("user") = Request.Form("kingdompage") then
		SQL = "UPDATE users set page = true where ID = "& idid("id")
		connect.execute SQL

		end if
	idid.MoveNext
	Loop
	idid.close
```

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

## #7 — Rodan, 2002-07-31T09:52Z

så här ser koden ut för att ta bort meddelande mauelt....

\<!-- #include file="adovbs.inc" --\>

\<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("messages.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select \* From message Where ID=" &Request.QueryString("delID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.Delete

RecSet.Update
RecSet.Close
Set RecSet = nothing

Connect.close
Set Connect = nothing

Response.Redirect "send_mess.asp?direct=no"

%\>

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

## #8 — voigtann1, 2002-07-31T09:54Z

du.. jag har inte så stor koll hur Checkbox fungera riktigt.. men du har gett dom ett speciellt ID... hmm for each sak.. du får nog vänta tills någon som kan detta bättre med detta än mej... :)

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

## #9 — Morph, 2002-07-31T09:59Z

Enkelt. Ge varje checkbox samma namn men ett unikt value, id:t för meddelandet. T.ex:

```
<input type="checkbox" name="delID" value="<%=RecSet("id")%>">
```

När du sedan postar formuläret får du alla markerade checkboxars värde i en kommaseparerad lista. Släng in den listan i en SQL-sats för att radera meddelandena. T.ex:

```
<!-- #include file="adovbs.inc" --> 
<% 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("messages.mdb")&";" 

strSQL = "DELETE FROM message WHERE ID IN ("& Request.Form("delID") &")"
Connect.Execute strSQL

Connect.close 
Set Connect = nothing 

Response.Redirect "send_mess.asp?direct=no" 
%>
```

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

## #10 — Rodan, 2002-07-31T10:08Z

hur ser länken ut för att ta bort alla.... ?

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

## #11 — Rodan, 2002-07-31T10:18Z

nån

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

## #12 — Rodan, 2002-07-31T10:51Z

ingen som kan ?

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

## #13 — Jesper T, 2002-07-31T10:56Z

Det gör du lämpligast med ett javascript. Alltså för att med en(1) checkbox klicka i alla. 
Sök där och jag tror att du skall hitta det.

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

## #14 — OveRRidE, 2002-07-31T10:57Z

Typ.. :)

```
<%
'här skapar du conn & sånt mojs
set rs = conn.execute("SELECT * FROM tblMail WHERE userId = " & session("userID") & "")
%>

<form method="post" action="foo.asp">

<% do until rs.eof %>
   <input type="checkbox" name="delID" value="<%=rs("id")%>">Mailets rubrik eller nåt<br>
<% 
rs.movenext
loop
%>

<input type="submit" value="Radera">

</form>
```

Redigering) Rätta till ett fel i SQL-strängen. :r

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

## #15 — Rodan, 2002-07-31T11:01Z

så här ser min kod ut för där man ska kunna ta bort meddelanden...

\----------------------------------
\<!-- #include file="adovbs.inc" --\>

\<%

If Session("login") \<\> "ok" Then
	Session("meddelande") = "Du har blivit urloggad, var god logga in igen!"
	Response.Redirect "default.asp"
End If

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("messages.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select \* From message Where tillID = "&Session("id")

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

%\>

\<html\>
\<head\>
\<title\>Untitled Document\</title\>
\<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"\>

\<LINK REL=stylesheet HREF="style.css" TYPE="text/css"\>

\<title\>Untitled Document\</title\>
\<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"\>

\<LINK REL=stylesheet HREF="style.css" TYPE="text/css"\>

\<TITLE\>SwedenWorld\</TITLE\>
\<META content="text/html; charset=windows-1252" http-equiv=Content-Type\>
\<SCRIPT language=javascript\>
	\<!--

	function popup(url,width,height)
	{
	stuff = "toolbar=no,menubar=no,scrollbars=no,resizable=no,width= " +width + ", height = " +height
	window.open(url, "86MbTfAhFi" , stuff );

	}
	//--\>
	\</SCRIPT\>

\<META content="Microsoft FrontPage 4.0" name=GENERATOR\>

\<TITLE\>SwedenWorld\</TITLE\>
\<META content="text/html; charset=windows-1252" http-equiv=Content-Type\>
\<SCRIPT language=javascript\>
	\<!--

	function popup(url,width,height)
	{
	stuff = "toolbar=no,menubar=no,scrollbars=no,resizable=no,width= " +width + ", height = " +height
	window.open(url, "86MbTfAhFi" , stuff );

	}
	//--\>
	\</SCRIPT\>

\<META content="Microsoft FrontPage 4.0" name=GENERATOR\>

\</head\>
\<body bgcolor=#FFD023 text="#000000" onContextMenu="return false;"\>
\<table width="500" border="0" cellspacing="2" cellpadding="2"\>
  \<tr\>
    \<td bgcolor="#848B96"\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>\<b\>Inboxen\</b\>\</font\>\</td\>
  \</tr\>
  \<tr\>
    \<td bgcolor="white"\>
      \<table width="504" border="0" cellspacing="0" cellpadding="0"\>
        \<%Do Until RecSet.EOF%\>
        \<tr\>
          \<td width="31"\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FF0000"\>
            \<%If RecSet("read") = 0 Then%\>
            \<IMG height=11 src="newmsg.gif"
        width=18\>
            \<%Else
Response.write "\<IMG height=11 src=""unreadmsg.gif"" width=18\>"

END IF%\>
                \</font\>\</td\>
          \<td width="101"\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\>\<b\>\<%=RecSet("namn")%\>\</b\>\</font\>\</td\>
          \<td width="189"\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\>\<a href="do_read.asp?readid=\<%=RecSet("id")%\>"\>\<%=RecSet("rubrik")%\>\</a\>\</font\>\</td\>
          \<td width="159"\>\<b\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\>\<%=RecSet("datum")%\>\</font\>\</b\>&nbsp;&nbsp;&nbsp;&nbsp;
            \<input type="checkbox" name="delID" value="\<%=RecSet("id")%\>" border="0" style="border-style: solid; border-color: #FFFFFF"\>
            / \<a href="send_mess.asp?toID=\<%=RecSet("fromID")%\>&direct=yes&answerID=\<%=RecSet("ID")%\>"\>svara\</a\>\</td\>
        \</tr\>
        \<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%\>
      \</table\>
\<%

If Session("login") \<\> "ok" Then
	Session("meddelande") = "Du har blivit urloggad, var god logga in igen!"
	Response.Redirect "default.asp"
End If

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("messages.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select \* From message Where tillID = "&Session("id")

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

%\>
\<%

If Session("login") \<\> "ok" Then
	Session("meddelande") = "Du har blivit urloggad, var god logga in igen!"
	Response.Redirect "default.asp"
End If

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("kompisar.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select \* From kompis Where ID1 = "&Session("id")

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

%\>
\<TABLE border=0 cellPadding=0 cellSpacing=0 width="470"\>
  \<TBODY\>
       \<form name="form1" method="post" action="do_send.asp"\>
        \<TR\>
    \<TD vAlign=top width="667"\>
      \<TABLE border=0 cellPadding=0 cellSpacing=0
      style="border-left: 0px solid #ffffff; border-right: 1px solid #000000; border-top: 0px solid #000000; border-bottom: 0px solid #000000"
      width=415\>
        \<TBODY\>
        \<TR\>
          \<TD vAlign=top width=249\>
            \<TABLE border=0 width="456" bgcolor="#FFFFFF"\>
              \<TBODY\>
              \<TR\>
                \<TD vAlign=top width=505\>\<font face="Verdana" size="1" color="#000000"\>\<B\>Skicka ett
                  meddelande\</B\>
                  \<SCRIPT language=javascript\>
		function check(formobj){

		if(formobj.amne.value.length==0){
		alert('Du måste skriva ett ämne.');
		return false;
		} else if(formobj.text.value.length==0){
		alert('Du måste skriva ett meddelande.');
		return false;

		} else {
		return true;
		}
		}

		\</SCRIPT\>

                  (Obs. du kan inte skicka till dig själv :-))\<SCRIPT language=JavaScript type=text/javascript\>submitted=false;\</SCRIPT\>

                  \</font\>

                  \<FORM action=skicka.asp?vad=send method=post name=form
                  onsubmit="if(check(this)){ if(submitted){alert('Skicka bara en gång'); return false;}else{submitted=true; return true;}}else{ return false; }"\>\<font face="Verdana" size="1"\>\<B\>\<font color="#000000"\>Till:\</font\>\</B\>\<BR\>
                    \</font\>
                  \<TABLE border=0 width=480 height="50"\>
                    \<TBODY\>
                    \<TR\>
                      \<TD height="46"\>
                        \<font face="Verdana" size="1"\>
                        Namnet på medlemmen här:\<BR\>\<INPUT type="text" name=toID size=47 style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #000000; FONT-FAMILY: Helvetica, Arial, Verdana, sans-serif; FONT-SIZE: 10px" value="\<%
If NOT Request.Querystring("toID") = "" then

                        Set Connect2 = Server.CreateObject("ADODB.Connection")
Connect2.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("")&";pwd="

Set RecSet2 = Server.CreateObject("ADODB.Recordset")

Addera2 = "Select \* From members Where ID = "&Request.Querystring("toID")

RecSet2.Open Addera2, Connect2, 3, 3
Response.Write RecSet2("username")
RecSet2.Close
Connect2.Close
End If%\>"\> \</font\> \</TD\>

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

## #16 — Jesper T, 2002-07-31T11:08Z

Oj, vad rörigt! Fungerar det med att kryssa i ett meddelande för att radera detta?

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

## #17 — Rodan, 2002-07-31T11:11Z

kolla här 

<https://www.spelaroll.net/swedenworld>
regga dig
sen gå in på
<https://www.spelaroll.net/swedenworld/send_mess1.asp>
det är test filen

det går att markera dom jag ska ta bort men jag måste väll ha en länk som man klickar på när man ska ta bort dom...

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

## #18 — Rodan, 2002-07-31T12:15Z

nån

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

## #19 — solbulle, 2002-07-31T14:26Z

Om du kikar på OveRRidEs scriptkod så visar han ju hur du gör ett formulär som du sen postar med submitknappen till den sida som tar bort det hela.

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

## #20 — Rodan, 2002-07-31T15:00Z

Error Type:
Microsoft VBScript compilation (0x800A03EE)
Expected ')'
/SwedenWorld/send_mess1.asp, line 94, column 46

set rs = conn.execute("SELECT \* FROM tblMail" WHERE userId = " & session("userID") & "")

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/49078-nån-som-kan  
Nästa sida: https://www.webforum.nu/amne/asp/49078-nån-som-kan/page2.md