Pytanie : Dlaczego dlaczego the niepotrzebny kod wytwarzać DW

Ten kod wysyłać wyemitowany wiadomość adres emaila spisywać w dwa kolumna w mój Dojazdowy baza danych, ale ono mieć niepotrzebny kod wytwarzać DW. Linia zadawalać pomagać the niepotrzebny linia?
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:
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 " %>

<%
Ustalony objConn = Server.CreateObject ("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Dane Source=" & _
Server.MapPath ("/ATO/NOCCDB/NOCCUsers.mdb") &"; "
objConn.Open

strMessage = prośba. Forma ("Wiadomość")
strMessage = zamieniać (strMessage, "'", "'' ")
strMessage = zamieniać (strMessage, vbCrLf, "
")
strSubject = prośba. Forma ("Temat")
strPersonAddedOn = prośba. Forma ("PersonAddedOn")
strComputerName = prośba. Forma ("ComputerName")
strLoggedBy = prośba. Forma ("LoggedBy")
strLog = prośba. Forma ("Bela")

'tworzyć podłączeniowy przedmiot
Ustawiać MesIns=CreateObject ("ADODB.Command")
MesIns.ActiveConnection=objConn
MesIns.com mandtext = "wszywka w Wyemitowany (Temat, PersonAddedOn, Wiadomość, ComputerName, LoggedBy, Bela) WARTOŚĆ (? ? ? ? ? ?)"
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


Ciemnawy rsMailList
Ciemnawy rsMailList_numRows

Ustalony rsMailList = Server.CreateObject ("ADODB.Recordset")
rsMailList.ActiveConnection = objConn
rsMailList.Source = "WYBIÓRKA * OD ATO_Pagers"
rsMailList.CursorType = (0)
rsMailList.CursorLocation = 2
rsMailList.LockType = (1)
rsMailList.Open ()

rsMailList_numRows = (0)
%>
<%
Ciemnawy Repeat1__numRows
Ciemnawy Repeat1__index

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




Broadcast Message



<%
Podczas Gdy ((Repeat1__numRows <> (0)) I (NIE rsMailList.EOF))
%>
<%
Ciemnawy myBody
Ciemnawy mySubject
myBody = Request.Form ("Wiadomość") &" 
Sent "& Request.Form ("LoggedBy") & "
"
mySubject = Request.Form ("temat")
Ciemnawy myMail
Ustalony myMail = Server.CreateObject ("CDONTS.NewMail")
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.From = "[email protected]"
myMail.To = (rsMailList.Fields.Item ("PagerEmail"). Wartość) &"; "& (rsMailList.Fields.Item ("Email"). Wartość)
myMail.Subject = mySubject
myMail.Body = myBody
myMail.Send
ustalony myMail=nothing
%>
<%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsMailList.MoveNext ()
Wend
%>






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




<%
rsMailList.Close ()
Ustalony rsMailList = Nic
%>

Odpowiedź : Dlaczego dlaczego the niepotrzebny kod wytwarzać DW

ty próbować the uzupełnienie krok

Umożliwiać the Świadectwo
 
Umożliwiać-ExchangeCertificate - Usługa "SMTP, WYSTRZAŁ, IMAP, IIS"

Wchodzić Do the Thumbprint twój świadectwo (i.e. 9292D650DFFD7E055145E5CA5A29E08DFC07C53C)

Wybierać Tak Overwrite

========
wtedy konfigurować wymiana SSL
http://technet.microsoft.com/en-us/library/bb310764(EXCHG.80).aspx
Inne rozwiązania  
 
programming4us programming4us