<HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
</HEAD>
<BODY BGCOLOR="#5286B6" TEXT="#000000">
<%
server.scripttimeout = 300
if request("dologin") = "xx" then
session.contents("writemaillogin") = 1
end if
if request("mode") = "send" then
'****** VÆLG PROGRAM TIL AT SENDE MAILEN ******
'1 = JMAIL
'2 = CDONTS
mailertype = 1
'**********************************************
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={MySQL ODBC 3.51 Driver}; SERVER=localhost;UID=11;PWD=22;DATABASE=33;"
SQL = "SELECT UserUsername from Users"
set send = conn.execute( SQL )
do while not send.eof
on error resume next
if mailertype = 1 then
Set JMail = Server.CreateObject("JMail.SMTPMail")
' This is my local SMTP server
JMail.ServerAddress = ""
' mail config settings
JMail.Charset = "iso-8859-1"
JMail.ContentTransferEncoding = "8bit"
uname = send("userUsername") & "@xx.dk"
JMail.Sender = "info@xx.dk"
JMail.Subject = request("header")
JMail.AddRecipient uname
JMail.Body = request("tekst")
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
JMail.Priority = 3
' Send it...
JMail.Execute
set JMail = nothing
elseif mailertype = 2 then
uname = send("userUsername") & "@xx.dk"
' importance = 0 ' lav
importance = 1 ' normal
' importance = 2 ' høj
Set mailObj = CreateObject("CDONTS.NewMail")
' send email med parametre : fra email, til email, header, besked, importance
mailObj.Subject = request("header")
mailObj.Host = ""
mailObj.Body = request("tekst")
mailObj.From = "info@xx.dk"
mailObj.To = uname
mailObj.Send
' slet reference til CDONTS object
Set mailObj = Nothing
end if
response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail er sendt til : "& uname &"</STRONG></FONT><BR>"
send.movenext
loop
conn.close
else %>
<CENTER>
<TABLE BORDER="0">
<form action="write_send.asp" METHOD="POST">
<%
if session.contents("writemaillogin") <> 1 then
%>
<input type="text" name="dologin" size="10">
<% else %>
<INPUT TYPE="hidden" NAME="mode" VALUE="send">
<TR>
<TD ALIGN="LEFT">
<FONT FACE="Arial" SIZE="2" COLOR="#000000"><STRONG>
Overskrift:
</STRONG></FONT>
</TD>
<TD ALIGN="LEFT">
<INPUT TYPE="TEXT" NAME="header" SIZE="50">
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT" VALIGN="TOP">
<FONT FACE="Arial" SIZE="2" COLOR="#000000"><STRONG>
Tekst:
</STRONG></FONT>
</TD>
<TD ALIGN="LEFT">
<TEXTAREA COLS="45" ROWS="15" NAME="tekst"></TEXTAREA>
</TD>
</TR>
<TR>
<TD ALIGN="LEFT">
</TD>
<TD ALIGN="RIGHT">
<% end if %>
<input type="submit" value="-- SEND --">
</TD>
</TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>
Ny bruger
Nybegynder
Opret
Preview
