Der kommer ikke dansk tekst selvom jeg anvender iso-8859-1
Jeg har skrevet nedenstående kode, men kan ikke få den til at virke korrekt.Når mailen sendes afsted kommer den frem som den skal med æøå.
Men den de 2 statussider jeg omstiller til i forbindelse med afsendelse fejl eller ok svar nederst i koden virker ikke ???
Er der nogen som kan se hvad jeg gjort forkert ???
<%
// 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("Telefon")) > 0 AND Len(Request.Form("Kontakt")) > 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"
objMailer.Charset = "iso-8859-1"
// Modtager E-Postadresser.
objMailer.AddRecipient("email@123.dk")
// Modtager E-Postadresser.
objMailer.AddRecipient("")
// Formularen "Statistik"
objMailer.Body = objMailer.Body & VbCrLf & "Meddelelse fra kontaktformular på hjemmesiden: " & VbCrLf & VbCrLf &"Kunden har hørt om mig via: " & VbCrLf & Request.Form("Statistik") & VbCrLf
// Formularen "Navn"
objMailer.Body = objMailer.Body & VbCrLf & "Navn: " & VbCrLf & Request.Form("Navn") & VbCrLf
// Formularen "Adresse"
objMailer.Body = objMailer.Body & VbCrLf & "Adresse: " & VbCrLf & Request.Form("Adresse") & VbCrLf
// Formularen "Postnummer"
objMailer.Body = objMailer.Body & VbCrLf & "Postnummer: " & VbCrLf & Request.Form("Postnummer") & VbCrLf
// Formularen "By"
objMailer.Body = objMailer.Body & VbCrLf & "By: " & VbCrLf & Request.Form("By") & VbCrLf
// Formularen "Telefon"
objMailer.Body = objMailer.Body & VbCrLf & "Telefonnummer: " & VbCrLf & Request.Form("Telefon") & VbCrLf
// Formularen "Kontakttid"
objMailer.Body = objMailer.Body & VbCrLf & "Kunden ønsker at blive kontaktet via: " & VbCrLf & Request.Form("Kontakt") & VbCrLf
// Formularen "Meddelelse"
objMailer.Body = objMailer.Body & VbCrLf & "Meddelelse fra kunden: " & VbCrLf & Request.Form("Meddelelse") & VbCrLf
// Afsender E-Post.
objMailer.Execute()
Set objMailer = nothing
// Skriver okmeddelelse.
Session("error") = ("Tak for Deres henvendelse - Jeg besvarer Deres meddelelse så hurtigt som muligt.")
Response.Charset = ("iso-8859-1")
Response.Redirect("kontaktsvar.asp")
// Skriver fejlmeddelelse.
else
Session("error") = ("Der var fejl i Deres indtastning - Prøv venligst at indtaste igen !")
Response.Charset = ("iso-8859-1")
Response.Redirect("kontaktfejl.asp")
End if
%>