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:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
|
" codeBody "
<%@LANGUAGE= " VBSCRIPT " CODEPAGE= " 65001 " %>
<%
Schemerige senderemail, recipientemail, messagebody onderwerp, title_field, whensent editor1, fromemail,
'GEEF DEZE WAARDEN UIT!!!!
'ga het e-maildieadres in dat u de advertenties wilt worden verzonden naar
recipientemail = „[email protected]“
'ga het e-mailadres in dat u in „van“ lijn van uw e-mail wilt verschijnen
senderemail = „ENRads“
fromemail = request.form („email_field“)
fromemail = vervang (fromemail, „'“, „''“)
onderwerp = „Enr- Rubriekadvertenties - Online Voorlegging van“ & fromemail
whensent = nu ()
title_field = request.form („title_field“)
titlefield = vervang (titlefield, „'“, „''“)
editor1 = request.form („editor1“)
editor1 = vervang (editor1, „'“, „''“)
editor1 = vervang (editor1, „“, "")
editor1 = vervang (editor1, „ “, "")
editor1 = Versiering (editor1)
messagebody = de „Volgende Enr- Rubriekadvertentie werd ontvangen van“ & fromemail & „bij“ & whensent & vbcrlf & vbcrlf & title_field & editor1
response.write (senderemail) & „
“
response.write (recipientemail) & „
“
response.write (onderwerp) & „
“
(messagebody) response.write
Reeks myMail=CreateObject („CDO.Message“)
myMail.Subject=subject
myMail.From=senderemail
myMail.To=recipientemail
myMail.TextBody=messagebody
myMail.Configuration.Fields.Item _
(„http://schemas.microsoft.com/cdo/configuration/sendusing“) =2
'Naam of IP van verre server SMTP
myMail.Configuration.Fields.Item _
(„http://schemas.microsoft.com/cdo/configuration/smtpserver“) _
= " mail.glowfishtw.com "
De 'haven van de server
myMail.Configuration.Fields.Item _
(„http://schemas.microsoft.com/cdo/configuration/smtpserverport“) _
=25
myMail.Configuration.Fields.Update
myMail.Send
het vastgestelde myMail=nothing
messagebody = „dank u voor uw voorlegging aan ENR Classifieds. Hieronder is de tekst van uw advertentie. Wij zullen u contacteren als wij een andere informatie.“ nodig hebben & vbcrlf & „dank u.“ & vbcrlf & vbcrlf & messagebody
Vastgestelde myMail2=CreateObject („CDO.Message“)
myMail2.Subject= onderwerp
myMail2.From=senderemail
myMail2.To=fromemail
myMail2.TextBody=messagebody
myMail2.Configuration.Fields.Item _
(„http://schemas.microsoft.com/cdo/configuration/sendusing“) =2
'Naam of IP van verre server SMTP
myMail2.Configuration.Fields.Item _
(„http://schemas.microsoft.com/cdo/configuration/smtpserver“) _
= " mail.glowfishtw.com "
De 'haven van de server
myMail2.Configuration.Fields.Item _
(„http://schemas.microsoft.com/cdo/configuration/smtpserverport“) _
=25
myMail2.Configuration.Fields.Update
myMail2.Send
vastgestelde myMail2=nothing
%>
Send E-mail voor enr_ads
<%
'Response.Redirect „enr_ads.asp? resp=x“
%>
|
