|
|
|
|
|
Favoritvarer/Nyhedsbrev/Kontakt
Login for at benytte dig af favoritvarer.
Tilmelding/Afmelding af SilverQueens Nyhedsbrev
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.silverqueen.dk"
Mailer.AddRecipient "Webmaster / Jeanne Sommer","silverqueendk@gmail.com"
Mailer.Subject = Request("emne")
Mailer.FromName = Request("navn")
Mailer.FromAddress = Request("mail")
Mailer.CharSet = 2
if Request("tilmeld") = "on" then
Mailer.BodyText = "Jeg skal tilmeldes."
end if
if Request("afmeld") = "on" then
Mailer.BodyText = "Jeg vil frameldes."
end if
if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt. "
Response.Write "Følgende er blevet indtastet Emne: " & Request("emne") & " " & replace(msg,vbcrlf," ") & " "
end if
%>
|
|
|
|
|
|
|
|
|
|