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:
|
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath ("/ATO/NOCCDB/NOCCUsers.mdb") & ";"
objConn.Open
strMessage = request.Form("Message")
strMessage = replace(strMessage,"'","''")
strMessage = replace(strMessage,vbCrLf,"<br />")
strSubject = request.Form("Subject")
strPersonAddedOn = request.Form("PersonAddedOn")
strComputerName = request.Form("ComputerName")
strLoggedBy = request.Form("LoggedBy")
strLog = request.Form("Log")
'create connection object
Set MesIns=CreateObject("ADODB.Command")
MesIns.ActiveConnection=objConn
MesIns.commandtext = "insert into Broadcast (Subject, PersonAddedOn, Message, ComputerName, LoggedBy, Log) VALUES (?,?,?,?,?,?)"
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
Dim rsMailList
Dim rsMailList_numRows
Set rsMailList = Server.CreateObject("ADODB.Recordset")
rsMailList.ActiveConnection = objConn
rsMailList.Source = "SELECT * FROM ATO_Pagers"
rsMailList.CursorType = 0
rsMailList.CursorLocation = 2
rsMailList.LockType = 1
rsMailList.Open()
rsMailList_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsMailList_numRows = rsMailList_numRows + Repeat1__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Broadcast Message</title>
</head>
<body>
<%
While ((Repeat1__numRows <> 0) AND (NOT rsMailList.EOF))
%>
<%
Dim myBody
Dim mySubject
myBody = Request.Form("Message") & " <br />Sent by " & Request.Form("LoggedBy") & "<br /> "
mySubject = Request.Form("subject")
Dim myMail
Set myMail = Server.CreateObject ("CDONTS.NewMail")
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.From = "[email protected]"
myMail.To = (rsMailList.Fields.Item("PagerEmail").Value)&";"&(rsMailList.Fields.Item("Email").Value)
myMail.Subject = mySubject
myMail.Body = myBody
myMail.Send
set myMail=nothing
%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsMailList.MoveNext()
Wend
%>
<%Response.Redirect "ThankYou1.asp"%>
</body>
</html>
<%
rsMailList.Close()
Set rsMailList = Nothing
%>
|
