<%
' change to address of your own SMTP server
strHost = "213.206.74.41"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.From = Request("from") ' From address
Mail.FromName = Request("fromname") ' optional
Mail.AddAddress Request("To")
' message subject
Mail.Subject = Request("Subject")
' message body
Mail.Body = Request("Body")
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
%>
E-mail Form
Voor meer informatie
E-mail ons !!
<% If strErr <> "" Then %>
Fout,
neem contact op met de web-master:
<% = strErr %>
<% End If %>
<% If bSuccess Then %>
Uw
e-mail is verstuurd naar
<% = Request("To") %>
<% End If %>