cdonts skriver mærkeligt
når jeg modtager mailen kommer det her først:800
X-Mailer: Chili!Soft Mail Control
MIME-Version: 1.0
Content-Type: multipart/mixed;
boundary=CS_MAIL_Part_Boundary_10301998
This is a multi-part message in MIME format.
--CS_MAIL_Part_Boundary_10301998
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
koden:
if Request.Form("adresse") <> "" then
Dim objCDO
Set objCDO = Server.CreateObject( "CDONTS.NewMail" )
' Her sættes afsender navn og e-mail adresse
objCDO.From = "svommeleder@slsk.dk"
' Afsenders mailserver RETTES TIL
objCDO.Host = "mailout.b-one.net"
' Her sættes modtager navn og e-mail adresse
objCDO.To = Request.Form("email")
' Her sættes overskriften på mailen
objCDO.Subject = "Du er tilmeldt hold " & holdnavn& VbCrLf & holdnummer
' Her sættes selve teksten til mailen
objCDO.Body = "Kære " & Request.Form("efternavn") & VbCrLf & VbCrLf &"Du er tilmeldt dig: " & VbCrLf & VbCrLf &"Holdnavn: " & holdnavn & VbCrLf & "Holdnummer: " & holdnummer & VbCrLf & "Tilmeldtes navn: " & Request.Form("fornavn") & VbCrLf & "Ugedag: " & dag & VbCrLf & "Starttid: " & tider & VbCrLf & "Sluttid: " & slut & VbCrLf & "Instruktør: "& instruk & VbCrLf & "Pris: "& pris & VbCrLf & VbCrLf & "Tak for din tilmelding, du vil modtage et girokort snarest. Holdene starter i uge 35, vi glæder os til at se dig/jer" & VbCrLf & VbCrLf &"Med venlig hilsen slsk.dk."
' Send e-mail og skriv status
objCDO.Send
' Fjern objekt igen
Set objCDO = Nothing
end if
