Hej ellebæk
det har du da ret i. Her er koden til det:
<%@LANGUAGE="VBSCRIPT">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Response.Expires = 0
dim db
set db = new dbc
'her bruges mail komponenet fra Struer net
set msg = Server.CreateObject("JMail.Message")
'fejllogging anvendes til senere at udskrive fejlen hvis fejl opstår
msg.Logging = true
msg.Silent = true
'her anføres det der ønskes vist i modtagerens email-browser under "fra"
msg.From = "automail@artcinema.dk"
msg.FromName = "Artcinema"
'her hentes de medlemmer der skal modtage mailen.
db.OpenDB
set rs = db.rs_automail
msg.AddRecipient rs.field("email")
rs.Close
set rs = Nothing
'dette udgør emne feltet på mailen.
msg.Subject = "Autobekræftigelse på tilmelding til artcinema"
msg.HTMLBody = "<HTML><BODY BGCOLOR=""#CC9900""><H1 ALIGN=""CENTER"">velkommen til artcinema</H1><BR><BR></BODY></HTML>"
msg.appendhtml("<TABLE STYLE=""width: 400px; height:250px"" ALIGN=CENTER BORDER=1>")
msg.appendhtml("<TR><TD><FONT SIZE=4>Du er nu tilmeldt artcinema.<BR>")
msg.appendhtml("Du vil modtage nyhedsmail fra din egen biograf om smalle film")
msg.appendhtml("og nyheder fra artcinema.<BR><BR>")
msg.appendhtml("Dette er en autotilmelding og kan ikke besvares")
msg.appendhtml("<BR>Med venlig hilsen <br>Artcinema</FONT></TD></TR></TABLE>")
msg.Send("mail.artcinema.dk")
if not msg.Send("pasmtp.tele.dk") then
Response.Write "<pre>" & msg.log & "</pre>"
else
'besked sendt med succes og sessions variablerne status og lokal status nulstilles
'Response.Write "<font size=""4"">Der er nu sendt en autobekræftigelse til din mail<br></font>"
session("fejlbeskrivelse") = ""
end if
msg.ClearRecipients
%>
</body>
</html>
hilsen celine
