Lave mail som kan hente data fra databasen

laver nogle echo"" 's omkring den text du sender...

Der bliver du nød til at uddybe dig lidt.. smiler..

prøv lige at smide din kode herind

<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:&nbsp;
    </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:&nbsp;
    </STRONG></FONT>
    </TD>
    <TD ALIGN="LEFT">
    <TEXTAREA COLS="45" ROWS="15" NAME="tekst"></TEXTAREA>
    </TD>
  </TR>
  <TR>
    <TD ALIGN="LEFT">
    &nbsp;
    </TD>
    <TD ALIGN="RIGHT">
    <% end if %>
        <input type="submit" value="-- SEND --">
    </TD>
  </TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>

arrg, sorry... troede at det var PHP, da det var en MySQL database..
kan ikke lige asp,, sorry..

Det er bare i orden, vi må håe at der kommer en anden som har lyst til at prøve kræfter med mig.. smiler..

lukker spørgsmålet