Her kommer admin-koden:<%
stmpserver = \"minserver\"
password = \"mitpassword\"
Afsenders_Navn = \"Jesper\"
Afsenders_Email = \"jespert@email.dk\"
mode = request(\"mode\")
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"mail.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
%>
<html>
<head>
<title>Administrator afdeling</title>
</head>
<body>
<%
if mode = \"\" then
call login
end if
if mode = \"login\" then
if request.form(\"pass\") = password then
call besked
call sletbruger
else
response.write \"Forkert password<br>\"
call login
end if
end if
if mode = \"send\" then
emme = request(\"emme\")
test = request(\"besked\")
if emme = \"\" then
response.write \"skriv lige et emme<br>\"
fejl = 1
end if
if test = \"\" then
response.write \"Skriv lige en besked<br>\"
fejl = 1
end if
if not fejl = 1 then
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = stmpserver
JMail.Sender = Afsenders_Email
JMail.SenderName = Afsenders_Navn
JMail.Priority = 3
Jmail.Subject = emme
JMail.body = test
Strsql = \"Select * from mail\"
Set rs = myConn.Execute(strSQL)
response.write \"Email sender afsted til: \"
Do While Not rs.EOF
Jmail.AddRecipientBCC rs(\"email\")
response.write rs(\"email\") & \", \"
rs.movenext
loop
JMail.Execute
Set JMail = Nothing
else
call besked
end if
end if
if mode = \"sletbruger\" then
id = request(\"delet\")
if id = \"\" then
response.write \"<font color=\'red\'>Du skal vælge et medlem</font>\"
fejl = 1
end if
if fejl = 1 then
call sletbruger
end if
if not fejl = 1 then
str = request(\"delet\") & \", \"
lPos = 1
Do While lPos <= Len(str)
If InStr(lPos, str, \", \") = 0 Then Exit do
aItem = Mid(str, lPos, InStr(lPos, str, \", \") - lPos)
lPos = lPos + InStr(lPos, str, \", \") - lPos + 2
aItem2 = aItem
strSQL = \"SELECT * FROM mail WHERE ID = \" & aItem2 & \"\"
Set rs = myConn.Execute(strSQL)
link = rs(\"navn\")
email = rs(\"email\")
strSQL = \"Delete * FROM mail WHERE\"
strSQL = strSQL & \" (ID LIKE \'%\" & aItem & \"%\')\"
Set rs = myConn.Execute(strSQL)
response.write \"Medlemmet er slettet<br>\"
loop
call besked
call sletbruger
end if
end if
%>
</body>
</html>
<%sub besked %>
<font size=\"4\">Afsending af Emails</font>
<!-- Skriver beskeden -->
<form action=\"admin.asp\" method=\"POST\">
<input type=\"Hidden\" name=\"mode\" value=\"send\">
Emne:<br><input type=\"Text\" name=\"emme\" size=\"30\"><br>
Besked:<br><textarea name=\"besked\" cols=\"30\" rows=\"10\"></textarea><br>
<input type=\"Submit\" value=\"Send\">
</form>
<%end sub %>
<%sub login %>
<!-- Logge dig ind i mailinglisten -->
<form action=\"admin.asp\" method=\"POST\">
<input type=\"Hidden\" name=\"mode\" value=\"login\">
Password:<br><input type=\"password\" name=\"pass\"><br>
<input type=\"Submit\" value=\"Login\">
</form>
<%end sub %>
<%sub sletbruger
strSQL = \"SELECT * FROM mail\"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
response.write \"<br><font size=\'4\'>Slet en fra mailinglisten</font><br>\"
response.write \"<table border=\'1\'><tr><td>Slet</td><td>Navn</td><td>Email</td></tr>\"
response.write \"<form action=\'admin.asp\' method=\'POST\'><input type=\'Hidden\' name=\'mode\' value=\'sletbruger\'>\"
Do While Not rs.EOF %>
<tr>
<td valign=\"top\">
<input type=\"Checkbox\" name=\"delet\" value=\"<%= rs(\"id\") %>\">
</td>
<td valign=\"top\">
<%response.write rs(\"navn\") %>
</td>
<td valign=\"top\">
<%response.write rs(\"email\") %>
</td>
</tr><%
rs.movenext
loop
response.write \"<tr><td><input type=\'Submit\' value=\'Slet\'></td></tr></form>\"
response.write \"</table>\"
else
response.write \"Der er ingen medlemmer i databasen\"
end if
end sub %>
Ny bruger
Nybegynder
Opret
Preview
