Avatar billede Shasim Novice
25. februar 2005 - 12:32 Der er 15 kommentarer og
1 løsning

Jmail - ascikode-problem

Jeg sender følgende i en streng fra Flash til mit jmail-script: et mellemrum lavet som en ascikode (Alt+0160) efterfulgt af 3 cifre. I den genererede mail der resultatet sådan ud: Â 134

Det er jeg lidt træt af, kan man gøre noget ved det?
Avatar billede Shasim Novice
28. februar 2005 - 12:20 #1
Hvor er alle Eksperterne henne? Hjælper det med flere points?
Avatar billede moejensen Nybegynder
06. marts 2005 - 16:25 #2
Jeg er ikke helt sikker på at jeg ved hvad du mener, men jeg har tidligere havft problemer med specielle tegn og linieskift fra frash, der lavede jeg denne funktion:

Function TextFixer(txt)
        txt = Replace(txt,Chr(13),"<br>")
        txt = Replace(txt,"%e6","æ")
        txt = Replace(txt,"%f8","ø")
        txt = Replace(txt,"%e5","å")
        TextFixer = txt
    End Function
Avatar billede Shasim Novice
06. marts 2005 - 19:21 #3
Det er ikke altid at mellemrum lavet med mellemrumstasten bliver accepteret af Flash, derfor har jeg brugt ascikoden "Alt+0160" efterfulgt af 3 cifre. I Flash er det ikke noget som giver problemer, men i det øjeblik jeg sender skidtet afsted til et Jmail-script og der skal genereres en mail bliver det omsat til "Â 134".

Hvad referere "Chr(13)" til? Er det karakteren på 13. plads, som skal erstattes med et linjeskift?
Avatar billede moejensen Nybegynder
06. marts 2005 - 19:35 #4
nej det er asci koden for linieskift
Avatar billede Shasim Novice
07. marts 2005 - 08:25 #5
Okay, hvordan skal funktionen se ud hvis den skal løse mit problem?

Function TextFixer(txt)
        txt = Replace(txt,?,"")
        TextFixer = txt
    End Function

I mit tilfælde behøver mellemrummet ikke at blive erstattet af noget.
Avatar billede moejensen Nybegynder
07. marts 2005 - 09:49 #6
prøv med:

Function TextFixer(txt)
        txt = Replace(txt,"Â 134"," ")
        TextFixer = txt
    End Function
Avatar billede Shasim Novice
07. marts 2005 - 09:58 #7
Hmm... hvordan får jeg det ind i mit øvrige script? Undskyld jeg er lidt tung...

<%

smtpServer = "smtp.mail.dk"
smtpPort = 25

' ---
dim smtpServer, smtpPort


Set message = CreateObject ("JMail.Message")

message.From = Request.Form("fromEmail")
message.FromName = Request.Form("fromName")
message.Subject = "Spinning Ring bestilling"
message.AddRecipient Request.Form("forhandler")
message.ContentType = "text/html"
message.ISOEncodeHeaders = false
message.ContentTransferEncoding = "base64"
message.Body = "<strong>"& "SPINNING RING BESTILLING" &"</strong>" &_
"<Br>"&_
"<Br>"&_
"Navn: "&Request.Form("fromName") &_
"<Br>"&_
"Adresse: "&Request.Form("adresse") &_
"<Br>"&_
"Postnr.: "&Request.Form("postnr") &_
"<Br>"&_
"By: "&Request.Form("city") &_
"<Br>"&_
"Tlf.: "&Request.Form("tlf") &_
"<Br>"&_
"Ring 1: "&Request.Form("varenr1") &_
"<Br>"&_
"Ring 2: "&Request.Form("varenr2") &_
"<Br>"&_
"Ring 3: "&Request.Form("varenr3") &_
"<Br>"&_
"Ring 4: "&Request.Form("varenr4") &_
"<Br>"&_
"Ring 5: "&Request.Form("varenr5") &_
"<Br>"&_
"Ring 6: "&Request.Form("varenr6") &_
"<Br>"&_
"<Br>"&_
"Total kr.: "&"<strong>"& Request.Form("pris")&"</strong>"

message.Priority = 3

message.Send(smtpServer & ":" & smtpPort)
Response.write "success=1&timeDate=" & Server.URLEncode(message.Date) & "&end=1"
set message = nothing
%>
Avatar billede moejensen Nybegynder
07. marts 2005 - 10:04 #8
hvor får du strengen fra flash?
Avatar billede Shasim Novice
07. marts 2005 - 10:07 #9
Du ser hele min kode ovenfor, så det må vel være de steder hvor der står
"Ring 1: "&Request.Form("varenr1") &_
osv...
Avatar billede moejensen Nybegynder
07. marts 2005 - 10:20 #10
du må vel selv vide hvor du trækker din sting ind ;-)

Prøv at smid den rundt om denne her: message.Body
Avatar billede Shasim Novice
07. marts 2005 - 10:29 #11
Hvis jeg var klogere end du kan se ovenfor, så skulle jeg nok rykke ud med det :)

Så jeg ved f.eks. heller ikke hvordan man "smider noget rundt om" !? Kan du vise mig det?
Avatar billede moejensen Nybegynder
07. marts 2005 - 10:35 #12
Response.write "success=1&timeDate=" & TextFixer(Server.URLEncode(message.Date)) & "&end=1"
Avatar billede Shasim Novice
07. marts 2005 - 10:43 #13
Øv, det virker stadig ikke, jeg får stadig "Â 134"
Avatar billede moejensen Nybegynder
07. marts 2005 - 11:29 #14
så kan jeg nok ikke hjælpe dig
Avatar billede Shasim Novice
07. marts 2005 - 11:53 #15
Nej, hvor ærgeligt ...
Avatar billede Shasim Novice
17. juni 2005 - 11:33 #16
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
Kategori
Kurser inden for grundlæggende programmering

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