Klaus: Emailadresse direkt aus Vorname und Nachname generieren, jedoch ohne Umlaute

Beitrag lesen

GENIAL

Hallo Stefan !

FUNKTIONIERT JETZT EINWANDFREI !

VIELEN HERZLICHEN DANK !!!!

Mit freundlichen Grüßen

Klaus

Hallo Stefan !

Ich konnte leider nichts genaueres damit anfangen. Ich hab dir den gesamten HTML-Code zum anschauen an deine Email-Adresse gesendet. Vielleicht kannst du mir weiterhelfen.

Hallo,

eigentlich ganz einfach:

Du fügst folgenden Code in die erste Zeile deiner ASDP-Seite ein.

<%
Private Function ConvertText(TextBlock)

Dim NewTextBlock
    NewTextBlock = TextBlock
    NewTextBlock = Replace(NewTextBlock, "Ä", "Ae")
    NewTextBlock = Replace(NewTextBlock, "ä", "ae")
    ... ' Füge hier die anderen Buchstaben ein, genau wie in der Zeile obendrüber
ConvertText = NewTextBlock
End Function
%>

Dann folgt ganz normal Dein Code der HTML-Ausgabe, und wenn Du mit rs("MAVorname") ... die E-Mailadresse ausgibst, ersetzt Du es ungefähr so:

<A HREF="mailto:<%= rs("MAVorname") %>.<%= rs("MANachname") %>
ersetzten durch
<A HREF="mailto:<%= ConvertText(rs("MAVorname")) %>.<%= ConvertText(rs("MANachname")) %>

Das wars.

Tschau, Stefan

P.S.: Mein Mailserver spinnt im Moment etwas, daher das Posting hier.