---

Jeg har bygget en database, og henter den således:

--------------------------
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ="&Server.MapPath("BLABLALBA.mdb")
%>
<table width="770" border="0" cellpadding="0" cellspacing="0"
bgcolor="DDD6AC">
<tr>
<td><div align="center">
<p>
<%
            'Hiver alle brugeren ud:
                  Set rs = Conn.Execute("select * from bruger order by
brugernavn")
                  %>
</p>
<p>&nbsp;</p>
<table width="90%" style="font-size: 7 pt; font-family:
Verdana,Arial; color: #000000; font-weight: bold;
background-color: #ADA67B; border-left: 1 solid #000000;
border-right: 1 solid #000000; border-top: 1 solid #000000;"
cellspacing="2" cellpadding="2">
<tr>
<td width="27%"> <div align="left"><font
class="small"><b>Brugernavn</b></font></div></td>
<td width="17%"> <div align="left"><font
class="small"><b>Blev oprettet
d. </b></font></div></td>
<td width="12%"> <div align="left"><font
class="small"><b>Alder</b></font></div></td>
<td width="22%"> <div align="left"><font
class="small"><b>HP</b></font></div></td>
<td width="8%"> <div align="left"><font
class="small"><b>Billede</b></font></div></td>
<td width="14%"><div align="left">Slet
bruger</div></td>
</tr>
</table>
<table width="90%" cellpadding="2" cellspacing="2"
style="font-size: 7 pt; font-family: Verdana,Arial; color:
#000000; font-weight: bold; background-color: #FFFFFF; border: 1
solid #000000">
<% Do until rs.eof %>
<tr>
<td width="27%" bordercolor="#DDD6AC"><div
align="left"><font class="small"><a
href="brugere.asp?mode=profil&id=<%=rs("brugerid")%>"><%=rs("brug
ernavn")%></a></font></div></td>
<td width="17%" bordercolor="#DDD6AC"><div
align="left"><font
class="small"><%=rs("brugeroprettet")%></font></div></td>
<td width="12%" bordercolor="#DDD6AC"><div
align="left"><font
class="small"><%=rs("brugeralder")%></font></div></td>
<td width="22%" bordercolor="#DDD6AC"> <div
align="left"><font
class="small"><%=rs("brugerhjemmeside")%></font></div></td>
<td width="8%" bordercolor="#DDD6AC"> <div
align="left"><a
href="brugere.asp?mode=profil&id=<%=rs("brugerid")%>"><img
src="http://<%=rs("brugerPix")%>" width="30" height="30"
border="0"></a></div></td>
<td width="14%" valign="middle"
bordercolor="#DDD6AC"> <h1 align="left">Slet</h1></td>
</tr>
<%
                     rs.movenext
                     loop
                     rs.close
                     set rs = nothing
                     %>
</table>

---------------------------------

I tabellen henter jeg brugerne og brugeroplysningerne ud, og jeg
har gjort klar til at den sidste række skal være et slette link
som står ud for hver enkelt bruger. Men hvordan giver jeg linket
en funktion så det sletter den bruger det står ud for?

Jeg har søgt her i forummet, og har ikke fundet en måde jeg kunne
bruge.

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

kimweltz skrev:


> I tabellen henter jeg brugerne og brugeroplysningerne ud, og
> jeg har gjort klar til at den sidste række skal være et slette
> link som står ud for hver enkelt bruger. Men hvordan giver jeg
> linket en funktion så det sletter den bruger det står ud for?

Du skal bruge en unik nøgle til at identificere den enkelte post
(typisk din primærnøgle, fx en autonummerfelt). Den nøgle sender du
så til en side som udfører sletningen (se evt. html.dk's tutorial
om sletninger: <http://html.dk/tutorials/asp/lektion21.asp>)

Selve overførslen kan godt foregå som et almindeligt link med
querystring (som det fx er vist her:
<http://html.dk/tutorials/asp/lektion19.asp>) - men hvis der er
andre end dig selv der har adgang til siden, vil jeg kraftigt
anbefale at du dels validerer input
(jf. <http://asp-faq.dk/article/?id=95> - samt at du bruger en
formular (med action=post) for ikke at gøre det for let at få
slettet forkerte data).
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Tak for svaret. Muligheden ligger i en admin sektion, så ingen andre
har adgang til det. Jeg prøver

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Nu har jeg givet linket en funktion:

<% if mode = "sletbruger" then

                  =rs("brugerId")
                  
               'Finder bruger
               Set rs = Conn.Execute("select * from bruger where brugerId = " &
Request.QueryString("brugerId"))
                  
                  'Sletter bruger
                  conn.Execute("delete from bruger where brugerId = " &
Request.QueryString("brugerId") & "")
                  end if
                  
                  Response.Redirect("brugere.asp")
      %>

men nu kommer siden slet ikke frem mere. Hvad har jeg gjort galt?

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Nu har jeg givet linket en funktion:

<% if mode = "sletbruger" then

                  =rs("brugerId")
                  
               'Finder bruger
               Set rs = Conn.Execute("select * from bruger where brugerId = " &
Request.QueryString("brugerId"))
                  
                  'Sletter bruger
                  conn.Execute("delete from bruger where brugerId = " &
Request.QueryString("brugerId") & "")
                  end if
                  
                  Response.Redirect("brugere.asp")
      %>

men nu kommer siden slet ikke frem mere. Hvad har jeg gjort galt?

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

kimweltz skrev:

> Nu har jeg givet linket en funktion:

Hvad mener du mere præcist med det?

> <% if mode = "sletbruger" then

Hvor har du mode fra?


>   =rs("brugerId")

Hvad laver den halve linje herover? (den vil give en asp-fejl)


>   'Finder bruger
>    Set rs = Conn.Execute("select * from bruger where brugerId = " &
> Request.QueryString("brugerId"))

Der er ingen grund til at spilde tid på at finde en bruger hvis du bare
skal slette personen.


> 'Sletter bruger
> conn.Execute("delete from bruger where brugerId = " &
> Request.QueryString("brugerId") & "")


> Response.Redirect("brugere.asp")

Prøv at udkommentere linjen herover mens du leder efter fejl (forudsat at
du har slettekoden i en særskilt fil). Du kan også have slettekoden
integreret i den fil du arbejder med. Så kører slettekoden først (hvis
siden er kaldt med en sletteparameter), og når den er færdig, kører den
almindelige visningskode der lister alle brugere.


--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html