Oprette malingliste
Håber nogen her kan hjælpe mig. Jeg skal ha´ lave en malingsliste, så når man udfylder nedenstående, og klikker på send knappen, skal beskeden sendes ud til x antal.Håber nogen her kan hjælpe mig.
På forhånd tak.
<%@LANGUAGE="VBSCRIPT" %>
<% session.LCID = 1030 %>
<title>Husk at udfylde alle felterne</title>
<body>
<%
if Request.querystring("mode") = "send" then
set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = true
name = Request.Form("navn")
senderEmail = Request.Form("mail")
subject = Request.Form("emne")
recipient = ("navn@domæne.dk")
body = Request.Form("besked")
ip = Request.ServerVariables("REMOTE_ADDR")
msg.From = SenderEmail
msg.FromName = Name
msg.AddRecipient Recipient
msg.AddRecipientBCC senderEmail
msg.Subject = Subject
msg.Body = "Meddelelse den " & Date & " klokken " & Time & " fra: " & recipient & vbCrLf & "Navn: " & name & vbCrLf & "Mail: " & senderEmail & vbCrLf & "Emne:" & vbCrLf & subject & vbCrLf & "Tekst: " & vbCrLf & body
if not msg.Send("websmtp.domæne.dk") then
msg.Send("mailrealay.webhotel.dk")
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "<p>Meddelelse afsendt den " & Date & " klokken " & Time & "<br /><br /><b>Fra: </b>" & name & "<br /><br />" & "<b>Mail: </b><a href='mailto:" & senderEmail & "'>" & senderEmail & "</a> <br /><br />" & "<b>Emne: </b>" & subject & "<br /><br /><b>Tekst: </b>" & body & "<br /><br />Tak for din henvendelse. Jeg vender tilbage så hurtigt som muligt." & "</p>"
end if
%>
<%
Else %>
<form id="kontakt" method="post" action="mail.asp?mode=send">
<fieldset>
<legend>Husk at udfylde alle felterne</legend>
<label for="t1">Navn:</label>
<input id="t1" type="text" name="navn" /><br />
<label for="t2">Email:</label>
<input id="t2" type="text" name="mail" /><br />
<label for="t3">Emne:</label>
<input id="t3" type="text" name="emne" /><br />
<label for="t4">Besked:</label>
<textarea id="t4" name="besked" rows="10" cols="49"></textarea><br />
<label for="t5"> </label>
<input id="t5" type="submit" value="Send" />
<input type="reset" value="Slet" />
</fieldset>
</form>
<%
End If %>
</body>
</html>
