Her er noget jeg lige biksede sammen :)
<%
response.buffer = true
adminkode = \"1234\"
action = request(\"action\")
%>
<html>
<head>
<title>Mailingliste</title>
</head>
<body>
<%
if action = \"\" Then
%>
<form action=\"mailling.asp?action=nymail\" method=\"post\">
Navn:<br>
<input type=\"text\" name=\"navn\"><br>
Email:<br>
<input type=\"text\" name=\"email\"><br>
<input type=\"submit\" value=\"Tilføj\">
</form>
<a href=\"mailling.asp?action=adminlogin\">Admin</a>
<% if session(\"fejl\") <> \"\" Then
%>
<font color=\"ff0000\"><%=session(\"fejl\")%></font>
<%
session(\"fejl\") = \"\"
end if
%>
<%
elseif action = \"nymail\" Then
if len(trim(request(\"navn\"))) = 0 Then
session(\"fejl\") = \"Navn mangler\"
response.redirect(\"mailling.asp\")
elseif len(trim(request(\"email\"))) = 0 Then
session(\"fejl\") = \"Email mangler\"
response.redirect(\"mailling.asp\")
end if
Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"mailling.mdb\")
set check = Server.CreateObject(\"ADODB.Recordset\")
check.Open \"SELECT * FROM mailling WHERE email=\'\" & trim(request(\"email\")) & \"\'\", conn, 1, 3
if check.RecordCount = 0 then
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL = \"Select * From mailling\"
rs.Open SQL, Conn, 1, 3
rs.Addnew
rs(\"navn\") = server.HTMLEncode(trim(request(\"navn\")))
rs(\"email\") = server.HTMLEncode(trim(request(\"email\")))
rs(\"dato\") = date
rs.update
rs.close
set rs = nothing
set SQL = nothing
check.close
set check = nothing
conn.close
set conn = nothing
%>
Du er oprettet i maillinglisten!
<%
else
check.close
set check = nothing
conn.close
set conn = nothing
session(\"fejl\") = \"Emailen findes allerede\"
response.redirect(\"mailling.asp\")
end if
%>
<% elseif action = \"adminlogin\" Then %>
<form action=\"mailling.asp?action=login\" method=\"post\">
<input type=\"password\" name=\"password\"><br>
<input type=\"submit\" value=\"Login\">
</form>
<% if session(\"fejl\") <> \"\" Then
%>
<font color=\"ff0000\"><%=session(\"fejl\")%></font>
<%
session(\"fejl\") = \"\"
end if
%>
<% elseif action = \"login\" Then
if lcase(trim(request(\"password\"))) = lcase(adminkode) Then
session(\"login\") = \"ok\"
response.redirect(\"mailling.asp?action=admin\")
else
session(\"fejl\") = \"Forkert password\"
response.redirect(\"mailling.asp?action=adminlogin\")
end if
%>
<% elseif action = \"admin\" Then
if session(\"login\") = \"\" Then
%>
<font color=\"ff0000\">Du er ikke logget ind</font>
<% end if %>
Du er logget ind!<br>
<a href=\"mailling.asp?action=value\">Vælg email</a><br>
<a href=\"mailling.asp?action=ny\">Send mail</a><br>
<% elseif action = \"value\" Then
if session(\"login\") = \"\" Then
%>
<font color=\"ff0000\">Du er ikke logget ind</font>
<%
end if
Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"mailling.mdb\")
SQL = \"select * from mailling order by navn desc;\"
set rs = conn.execute( SQL )
if rs.eof Then
%>
Databasen er tom
<%
else
do until rs.eof
%>
<a href=\"mailling.asp?action=slet&id=<%=rs(\"id\")%>\"><%=rs(\"navn\")%></a> - <%=rs(\"email\")%><br>
<%
rs.movenext
loop
end if
rs.close
set rs = nothing
set SQL = nothing
conn.close
set conn = nothing
%>
<% elseif action = \"slet\" Then
if session(\"login\") = \"\" Then
%>
<font color=\"ff0000\">Du er ikke logget ind</font>
<%
end if
Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"mailling.mdb\")
SQL = conn.execute(\"delete * from mailling where id=\" & request(\"id\"))
set SQL = nothing
conn.close
set conn = nothing
%>
Brugeren er slettet!
<% elseif action = \"ny\" Then
if session(\"login\") = \"\" Then
%>
<font color=\"ff0000\">Du er ikke logget ind</font>
<%
end if
%>
<form action=\"mailling.asp?action=send\" method=\"post\">
Overskrift:<br>
<input type=\"text\" name=\"over\"><br>
Mail:<br>
<textarea name=\"mail\" cols=\"20\" rows=\"7\"></textarea><br>
<input type=\"submit\" value=\"Send\">
</form>
<% if session(\"fejl\") <> \"\" Then
%>
<font color=\"ff0000\"><%=session(\"fejl\")%></font>
<%
session(\"fejl\") = \"\"
end if
%>
<%
elseif action = \"send\" Then
if session(\"login\") = \"\" Then
%>
<font color=\"ff0000\">Du er ikke logget ind</font>
<%
end if
if len(trim(request(\"over\"))) = 0 Then
session(\"fejl\") = \"Overskrift mangler\"
response.redirect(\"mailling.asp?action=ny\")
elseif len(trim(request(\"mail\"))) = 0 Then
session(\"fejl\") = \"Mail mangler\"
response.redirect(\"mailling.asp?action=ny\")
end if
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"mail.dit-domain.dk\"
JMail.Sender = \"mail@dit-domain.dk\"
JMail.Subject = trim(request(\"over\"))
Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"mailling.mdb\")
SQL = \"select * from mailling order by navn desc;\"
set rs = conn.execute( SQL )
if rs.eof Then
rs.close
set rs = nothing
set SQL = nothing
conn.close
set conn = nothing
session(\"fejl\") = \"Databasen er tom\"
response.redirect(\"mailling.asp?action=ny\")
else
do until rs.eof
JMail.AddRecipient rs(\"email\")
rs.movenext
loop
end if
rs.close
set rs = nothing
set SQL = nothing
conn.close
set conn = nothing
JMail.Body = trim(request(\"mail\"))
JMail.Priority = 1
JMail.Execute
%>
Din mail er afsendt!
<% end if %>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
