Hej jeg er ikke så god til det med asp og har fundet en mailliste
der loader fra en mdb fil men vil heller have at i stædet for den
der mdb fil så skulle der være et feldt hvor folk kunne indsætte
deres egen mail.
Sourcekoden:
<%
strQuery = request.querystring("mode")
IF strQuery = "" THEN
%>
<form method=POST action=?mode=2>
<input type=text name=emne><br>
<textarea name=besked rows="1" cols="20"></textarea><br>
<input type=submit value=Send>
</form>
<% ELSEIF strQuery = "2" THEN %>
<%
'Programmeret af Anders Holm, allora.dk
'Koden må frit benyttes ... ros modtages. hehe
'Der ydes ikke support på denne kode. =) Så kan I lære det. hehe
'
www.allora.dk - Showing you the world
Set Conn = Server.Createobject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.Mappath ("mail.mdb")
Conn.Open DSN
StrSQL = "Select * from tilmeldte"
set rs = Conn.execute(strSQL)
Do While Not (rs.Eof or rs.Bof)
strEmail = rs("email")
strEmne = request.form("emne")
strBesked = request.form("besked")
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "DIN_MAIL_SERVER"
JMail.Sender = "DIN_EMAIL"
JMail.AddRecipientEx "" & strEmail & "", "" & strEmail & ""
JMail.Subject = "" & strEmne & ""
JMail.Body = "" & strBesked & ""
JMail.Execute
Set JMail = Nothing
response.write "" & strEmail & " - Afsendt korrekt<br>"
rs.MoveNext
Loop
response.write "<br><br><b>Alle beskeder blev afsendt
korrekt.</b>"
Conn.Close
%>
<% END IF %>
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials