class= " lineNumbers "
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=
class= " notpretty " ><%@LANGUAGE= " VBSCRIPT " CODEPAGE= " id= " codeSnippet776817 "
<%
Установите objConn = Server.CreateObject («ADODB.Connection»)
objConn.ConnectionString = «Provider=Microsoft.Jet.OLEDB.4.0; Данные Source=» & _
Server.MapPath ("/ATO/NOCCDB/NOCCUsers.mdb») &»; «
objConn.Open
strMessage = запрос. Сформируйте («сообщение»)
strMessage = заменяет ть (strMessage, «'», «'' ")
strMessage = заменяет ть (strMessage, vbCrLf, «
")
strSubject = запрос. Сформируйте («вопрос»)
strPersonAddedOn = запрос. Сформируйте («PersonAddedOn»)
strComputerName = запрос. Сформируйте («ComputerName»)
strLoggedBy = запрос. Сформируйте («LoggedBy»)
strLog = запрос. Сформируйте («журнал»)
'создайте предмет соединения
Установите MesIns=CreateObject («ADODB.Command»)
MesIns.ActiveConnection=objConn
mandtext MesIns.com = «вставка в ЗНАЧЕНИЯ передачи (вопроса, PersonAddedOn, сообщения, ComputerName, LoggedBy, журнала) (? ? ? ? ? ?)»
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
Тусклое rsMailList
Тусклые rsMailList_numRows
Установите rsMailList = Server.CreateObject («ADODB.Recordset»)
rsMailList.ActiveConnection = objConn
rsMailList.Source = «ВЫБИРАЮТ * ОТ ATO_Pagers»
rsMailList.CursorType = 0
rsMailList.CursorLocation = 2
rsMailList.LockType = 1
rsMailList.Open ()
rsMailList_numRows = 0
%>
<%
Тусклое Repeat1__numRows
Тусклое Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsMailList_numRows = rsMailList_numRows + Repeat1__numRows
%>
Содержани-Тип текст " http-equiv=
Broadcast Message
<%
Пока ((<> 0 Repeat1__numRows) И (НЕ rsMailList.EOF))
%>
<%
Тусклое myBody
Тусклое mySubject
myBody = Request.Form («сообщение») &»
Sent «& Request.Form («LoggedBy») & «
»
mySubject = Request.Form («вопрос»)
Тусклое myMail
Установите myMail = Server.CreateObject («CDONTS.NewMail»)
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.From = «[email protected]»
myMail.To = (rsMailList.Fields.Item («PagerEmail»). Значение) &»; «& (rsMailList.Fields.Item («электронная почта»). Значение)
myMail.Subject = mySubject
myMail.Body = myBody
myMail.Send
установленный myMail=nothing
%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsMailList.MoveNext ()
Wend
%>
<%Response.Redirect «ThankYou1.asp " %>
<%
rsMailList.Close ()
Установите rsMailList = ничего
%>
|
