Søg
Avatar billede dennish Nybegynder
25. november 2002 - 20:10 Der er 8 kommentarer og
1 løsning

afvinge og hente en value.

Har følgende kode: Jeg vil gerne have at når jeg har afvinget i f.eks linie 1 at jeg henter membersID nummeret der står i/ud for linie 1. Derefter skulle det være muligt for mig at slette/aktivere/deaktivere  en post i databasen, idet jeg har et membersID nummer der er primærnøgle i min databasen.

Er det overhovede muligt at gøre sådan, eller er der nogen der har en bedr idé.





<TABLE WIDTH="769" ALIGN="CENTER" BORDER="1" CELLSPACING="0" CELLPADDING="4">
<H2>Members List: </H2><BR>
  <!--DWLayoutTable-->
  <TR>
  <TD width="160" bgcolor="#FFFFFF" CLASS="Header">MembersID</TD>
  <TD width="250" bgcolor="#33CCFF" CLASS="Header">e-mail</TD>
    <TD width="100" bgcolor="#33CCFF" CLASS="Header">Aktiv/Passiv</TD>
    <TD width="100" bgcolor="#33CCFF" CLASS="Header">Markering</TD>
</TR>
<%
  RS.MoveFirst
  While Not RS.EOF
        Response.Write "<TR><TD>"&RS("MembersID")&"</TD>"+ vbCrLf
        Response.Write"<TD><A HREF=""mailto:" & RS("Email") & """>" &RS("Email")&"</A></TD>"+ vbCrLf
        Response.Write "<TD>"&RS("status")&"</TD>"+ vbCrLf
        Response.Write"<TD>"&"<form name=""form1""method=""post"" action=""""><input type=""checkbox""value=""checkbox""></form>"&"</TD></TR>"
  RS.MoveNext
  Wend
 
%>

</TABLE>
<TABLE WIDTH="550" ALIGN="CENTER" BORDER="0" CELLSPACING="0" CELLPADDING="10">
<BR><BR><BR><BR><BR>
<input name="Delete" type="button" value="Slet medlem">
<input name="transform" type="button" value="Ret e-mail ">
<input name="activate" type="button" value="Aktiver medlem">
<input name="deactivate" type="button" value="Deaktiver medlem">

</TABLE>
Avatar billede nordclc Nybegynder
25. november 2002 - 21:08 #1
Jeg har ikke helt forstået om der er mulighed for at afvinge/vinge af flere checkboxes, men hvis det er tilfældet, så kan du måske gøre således:

1. Lav en formular
2. Indsæt dine checkboxes med samme name (f.eks cb) men forskellig value (keyen)
3. Hvis recorden så skal slettes, så gør du følgende:

if Request.Form("cb") <> "" then
  strSQL = "DELETE FROM dintabel WHERE ID IN (" & Request.Form("cb") & ");"
  myConn.Execute(strSQL)
end if

Håber du forstår hvad jeg mener ;o)

//Claus

<input type="checkbox" name=KAK value=<%=rs("ID")%>><br>



if Request.Form("KAK") <> "" then
  strSQL = "DELETE FROM dintabel WHERE ID IN (" & Request.Form("KAK") & ");"
  myConn.Execute(strSQL)
end if
Avatar billede nordclc Nybegynder
25. november 2002 - 21:09 #2
Jeg laver lige et eksempel, øjeblik.......

//Claus
Avatar billede nordclc Nybegynder
25. november 2002 - 21:10 #3
Ups, if Request.Form("KAK") <> "" then
= if Request.Form("cb") <> "" then
Avatar billede nordclc Nybegynder
25. november 2002 - 21:23 #4
Det kunne se sådan her ud (jeg har ikke testet det!):

<%
  ' Databaseforbindelse
  Set Conn = Server.CreateObject("ADODB.Connection")
  DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
  DSN = DSN & "DBQ=" & Server.MapPath("/_private/test.mdb")
  Conn.Open DSN
 
  If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

    ' Slet eksisterende tilmeldinger
    if Request.Form("cb") <> "" then
      strSQL = "DELETE FROM dintabel WHERE ID IN (" & Request.Form("cb") & ");"
      Conn.Execute(strSQL)
    end if
  Else
    strSQL = "SELECT key, tekst FROM dintabel"
    SER RS = Conn.Execute(strSQL)
  End if 
%>
<html>
<head>
</head>
<body>
<% If Not (rs.BOF Or rs.EOF) Then %>   
  <form method="POST" action="test.asp" name="form1">
<% Do While Not rs.EOF %>
  <input type="checkbox" name="cb" value="<%=rs("key")%>"><%=rs("tekst")%><br>
<%  rs.MoveNext
Loop%>
  <input type="submit" value="Slet" name="B1">
  <input type="reset" value="Nulstil" name="B2">
<% End If%>
</form>
</body>
</html>
Avatar billede dennish Nybegynder
25. november 2002 - 21:32 #5
Kunne godt tænke mig et lille eksempel :-)
Avatar billede dennish Nybegynder
25. november 2002 - 21:33 #6
ups kigger på eksemplet
Avatar billede nordclc Nybegynder
29. november 2002 - 11:44 #7
Kan du bruger det?
Avatar billede nordclc Nybegynder
02. december 2002 - 13:24 #8
dennish> Er du gået til julefrokost ;o)
Avatar billede dennish Nybegynder
02. december 2002 - 23:06 #9
sorry ! jeg kan godt bruge det og jo har været til en våd våd julefrokost
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 18:04 Findes der et "Papir-kurv" symbol, man kan sætte på Firefox og Google Chrome ? (For oven) Af Ikke-ekspert i Browsere
03/1012:14 Ang udskrift Canon mb5050 Af made18 i Printere
02/1021:29 Vedr. Windows 11 version 26H2 Af ErikHg i Fri debat
02/1018:16 Tømme gammel PC for indhold, kan ikke tændes Af Mai i Andet software
01/1017:41 NVIDIA Geforce GTX 1060 6 GB som "snakker" Af dcedata1977 i Andet hardware
White papers
Flere white papers »