Memberdetails ändern
  Bitte die gewünschten Änderungen durchführen:
  (die mit * markierten Felder sind Pflicht!) <% path=Request.ServerVariables("PATH_TRANSLATED") path=left(path,instrrev(path,"\")) strDSN = "DRIVER=Microsoft Access-Treiber (*.mdb); DBQ=" & path & "database\database.mdb" user = request("user") newent=trim(request("new")) loeschen=trim(request("loeschen")) if not user = session("memberuser") then if not session("memberrecht")= "Admin" then response.redirect "memberlist.asp?sortby=username" end if end if if loeschen="T" then Set database1 = Server.CreateObject("ADODB.Connection") database1.Open strDSN strSQL = "DELETE FROM members WHERE username='" & user & "'" database1.Execute(strSQL) database1.close Response.Redirect "memberlist.asp" end if if newent="yes" then vorname=trim(request("vorname")) nachname=trim(request("nachname")) passwort=trim(request("passwort")) location=trim(request("location")) telefon=trim(request("telefon")) email=trim(request("email")) homepage=trim(request("homepage")) if left(homepage,7)="http://" then homepage=mid(homepage,8) end if icq=trim(request("icq")) aim=trim(request("aim")) beruf=trim(request("beruf")) bild=trim(request("bild")) rechte=trim(request("rechte")) if left(bild,7)="http://" then bild=mid(bild,8) end if kommentar=trim(request("kommentar")) if len(vorname)=0 or len(passwort)=0 or len(email)=0 then response.write "

Achtung! Nicht alle Pflichtfelder ausgefüllt...
" else Set database = Server.CreateObject("ADODB.Connection") database.Open strDSN strSQL = "Update members SET passwort = '" & passwort & "', vorname = '" & vorname &"', nachname = '" & nachname & "',location = '" & location & "',telefon = '" & telefon & "',email = '" & email & "',homepage = '" & homepage & "',bild = '" & bild & "',icq = '" & icq & "',aim = '" & aim & "',beruf = '" & beruf & "',kommentar = '" & kommentar & "', rechte = '" & rechte & "' WHERE username='" & user & "'" Response.Write strsql database.Execute(strSQL) session("memberuser")=username session("memberrecht")="Member" Response.Redirect "memberdetail.asp?member="&user database.close end if end if strSQL="SELECT * FROM members WHERE username='" & user & "'" Set database = Server.CreateObject("ADODB.Recordset") database.Open strSQL, strDSN set username = database("username") set vorname = database("vorname") set nachname = database("nachname") set email = database("email") set passwort = database("passwort") set location = database("location") set homepage = database("homepage") set telefon = database("telefon") set rechte = database("rechte") set icq = database("icq") set aim = database("aim") set beruf = database("beruf") set d_rechte = database("rechte") set kommentar = database("kommentar") set bild = database("bild") if not database.EOF then %>
<% if session("memberrecht") = "Admin" then %> <% else %> <% end if %>
Passwort*:
e-Mail*:
Vorname*:
Nachname:
Location:
Telefon:
Homepage:http://
ICQ:
AIM:
Beruf:
Kommentar:
persönliches Bild:
Status:
 
<% if session("memberrecht") = "Admin" then %>  Admin Optionen: User löschen
<% end if %>
<% end if database.close %>