% Function WriteMail(email, text) isOK = False p = InStr(email, "@") If p > 0 Then e1 = Left(email,p-1) e2 = Mid(email,p+1) strOut = "document.write("""");" p = InStr(text, "@") IsOK = True If p > 0 Then e1 = Left(email,p-1) e2 = Mid(email,p+1) strOut = strOut & "document.write(""" & e1 & """);document.write(""@"");" & _ "document.write(""" & e2 & """);" Else strOut = strOut & "document.write(""" & text & """);document.write("""");" End If End If If IsOK Then WriteMail = "" Else WriteMail = "-" End If End Function %>
Es freut mich, wenn Sie mit mir Kontakt aufnehmen.
Gerne sende ich Ihnen auch weitere Unterlagen
sowie meine
CD zu.
Für Presse und Veranstalter / Schulen sind spezielle CD's / DVD's erhältlich:
Ihre Meinung zu dieser Homepage interessiert uns.
Feedback und Besondere Erwähnung dieser Webseite
Peter Hunziker
Bänkelsänger & Liedermacher
Schlossgasse 21
CH-3400 BURGDORF
Tel. / Fax + 41 + 34 422 64 14
E-Mail: <%=WriteMail("peter@baenkelsaenger.ch","peter@baenkelsaenger.ch")%>
Diese Webseiten wurden gestaltet von
Daniel Hunziker: webmaster@baenkelsaenger.ch
© copyright www.baenkelsaenger.ch