NyhedsBrev




<% Dim strEmail, straktiv strEmail = Trim(Request.Form("ClientEmail")) strmail = Trim(Request.Form("Email")) strtil = Trim(Request.Form("til")) If (strEmail <> "") Then Dim objMail, htmltext Set objMail = Server.CreateObject( "CDONTS.NewMail" ) htmltext = "Kundens e-mail: " htmltext = htmltext & strmail htmltext = htmltext & "

Til/framelding: " htmltext = htmltext & strtil objMail.From = "nyhedsbrev@pcdatasystemer.dk" objMail.To = stremail objMail.Subject = "Nyhedsbrev" objMail.BodyFormat = 0 objMail.Body = htmltext objMail.Host = "smtp1.b-one.nu" objMail.Send Response.Write "" Set objMail = Nothing End If %>