<%@ Language=VBScript %> Emmasvej 2-10 - Brabrand <% Dim vPath, pPath, ConString, sqltext1, rsBrugerliste vPath = "../db/emmasvej.mdb" 'use this one if database is in root of cart folder pPath = Server.MapPath( vPath ) ConString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & pPath & ";" Function unQuote(strTekst) unQuote = Replace(strTekst,"'","''") End Function Sub Brugerliste sqltext1 = "SELECT * from Brugere order by Navn" 'response.write(sqltext1) set rsBrugerliste = Conn.Execute(sqltext1) End Sub Sub sletbruger(nId) sqltext = "DELETE FROM Brugere WHERE Lbnr=" & nId & "" Conn.Execute(sqltext) End Sub 'Main program if (Len(Session("Brugerid")) = 0) then Response.redirect "blogadm.asp" end if chaAktion = unQuote(Request.form("Aktion")) chaBrugerid = unQuote(Request.form("Brugerid")) chaKodeord = unQuote(Request.form("Kodeord")) chaCurItem1 = Request.form("CurItem1") if (chaAktion = "logoff") then Session("Brugerid") = "" Response.redirect "blog.asp" end if set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConString if (chaAktion = "sletbruger") then sletbruger chaCurItem1 end if %> <% if (Len(Session("Brugerid")) > 0) then response.write "
" response.write "
Log ud
" response.write "
Sideoversigt
" response.write "
Ny mailmodtager
" response.write "
Blog-oversigt
" response.write "
" end if %>
hejredalsparken
Modtagere af e-mails

<% Brugerliste response.write "" do while not rsBrugerliste.eof response.write "" rsBrugerliste.movenext Loop response.write "
NavnE-mail-adr.BrugeridLejlighedFuldmagt
" & rsBrugerliste("Navn") & ""& rsBrugerliste("Email") & "" & rsBrugerliste("Brugerid") & ""& ""& rsBrugerliste("Opgang")& ", " & rsBrugerliste("Etage")& ". " &rsBrugerliste("Side") & "." & rsBrugerliste("Autorisation") & ""& "[Slet]" & "[Ret]  
" %>
<% Conn.Close set Conn = Nothing %>