Dansk tekst og indsæt mellemrum i mail.
Hej AlleJeg håber der er nogen som kan afhjælpe et problem med en asp classic kode.
Jeg vil gerne have dansk tekst ud i den mail som afsendes altså med Æ Ø Å bogstaverne, men kan ikke få det til at virke ???
Jeg vil også gerne have ny linje i mellem de data som sendes så det ikke står helt samlet i en linje.
Navn: Adam Jensen
Adresse: Ringvej 209
Postnr: 2730
By: Herlev
osv.
Min kode er vedhæftet herunder: Hvordan skal den se ud hvis den skal kunne ovenstående ? På forhånd tak.
<%
// Kontrollerer om der er tomme felter og om noget mangler at blive tastet ind.
IF Len(Request.Form("Epost")) > 0 AND Len(Request.Form("Emne")) > 0 AND Len(Request.Form("Statistik")) > 0 AND Len(Request.Form("Navn")) > 0 AND Len(Request.Form("Adresse")) > 0 AND Len(Request.Form("Postnummer")) >0 AND Len(Request.Form("By")) > 0 AND Len(Request.Form("Kontakt")) > 0 AND Len(Request.Form("Telefon")) > 0 AND Len(Request.Form("Meddelelse")) > 0Then
// Mailkomponenten "Jmail"
Set objMailer = Server.CreateObject ("JMail.SMTPMail")
// Udgående Mailserver.
objMailer.ServerAddress = "smtp.unoeuro.com"
// Udgående Mailserver Port.
objMailer.ServerPort = 587
// Formularen "Afsenderens E-Postadresse"
objMailer.Sender = Request.Form("Epost")
// Formularen "Emne"
objMailer.Subject = Request.Form("Emne")
// Almindelig Tekst.
objMailer.ContentType = "text/plain"
// Modtager E-Postadresser.
objMailer.AddRecipient("min1@email.dk")
// Modtager E-Postadresser.
objMailer.AddRecipient("min2@email.dk")
// Formularen "Statistik"
objMailer.Body = objMailer.Body & " Har hørt om os: " & Request.Form("Statistik")
// Formularen "Navn"
objMailer.Body = objMailer.Body & " Navn: " & Request.Form("Navn")
// Formularen "Adresse"
objMailer.Body = objMailer.Body & " Adresse: " & Request.Form("Adresse")
// Formularen "Postnummer"
objMailer.Body = objMailer.Body & " Postnummer: " & Request.Form("Postnummer")
// Formularen "By"
objMailer.Body = objMailer.Body & " By: " & Request.Form("By")
// Formularen "Kontakttid"
objMailer.Body = objMailer.Body & " Kontakt: " & Request.Form("Kontakt")
// Formularen "Telefon"
objMailer.Body = objMailer.Body & " Telefon: " & Request.Form("Telefon")
// Formularen "Meddelelse"
objMailer.Body = objMailer.Body & " Meddelelse: " & Request.Form("Meddelelse")
// Afsender E-Post.
objMailer.Execute()
Set objMailer = nothing
// Skriver okmeddelelse.
Session("error") = ("Tak for Deres henvendelse - Vi besvarer meddelelsen hurtigst muligt.")
Response.Redirect("kontaktsvar.asp")
// Skriver fejlmeddelelse.
else
Session("error") = ("Der var fejl i Deres indtastning - Prøv venligst igen !")
Response.Redirect("kontaktfejl.asp")
End if
%>