|
|
|
|
 |
|
food / 2000-10-18 / 오전 11:42:50 / 210.219.185.189
조회수 : 119
|
| [질문] 메일링에서 이미지 가 보내지지 않아요 |
도와주세요<%@ Language=VBScript %>
<%
Server.ScriptTimeout = 300
'만일 화일첨부가 있다면 그 화일의 경로를 저장한다.
if request("fileplus")<>"" then
filename = request("fileplus")
end if
content = replace(request("content"),chr(13),"
")
'개행처리를 위해서 replace를 했다
'데이타베이스를 열고 쿼리를 수행해서 디비에 있는 email주소를 '가져온다
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "dsn=sql;uid=sa;pwd=;"
Set rs=Conn.Execute("Select writer,email From ntn")
html = ""
'밑에것은 잘못된것임 문자열은쌍따옴표로 감싸데..문자열 안을 쌍따옴표너 따옴표가 들어가 있으면 안됨
'html = html & " "width=300 height=150
'위의 내용을 수정한 것임...
'border=0 src=1-1.gif
html = ""
html = html & ""
html = html & ""
html = html & ""
html = html & " | "
html = html & ""
html = html & "
|
|
| "
html = html & " | "
html = html & ""
html = html & "  |
| "
html = html & "  | "
html = html & ""
html = html & ""
html = html & "
"
html = html & "속이 꽉찬 인터넷 여행사 보라넷"
html = html & "닷 컴입니다.
휴우~ 어느새 옷깃을 여며야 하는 따뜻한 곳이 그리워지는 계절이 돌아왔네여..
"
html = html & " 따뜻한호빵과 뜨끈~한 오뎅국물이 그리워지는데.. 회원님들은 어떠세여...? ^^
옷장 깊이 차곡차곡 넣어 두었던 두툼한 옷들을 꺼내며 지난 추억도 하나 둘씩
되새김할 수 있는 작은 여유를 가져 보시는 것은 어떠신가여.... ^^*"
html = html & " |
"
'메일주소가 끝날떄까지 Loop를 돌며 메일을 보낸다.
Do While not rs.eof
Set objMail = Server.CreateObject("CDONTS.NewMail")
'만일 첨부화일이 있다면 화일을 attach 한다.
if filename <> "" then
objMail.attachFile(filename)
end if
objMail.From="boranet"
objMail.To=rs("email")
objMail.Subject= rs("writer") & " 님께 : " & request("title")
objMail.Body= request("content")
objMail.BodyFormat = 0 ' HTML일떄 0, 일반 Text일때 1 으로 설정한다.
objMail.MailFormat = 0 ' HTML일떄 0, 일반 Text일때 1 으로 설정한다.
objMail.body = html '만든 문자열html을 Body로 연결한다.
objMail.send '이제 메일을 보낸다.
set objMail = nothing
rs.movenext
loop
'CDO컴포넌트도 닫고 디비도 닫고....
set rs = nothing
Conn.close
Set Conn = nothing
%>
Mail
face="돋움" size="4" color="#000080"> 을 잘 보냈습니다.
수고하셨습니다.
BoraNet
face="Century Gothic" size="4" color="#008080">Mailing List
|
|
|
|
|