class= " lineNumbers " de
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 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
94 :
95 :
96 :
97 :
98 :
99 :
|
class= de
class= ><%@LANGUAGE= " notpretty " " VBSCRIPT " CODEPAGE= " de l'id= " codeSnippet776817 " de
<%
Placer l'objConn = le Server.CreateObject (« ADODB.Connection »)
objConn.ConnectionString = « Provider=Microsoft.Jet.OLEDB.4.0 ; Point d'émission = » et _
Server.MapPath ("/ATO/NOCCDB/NOCCUsers.mdb ») et » ; «
objConn.Open
strMessage = demande. Former (« message »)
le strMessage = remplacent (strMessage, « ' », « '' ")
le strMessage = remplacent (strMessage, vbCrLf, «
")
strSubject = demande. Former (« sujet »)
strPersonAddedOn = demande. Former (« PersonAddedOn »)
strComputerName = demande. Former (« ComputerName »)
strLoggedBy = demande. Former (« LoggedBy »)
strLog = demande. Former (« notation »)
'créer l'objet connexion
Placer MesIns=CreateObject (« ADODB.Command »)
MesIns.ActiveConnection=objConn
mandtext de MesIns.com = « insertion dans des VALEURS d'émission (sujet, PersonAddedOn, message, ComputerName, LoggedBy, notation) (? ? ? ? ? ?) »
MesIns.Parameters.Append MesIns.CreateParameter (« @Subject », 200, 1, 255, strSubject)
MesIns.Parameters.Append MesIns.CreateParameter (« @PersonAddedOn », 200, 1, 255, strPersonAddedOn)
MesIns.Parameters.Append MesIns.CreateParameter (« @Message », 200, 1, 255, strMessage)
MesIns.Parameters.Append MesIns.CreateParameter (« @ComputerName », 200, 1, 255, strComputerName)
MesIns.Parameters.Append MesIns.CreateParameter (« @LoggedBy », 200, 1, 255, strLoggedBy)
MesIns.Parameters.Append MesIns.CreateParameter (« @Log », 200, 1, 255, strLog)
MesIns.Execute
Faible rsMailList
Faibles rsMailList_numRows
Placer le rsMailList = le Server.CreateObject (« ADODB.Recordset »)
rsMailList.ActiveConnection = objConn
rsMailList.Source = « CHOISISSENT * À PARTIR d'ATO_Pagers »
rsMailList.CursorType = 0
rsMailList.CursorLocation = 2
rsMailList.LockType = 1
rsMailList.Open ()
rsMailList_numRows = 0
%>
<%
Faible Repeat1__numRows
Faible Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsMailList_numRows = rsMailList_numRows + Repeat1__numRows
%>
< ! HTML 4.01 Transitional//EN » « http://www.w3.org/TR/html4/loose.dtd " du PUBLIC « de HTML de DOCTYPE - //W3C//DTD >
Contenu-Type " texte de content= "/HTML de http-equiv= " de
Broadcast Message
<%
Tandis que ((<> 0 de Repeat1__numRows) ET (PAS rsMailList.EOF))
%>
<%
Faible myBody
Faible mySubject
myBody = Request.Form (« message ») et »
Sent par « et Request.Form (« LoggedBy ») et «
»
mySubject = Request.Form (« sujet »)
Faible myMail
Placer le myMail = le Server.CreateObject (« CDONTS.NewMail »)
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.From = « [email protected] »
myMail.To = (rsMailList.Fields.Item (« PagerEmail »). Valeur) et » ; « et (rsMailList.Fields.Item (« email »). Valeur)
myMail.Subject = mySubject
myMail.Body = myBody
myMail.Send
myMail=nothing réglé
%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsMailList.MoveNext ()
Wend
%>
<%Response.Redirect « ThankYou1.asp " %>
<%
rsMailList.Close ()
Placer le rsMailList = rien
%>
|
