Koden smides ud på en side

Der er to måder du kan gøre det på:
1) Du kan vælge istedet for at slette brugerne, så lave et ja/nej felt i din database, og så sige at hvis feltet er true, så er de slettet, og kan ikke logge ind, og hvis den er false, så er de ikke slettet, og så kan de logge ind. Så laver du bare en sql streng der hedder : "select * from user where slettet = true" og så får du listen over brugere der er slettet.

2) du kan sige at når du sletter en bruger så bliver hans profil overført til en anden tabel, og så kan du bare hente de tabel ud på din asp side.

Håber du forstår noget af det...

>Niels - ja mig...

Denne lyder som en god ide, db ? hvordan sætter jeg den op.?


2) du kan sige at når du sletter en bruger så bliver hans profil overført til en anden tabel, og så kan du bare hente de tabel ud på din asp side.

dette script vil udskrive de personer der vil blive slettet.
Vis dette på en side med et link til den side, med den kode du har postet herover.

//akj

<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/medlemsliste/db/medlemmer.mdb")

Conn.Open DSN

'Udregn datoen for 2 måneder siden
datoStr = DateAdd("m", -2, date())
'Formater datoen i US formatet yyyy-mm-dd som bruges i SQL
datoStr = Year(datoStr) & "-" & Month(datoStr) & "-" & Day(datoStr)
'Lav en SQL sætningen som sletter fra tabellen user
SQL = "select * FROM user WHERE Dato2 < #"& datoStr & "#"
'Udføre SQL sætnignen
set rs = Conn.Execute(SQL)

response.write "<table>"
do while not rs.eof
    response.write "<tr>"
    response.write "<td>" & rs("fornavn") & "</td>"
    response.write "<td>" & rs("efternavn") & "</td>"
    response.write "<td>" & rs("osv.....") & "</td>"
    response.write "</tr>"
    rs.movenext
loop


'Luk forbindelsen til databasen
Conn.Close
'Lige for god orden skyld bør denne med for at slette objectet Conn.
Set Conn = Nothing
%>

Jeg har denne kode, Vis jeg skal bruge dette forslag:

1) Du kan vælge istedet for at slette brugerne, så lave et ja/nej felt i din database, og så sige at hvis feltet er true, så er de slettet, og kan ikke logge ind, og hvis den er false, så er de ikke slettet, og så kan de logge ind. Så laver du bare en sql streng der hedder : "select * from user where slettet = true" og så får du listen over brugere der er slettet:


Jeg har lavet en i tablen der hedder "Godkendt"
Hvor i koden skal det så sættes ind:

>>>>Koden<<<<<<

<%
'Her laves et connection object som brues til at connecte til database
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

'I denne streng som kaldes en Connection String, angives hvilen database driver/provider der skal bruges til at tilgå databasen
'samt hvilken database der skal åbnes
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/medlemsliste/db/medlemmer.mdb")
'Åben til databasen
Conn.Open DSN

'Udregn datoen for 2 måneder siden
datoStr = DateAdd("m", -2, date())
'Formater datoen i US formatet yyyy-mm-dd som bruges i SQL
datoStr = Year(datoStr) & "-" & Month(datoStr) & "-" & Day(datoStr)

SQL = "SELECT * FROM user WHERE Dato2 < #"& datoStr & "#"
set rs = Conn.Execute(SQL)
do while not rs.EOF
  SQL = "INSERT INTO deleteduser (id, Brugernavn, navn, email, Point, ICQ, Godkendt, Hold, Rang, Nick, Msn, Adgangskode, Dato, Dato2) "
  SQL = SQL & " VALUES ("
  sdato = Year(rs("Dato")) & "-" & Month(rs("Dato")) & "-" & Day(rs("Dato"))
  SQL = SQL & "#" & sdato & "#,"
  sdato = Year(rs("Dato2")) & "-" & Month(rs("Dato2")) & "-" & Day(rs("Dato2"))
  SQL = SQL & "#" & sdato & "#,"
  SQL = SQL & "'" & rs("id") & ""
  SQL = SQL & "'" & rs("Brugernavn") & ""
  SQL = SQL & "'" & rs("navn") & ""
  SQL = SQL & "'" & rs("email") & ""
  SQL = SQL & "'" & rs("Point") & ""
  SQL = SQL & "'" & rs("ICQ") & ""
  SQL = SQL & "'" & rs("Godkendt") & ""
  SQL = SQL & "'" & rs("Hold") & ""
  SQL = SQL & "'" & rs("Rang") & ""
  SQL = SQL & "'" & rs("Nick") & ""
  SQL = SQL & "'" & rs("Msn") & ""
  SQL = SQL & "'" & rs("Adgangskode") & ""
  SQL = SQL & "'" & rs("Dato") & ""
  SQL = SQL & "'" & rs("Dato2") & ""
 
  SQL = SQL & ")"
  set rs = Conn.Execute(SQL)

  rs.Movenext
loop

'Lav en SQL sætningen som sletter fra tabellen user
SQL = "DELETE FROM user WHERE Dato2 < #"& datoStr & "#"
'Udføre SQL sætnignen
Conn.Execute(SQL)


'Luk forbindelsen til databasen
Conn.Close
'Lige for god orden skyld bør denne med for at slette objectet Conn.
Set Conn = Nothing
%>

Lukker!!!!

Jamen tak for hjælpen !!

//akj