Frage : Wie man den nicht notwendigen Code aufräumt, der durch DW erzeugt wird

Dieser Code schickt eine allgemeine Nachricht zu den email address, die in zwei Spalten in meiner Zugangsdatenbank verzeichnet werden, aber er lässt nicht notwendigen Code durch DW erzeugen. Würde jemand mir bitte helfen, die nicht notwendigen Linien zu entfernen?
Thank you 
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:
6:
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 " %>

<%
objConn = Server.CreateObject („ADODB.Connection“) einstellen
objConn.ConnectionString = „Provider=Microsoft.Jet.OLEDB.4.0; Datenquelle =“ u. _
Server.MapPath („/ATO/NOCCDB/NOCCUsers.mdb“) u.“; „
objConn.Open

strMessage = Antrag. Bilden („Mitteilung“)
strMessage = ersetzen (strMessage, „'“, „'' ")
strMessage = ersetzen (strMessage, vbCrLf, „
")
strSubject = Antrag. Bilden („Thema“)
strPersonAddedOn = Antrag. Bilden („PersonAddedOn“)
strComputerName = Antrag. Bilden („Computerbezeichnung“)
strLoggedBy = Antrag. Bilden („LoggedBy“)
strLog = Antrag. Bilden („Maschinenbordbuch“)

'Verbindungsobjekt verursachen
MesIns=CreateObject („ADODB.Command“) einstellen
MesIns.ActiveConnection=objConn
MesIns.com mandtext = „Einsatz in Sendung (Thema, PersonAddedOn, Mitteilung, Computerbezeichnung, LoggedBy, Maschinenbordbuch) WERTE (? ? ? ? ? ?)“
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


Schwaches rsMailList
Schwache rsMailList_numRows

rsMailList = Server.CreateObject („ADODB.Recordset“) einstellen
rsMailList.ActiveConnection = objConn
rsMailList.Source = „WÄHLEN * VON ATO_Pagers“ vor
rsMailList.CursorType = 0
rsMailList.CursorLocation = 2
rsMailList.LockType = 1
rsMailList.Open ()

rsMailList_numRows = 0
%>
<%
Schwaches Repeat1__numRows
Schwaches Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rsMailList_numRows = rsMailList_numRows + Repeat1__numRows
%>




Broadcast Message



<%
Während ((Repeat1__numRows <> 0) UND (NICHT rsMailList.EOF))
%>
<%
Schwaches myBody
Schwaches mySubject
myBody = Request.Form („Mitteilung“) u.“ 
Sent durch „u. Request.Form („LoggedBy“) u. „
“
mySubject = Request.Form („Thema“)
Schwaches myMail
myMail = Server.CreateObject („CDONTS.NewMail“) einstellen
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.From = „[email protected]“
myMail.To = (rsMailList.Fields.Item („PagerEmail“). Wert) u.“; „u. (rsMailList.Fields.Item („eMail“). Wert)
myMail.Subject = mySubject
myMail.Body = myBody
myMail.Send
gesetztes myMail=nothing
%>
<%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsMailList.MoveNext ()
Wend
%>






<%Response.Redirect „ThankYou1.asp " %>




<%
rsMailList.Close ()
rsMailList einstellen = nichts
%>

Antwort : Wie man den nicht notwendigen Code aufräumt, der durch DW erzeugt wird

versuchten Sie die Anschlussschritte

Der Bescheinigung ermöglichen
 
- Dienstleistungen „smtp, POP, IMAP, IIS“ Ermöglichen-ExchangeCertificate

Das Thumbprint Ihrer Bescheinigung (d.h. 9292D650DFFD7E055145E5CA5A29E08DFC07C53C) betreten

Ja vorwählen, um zu überschreiben

========
Austausch dann zusammenbauen, um SSL zu benutzen
http://technet.microsoft.com/en-us/library/bb310764(EXCHG.80).aspx
Weitere Lösungen  
 
programming4us programming4us