<% path=Request.ServerVariables("PATH_TRANSLATED") path=left(path,instrrev(path,"\")) strDSN = "DRIVER=Microsoft Access-Treiber (*.mdb); DBQ=" & path & "database\database.mdb" user = request("member") strSQL="SELECT * FROM members WHERE username='" & user & "'" Set database = Server.CreateObject("ADODB.Recordset") database.Open strSQL, strDSN 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 icq = database("icq") set aim = database("aim") set beruf = database("beruf") set status = database("rechte") set datum = database("datum") set hostmask = database("hostmask") if not database.eof then %> <% if session("memberuser") = user or session("memberrecht") = "Admin" then %> <% end if %>
 Memberdetails für: <%=user%>

Daten editieren 


Name: <%=vorname%>  <%=nachname%>   Email an Member  <% if len(homepage) > 0 then%> Homepage <% end if %>
Status: <%=status%>

Wohnort: <%=Location%>
Telefon: <%=telefon%>
ICQ: <%=icq%>
AIM: <%=aim%>
Beruf: <%=beruf%>
Angemeldet seit: <%=datum%>
<% if session("memberrecht") = "Admin" then %> Hostmask: <%=hostmask%>
<% end if strSQL="SELECT id FROM news WHERE poster='" & user & "'" Set database = Server.CreateObject("ADODB.Recordset") database.Open strSQL, strDSN set id = database("id") vl_counter=0 do until database.eof database.MoveNext vl_counter=vl_counter +1 loop Response.write "
Statistiken für "&user&":
" if vl_counter > 0 then Response.write ""&vl_counter&" Newseinträge erstellt" else Response.write "noch keine Newseinträge erstellt" end if strSQL="SELECT reviewer FROM reviews WHERE reviewer='" & user & "'" Set database = Server.CreateObject("ADODB.Recordset") database.Open strSQL, strDSN Set reviewer = database("reviewer") vl_counter=0 do until database.eof vl_counter=vl_counter +1 database.MoveNext loop if vl_counter > 0 then Response.write "
"&vl_counter&" Reviews geschrieben" else Response.write "
noch keine Reviews geschrieben" end if strSQL="SELECT poster FROM lyrics WHERE poster='" & user & "'" Set database = Server.CreateObject("ADODB.Recordset") database.Open strSQL, strDSN Set poster = database("poster") vl_counter=0 do until database.eof vl_counter=vl_counter +1 database.MoveNext loop if vl_counter > 0 then Response.write "
"&vl_counter&" Lyrics eingefügt" else Response.write "
noch keine Lyrics eingefügt" end if strSQL="SELECT zeichner FROM fanart WHERE zeichner='" & user & "'" Set database = Server.CreateObject("ADODB.Recordset") database.Open strSQL, strDSN Set zeichner = database("zeichner") vl_counter=0 do until database.eof vl_counter=vl_counter +1 database.MoveNext loop if vl_counter > 0 then Response.write "
"&vl_counter&" Fanarts gezeichnet" else Response.write "
noch keine Fanarts gezeichnet" end if %>
<% strSQL="SELECT bild,kommentar FROM members WHERE username='" & user & "'" Set database = Server.CreateObject("ADODB.Recordset") database.Open strSQL, strDSN set bild = database("bild") set kommentar = database("kommentar") if len(bild)>0 then Response.write "" else Response.write "" end if %>
 
Kommentar: <%=kommentar%>
 
<%else%>
 Fehler
 
  User nicht gefunden oder nicht angemeldet...
<% end if database.close %>