<% ' change to address of your own SMTP server strHost = "mail2.li-life.net" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = "markus_hasler@li-life.li" ' From address Mail.AddAddress "markus_hasler@paedys.li", "Markus Hasler" ' message subject Mail.Subject = "Online Mail" ' message body Mail.Body = "Online Mail von www.markus-hasler.li" & Chr(10) & Chr(10) & "Name: " & Request("nname") & Chr(10) & "Vorname: " & Request("Vorname") & Chr(10) & "Strasse: " & Request("Strasse") & Chr(10) & "PLZ: " & Request("plz") & Chr(10) & "Telefon: " & Request("telefon") & Chr(10) & "E-Mail: " & Request ("email")& Chr(10) & "Nachricht: " & Request("message") & Chr(10) strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %> <% If strErr <> "" Then %> <% End If %> <% If bSuccess Then %> <% End If %>

Name: Vorname: Strasse / Nr: PLZ / Ort: Telefon: E-Mail: Nachricht: