1: 
2: 
3: 
4: 
5: 
6: 
7: 
8: 
9: 
10: 
11: 
12: 
13: 
14: 
15: 
16: 
17: 
18: 
19: 
20: 
21: 
22: 
23: 
24: 
25:

<%@ LANGUAGE = VBScript %>

<%

nachricht=request.form("Nachricht")
name=request.form("Name")
vorname=request.form("Vorname")
email=request.form("E-Mail")
telefon=request.form("Telefon")

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.FromName = "Kunde"
Mail.AddAddress "test@test.de"
Mail.AddReplyTo ""
Mail.Subject = "Kontaktnachricht"
Mail.Body = "Name:"& name &" Vorname:" & vorname &" Email:"& email &" Telefon:"& telefon &" Nachricht:"& nachricht
On Error Resume Next
Mail.Send
If Err <> 0 Then
   Response.Write "Error encountered: " & Err.Description
End If


response.redirect("kontakt03.asp")
%>