꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

수정하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	도와주세요<%@ Language=VBScript %> <% Server.ScriptTimeout = 300 '만일 화일첨부가 있다면 그 화일의 경로를 저장한다. if request("fileplus")<>"" then filename = request("fileplus") end if content = replace(request("content"),chr(13),"<br>") '개행처리를 위해서 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 & "<img src="http"//210.219.185.189/mlist/1-1.gif">"width=300 height=150 '위의 내용을 수정한 것임... 'border=0 src=1-1.gif html = "<html><body bgcolor=#A39E7A>" html = html & "<table border=0 cellpadding=0 cellspacing=0 width=214 bgcolor=#FFFFFF height=645><tr>" html = html & "<td colspan=2 width=494 height=22>" html = html & "<table border=0 cellpadding=0 cellspacing=0 width=500 height=45><tr><td>" html = html & "<table border=0 cellpadding=0 cellspacing=0 width=10 height=10><tr><td></td></tr></table></td></tr><tr><td>" html = html & "<table border=0 cellpadding=0 cellspacing=0 width=510 height=45><tr><td>" html = html & "<p align=center><img src=1-1.gif width=500 height=45></td></tr></table></td></tr></table></td></tr><tr>" html = html & "<td colspan=2 width=494 height=1> </td></tr><tr>" html = html & "<td width=295 height=95><table border=0 cellpadding=0 cellspacing=0 width=314 height=150><tr>" html = html & "<td width=312> <img src=http//210.219.185.189/mlist/1-1.gif ></td></tr></table></td>" html = html & "<td width=197 height=95> <a href=http://www.boranet.com/popup1.htm target=_blank><img border=0 src=3.gif width=167 height=92></a></td></tr>" html = html & "<tr valign=top><td colspan=2 width=494 height=83>" html = html & "<table border=0 cellpadding=0 cellspacing=0 width=509 height=100><tr>" html = html & "<td width=534><font size=2 face=돋움 color=#716937><br> " html = html & "<font color=#000000>속이 꽉찬 인터넷 여행사 <b><font color=#0066CC>보라넷</font>" html = html & "<font color=#990033>닷</font> <font color=#6633FF>컴</font></b>입니다.<br> 휴우~ 어느새 옷깃을 여며야 하는 따뜻한 곳이 그리워지는 계절이 돌아왔네여..<br>" html = html & "</font></font><font size=2 face=돋움 color=#000000> 따뜻한호빵과 뜨끈~한 오뎅국물이 그리워지는데.. 회원님들은 어떠세여...? ^^<br> 옷장 깊이 차곡차곡 넣어 두었던 두툼한 옷들을 꺼내며 지난 추억도 하나 둘씩<br> 되새김할 수 있는 작은 여유를 가져 보시는 것은 어떠신가여.... ^^*</font>" html = html & "</table></body>" '메일주소가 끝날떄까지 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 %> <html> <head> <meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0"> <title></title> </head> <body> <p>　</p> <p>　</p> <p><font face="돋움" size="4" color="#000080"><strong>　</strong></font></p> <p align="center"><strong><font face="Comic Sans MS" size="6" color="#FF8000">Mail</font><font face="돋움" size="4" color="#000080"> 을 잘 보냈습니다.</font></strong></p> <p align="center"><font face="돋움" size="4" color="#000080"><strong>수고하셨습니다.</strong></font></p> <p align="center">　</p> <p align="center"><font face="Century Gothic" size="4" color="#000080"><strong>　</strong></font></p> <p align="center"><strong><font face="Century Gothic" size="4" color="#000080">BoraNet </font><font face="Century Gothic" size="4" color="#008080">Mailing List</font></strong></p> </body> </html> <HTML>

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *