jeg har prøvet men det virker ikke rigtigt
<html>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>opretnyhedbrev</title>
<head>
</head>
<body>
<form method="post" action="mail_send.asp" id="nyhedsbrev">
<fieldset>
<legend>Nyhedsbrev</legend>
<div>
<label for="t1">Afs.email:</label>
<input id="t1" type="text" name="afsender_mail" size="89" value="<%=Request.Cookies("nyhedsbrev")("afsender_mail")%>" /><br />
<label for="t2">Afs.navn:</label>
<input id="t2" type="text" name="afsender_navn" size="89" value="<%=Request.Cookies("nyhedsbrev")("afsender_navn")%>" /><br />
<label for="t3">Modtagerliste:</label>
<input id="t3" type="text" name="modtager_liste" size="85" value="<%=Request.Cookies("nyhedsbrev")("modtager_liste")%>" /><br />
<label for="t4">Mailserver:</label>
<input id="t4" type="text" name="mailserver" size="88" value="<%=Request.Cookies("nyhedsbrev")("mailserver")%>" /><br />
<label for="t5">Emne:</label>
<input id="t5" type="text" name="subject" value="<%=Request.Cookies("nyhedsbrev")("subject")%>" size="92" /><br />
<label for="t6">Tekst:</label>
<textarea id="t6" name="body" cols="79" rows="20"></textarea><br />
<label for="t7">Prioritet:</label>
<select id="t7" name="priority">
<option value="1">1 - Højest</option>
<option value="2">2</option>
<option value="3" selected="selected">3 - Normal</option>
<option value="4">4</option>
<option value="5">5 - Lavest</option>
</select> <input type="submit" value="Send nyhedsbrev" />
<input type="submit" value="Preview" onclick="preview()" />
</div>
</fieldset>
</form>
If Request.Form("SUBMIT") = "Send nyhedsbrev" Then
<% Dim afsender_mail, afsender_navn, mailserver, subject, body, priority, modtager_liste
afsender_mail = Trim(Request.Form("afsender_mail"))
afsender_navn = Trim(Request.Form("afsender_navn"))
mailserver = Trim(Request.Form("mailserver"))
subject = Trim(Request.Form("subject"))
body = Trim(Request.Form("body"))
priority = Request.Form("priority")
modtager_liste = Trim(Request.Form("modtager_liste"))
Response.Cookies("Nyhedsbrev")("afsender_mail") = afsender_mail
Response.Cookies("Nyhedsbrev")("afsender_navn") = afsender_navn
Response.Cookies("Nyhedsbrev")("mailserver") = mailserver
Response.Cookies("Nyhedsbrev")("subject") = subject
Response.Cookies("Nyhedsbrev")("modtager_liste") = modtager_liste
Response.Cookies("Nyhedsbrev").Expires = Date+365
Set mail = Server.CreateObject("JMail.SMTPMail") 'Opretter objekt af JMail-komponent
With mail
.ServerAddress = mailserver
.Sender = afsender_mail
.SenderName = afsender_navn
.Subject = subject
.Body = body
.Priority = priority
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN
Set rs = Conn.Execute("SELECT email FROM nyhedsbrev")
If Not rs.EOF Then
Do While Not rs.EOF
.AddRecipient(rs("email"))
Response.Write "Sender e-mail til: " & rs("email") & "<br />"
rs.MoveNext
Loop
%>
Else
<%
Response.Redirect("mail_write.asp")
End If
Conn.Close
Set Conn = Nothing
If modtager_liste <> "" Then
.HideRecipients = modtager_liste
End If
.Execute() 'Sender e-mails
mail.Close()
End With
Set mail = Nothing
Response.Write "<p>Færdig! - Nyhedsbrev sendt</p>"
Else
afsender_mail = Trim(Request.Form("afsender_mail"))
afsender_navn = Trim(Request.Form("afsender_navn"))
modtager_liste = Trim(Request.Form("modtager_liste"))
subject = Trim(Request.Form("subject"))
body = Trim(Request.Form("body"))
If modtager_liste = "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN
Set rs = Conn.Execute("SELECT email FROM nyhedsbrev")
If Not rs.EOF Then %>
Til:
<% Do While Not rs.EOF
Response.Write rs("email") & ";"
rs.MoveNext
Loop
Response.Write "<br />"
End If
Else
Response.Write "Til: " & modtager_liste & "<br />"
End If%>
Fra: <%=afsender_navn%> (<%=afsender_mail%>)<br />
Emne: <%=subject%><br />
<%=Replace(Server.HTMLEncode(body), vbCrLf, "<br />")
End if%>
<p><a href="java script:history.back()" class="tlink">« Tilbage</a></p>
