Detta kodifierar överför ett TV-sändningmeddelande till e-posten tilltalar listade kolonner i mitt tar fram itu databas, men den har onödigt att kodifiera frambragt av DW. Skulle någon behaga hjälper mig att ta bort det onödigt fodrar?
Thank you
> för
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:
" codeBody "
class= " notpretty " ><%@LANGUAGE= " VBSCRIPT " CODEPAGE= " för
<%
Fastställd objConn = Server.CreateObject (”ADODB.Connection”)
objConn.ConnectionString = ”Provider=Microsoft.Jet.OLEDB.4.0; Data Source=” & _,
Server.MapPath (”/ATO/NOCCDB/NOCCUsers.mdb”) &”; ”,
objConn.Open
strMessage = förfrågan. Bilda (”meddelande”)
strMessagen = byter ut (strMessagen, ”'”, ”''”)
strMessagen = byter ut (strMessagen, vbCrLf, ”
”)
strSubject = förfrågan. Bilda (”betvinga”),
strPersonAddedOn = förfrågan. Bilda (”PersonAddedOn”)
strComputerName = förfrågan. Bilda (”ComputerName”)
strLoggedBy = förfrågan. Bilda (”LoggedBy”)
strLog = förfrågan. Bilda (”logga”),
'skapa anslutning anmärker
Fastställda MesIns=CreateObject (”ADODB.Command”)
MesIns.ActiveConnection=objConn
MesIns.com mandtext = ”mellanlägget in i TV-sändning (betvinga, PersonAddedOn, meddelandet, computerNamen, LoggedBy, loggar), VÄRDERAR (? ? ? ? ? ?)”,
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, strMessagen)
MesIns.Parameters.Append MesIns.CreateParameter (”@ComputerName”, 200, 1, 255, strComputerName)
MesIns.Parameters.Append MesIns.CreateParameter (”@LoggedBy”, 200, 1, 255 som, är strLoggedBy)
MesIns.Parameters.Append MesIns.CreateParameter (”@Log”, 200, 1, 255, strLog)
MesIns.Execute
Dunkel rsMailList
Dunkla rsMailList_numRows
Fastställd rsMailList = Server.CreateObject (”ADODB.Recordset”)
rsMailList.ActiveConnection = objConn
rsMailList.Source = ”VÄLJER * FRÅN ATO_Pagers”,
rsMailList.CursorType = 0
rsMailList.CursorLocation = 2
rsMailList.LockType = 1
rsMailList.Open ()
rsMailList_numRows = 0
%>
<%
Dunkel Repeat1__numRows
Dunkel Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsMailList_numRows = rsMailList_numRows + Repeat1__numRows
%>
Broadcast Message
<%
Stunder ((Repeat1__numRows-<> 0) OCH (INTE rsMailList.EOF))
%>
<%
Dunkelt myBody
Dunkel mySubject
myBody = Request.Form (”meddelande”) &”
Sent vid ”& Request.Form (”LoggedBy”) & ”
”,
mySubject = Request.Form (”betvinga”),
Dunkel myMail
Fastställd myMail = Server.CreateObject (”CDONTS.NewMail”)
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.From = ”[email protected]”,
myMail.To = (rsMailList.Fields.Item (”PagerEmail”). Värdera) &”; ”& (rsMailList.Fields.Item (”e-post”). Värdera),
myMail.Subject = mySubject
myMail.Body = myBody
myMail.Send
fastställd myMail=nothing
%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsMailList.MoveNext ()
Wend
%>
<%Response.Redirect ”ThankYou1.asp " %>
<%
rsMailList.Close ()
Fastställd rsMailList = ingenting
%>
" klar "
|
