% If Request.Form("Email")<>"" Then Dim MyMail Set MyMail = Server.CreateObject("CDONTS.NewMail") MyMail.From = Request.Form("Email") MyMail.To = "peter.lindegren@svenskakyrkan.se" MyMail.Subject = "Kontakt" body = "E-post: "& Request.Form("Email") & vbcrlf & "Message: "& vbcrlf & Request.Form("Meddelande") MyMail.Body = body MyMail.Send Set MyMail = Nothing Response.Redirect "tack.asp" Else %>
|
||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
<% End If %>