Avatar billede BUZZDK72 Juniormester
21. marts 2016 - 11:17 Der er 1 kommentar og
1 løsning

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
%>
Avatar billede softspot Forsker
21. marts 2016 - 11:40 #1
Når du bruger hardcoded tekst i dine kildefiler, skal de gemmes i den encoding du ønsker at bruge. Det er ikke nok, at sætte response-headeren for charset.

Desuden skal denne response-header sættes i den kildefil du omdirigerer til og ikke i den kildefil du omdigigerer fra.

Din editor giver nok lov til at vælge encoding, når du vælger "gem som" (notepad gør).
Avatar billede BUZZDK72 Juniormester
22. marts 2016 - 18:07 #2
Jeg fandt en anden løsning og lukker.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



IT-JOB

Udviklings- og Forenklingsstyrelsen

Data specialist med Power BI-kompetencer

Akademikernes A-kasse

IT-supporter med teknisk flair

VikingGenetics

Data Engineer

Dynamicweb Software A/S

Marketing Intern (DK)