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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
<%
if Request.Form("addressfrom") ="" then Response.Redirect("Nous_ecrire.asp")
else
strHost = "smtp.fr.truc.com"
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.Username = "truc@truc.fr.fto"
Mail.Password = "passwd"
Mail.From = Request.Form("addressfrom") ' From address
Mail.AddAddress "truc@truc.fr"
' message subject
Mail.Subject = "demande d'information"
' message body
Mail.Body = Request.Form("txtmsg")
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
Response.redirect "Nous_ecrire.asp"
End if
%> |
