ASP에서 Do while을 써서 메일 발송을 하였을시 2건씩 메일이 발송됩니다.

Nmail ASP 서비스 종료 안내(EOS)

Nmail ASP (nWmail, Nmail Server) 제품은 유상 유지보수를 포함한 모든 서비스가 종료되었습니다.

ASP에서 Do while을 써서 메일 발송을 하였을시 2건씩 메일이 발송됩니다.

PASSKOREA 2006.05.23 13:48 조회 1572

※ 필수입력정보 ※

▷ 제품버젼 : nWmail 3.5
▷ 사용중인 주소(URL) : http://www.haircody.co.kr
▷ 문제발생시 메뉴/주소 : http://www.haircody.co.kr/LightEach/RE_test.asp
▷ 문제발생시 에러메세지
: 메일이 2건씩 발송됨

▷ 질문내용
: ASP 로 Do while 루프 함수를 써서 정해진 테이블에 있는 일정 회원들에게
메일을 발송하였는데 자꾸 2건씩의 메일이 발송됩니다. 물론 지정한 모든 회원
들에게요 밑에 소스를 함께 올립니다.

- 소스 본문 -------------------------------------------------------------------------------------------

 'ODBC 연결 인클루드 파일

<%
Start_No = 1
End_No = 6

SQL = "SELECT emails,No FROM TEMP_MEMBER_EMAILS WHERE "
SQL = SQL & "No" & ">=" & "'" & Start_No & "'" & "AND "
SQL = SQL & "No" & "<=" & "'" & End_No &"'"
Set Res = db.Execute(SQL)
%>

<%

subject = "홈페이지에서 무료헤어쿠폰과 할인쿠폰을 신청하고 받아가세요!!"

contents = "<html>"
contents = contents & "<link href='http://www.haircody.co.kr/general.css' rel='stylesheet' type='text/css'>"
contents = contents & "<map name=direct><AREA SHAPE='rect' coords='1,51,103,101' href='http://www.haircody.co.kr' target='_blank'>"
contents = contents & "<table border='0' cellpadding='0' cellspacing='0'>"
contents = contents & "<tr>"
contents = contents & "<td width=63 height=201><img src=http://www.haircody.co.kr/LightEach/mail_img_1.jpg></td>"
contents = contents & "<td width=637 height=201><img src=http://www.haircody.co.kr/LightEach/mail_img_2.jpg usemap=#direct border='0' ></map></td>"
contents = contents & "</tr>"
contents = contents & "<tr>"
contents = contents & "<td width=63 height=576><img src=http://www.haircody.co.kr/LightEach/mail_img_3.jpg border=0></td>"
contents = contents & "<td width=637 height=576 background=http://www.haircody.co.kr/LightEach/mail_img_4.jpg border=0>"
contents = contents & "헤어코디를 사랑해 주시는 회원님들께 감사드립니다. "
contents = contents & "회원님들의 성원에 힘입어 헤어코디 2.0 시뮬레이션은 최근 해외 수출과 "
contents = contents & "함께 현지화 지원사업으로 선정되는 등 나날이 발전해 나가고 있습니다. "
contents = contents & "현재 여러 회원님들의 의견을 취합하여 홈페이지를 개편하고 있으며 개편되는 "
contents = contents & "홈페이지에서는 전국 300여 개 미용실의 무료 헤어 쿠폰과 할인 쿠폰을 "
contents = contents & "신청할 수 있도록 보완하였습니다. "
contents = contents & "헤어코디 시뮬레이션은 앞으로 6월중에 더 많은 기능 및 Item을 추가하여 "
contents = contents & "개편할 예정이며, 이와 함께 일반 회원님들을 대상으로 하는 다양한 이벤트와 질 높은 서비스를 "
contents = contents & "제공할 예정입니다. "
contents = contents & "회원님들은 가맹 미용실 혹은 haircody 홈페이지 참여를 통하여 포인트를 "
contents = contents & "얻을 수 있으며 얻으신 포인트를 이용하여 시뮬레이터를 사용하실 수 있습니다. "
contents = contents & "앞으로도 회원님들의 더욱 더 큰 애정과 관심을 부탁드립니다. "
contents = contents & "감사합니다. "
contents = contents & "헤어코디 임직원 일동 드림"
contents = contents & "</td>"
contents = contents & "</tr>"
contents = contents & "<tr>"
contents = contents & "<td width=63 height=132><img src=http://www.haircody.co.kr/LightEach/mail_img_5.jpg border=0></td>"
contents = contents & "<td width=637 height=132><img src=http://www.haircody.co.kr/LightEach/mail_img_6.jpg border=0></td>"
contents = contents & "</tr>"
contents = contents & "</table>"
contents = contents & "</html>"

For i = 0 To (Res.eof)
' Do while not Res.eof

sender_email = "[헤어코디]haircody@haircody.co.kr"

Set mailing = Server.CreateObject("Ncdo.Ncdonts.1")

mailing.Smtpserver = "haircody.co.kr"
mailing.From = sender_email
mailing.To = Res("emails")
mailing.Cc = cc_email
mailing.Bcc = bcc_email
mailing.Subject = subject
mailing.BodyFormat = 1
mailing.Body = contents
mailing.BodyFormat = 0
mailing.MailFormat = 0
mailing.Importance = 1

if mailing.Send = 1 then
Send_Success = Send_Success + mailing.Send
else

Send_Failure = mailing.Errormsg
end if

Set mailing = Nothing

Res.Movenext
' Loop
Next

%>

<%
Res.Close
DB.Close

Set db = Server.CreateObject("ADODB.Connection")
str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=;password=; "
str = str & "Initial Catalog=haircody;Data Source="
db.open str

If Send_Success = End_No then
Last_SS = 1
Else
Last_SS = 0
End if

Dim Today_Date
Today_Date = date

Now_Year = Left(Today_Date,4)
Now_Month = Mid(Today_Date,5,1)
Now_Day = Right(Today_Date,2)

Today_Date = Now_Year + Now_Month + Now_Day

SQL = "INSERT Mail_Send_State "
SQL = SQL & " (" & "Date" & ","
SQL = SQL & "Total_Send" & ","
SQL = SQL & "Send_Success_State" & ") "
SQL = SQL & "VALUES"
SQL = SQL & " (" & "'" & Today_Date & "'" & ","
SQL = SQL & "'" & Send_Success & "'" & ","
SQL = SQL & "'" & Last_SS & "'" & ") "

db.Execute(SQL)

db.Close

%>

이전 글	3.6 업그레이드에 관한 질문입니다 1	정*환	2006.05.23
다음 글	반송됩니다. 1	최*일	2006.05.22

고객지원

Nmail ASP 서비스 종료 안내(EOS)

ASP에서 Do while을 써서 메일 발송을 하였을시 2건씩 메일이 발송됩니다.