|
|
|
|
 |
|
박현석 / 2002-04-27 / 오전 11:22:56 / 210.220.103.154
조회수 : 135
|
| [질문] 음악메일을 보내려고 하는데..x); |
<%
db.Open DSNName
page = request("page")
track = request("track")
SQL = "select * from music where track = " & track
rs.open SQL,db
music = rs ("music")
title = rs("title")
%>
<%
Dim Body
Body = "회사 : " & Request("content") & "<Br>" & <embed src=http://www.musicstart.co.kr/data\<%=rs
("music")%>
send = request("send")
sendname = request("sendname")
poem = request("poem")
rec = request("rec")
title = request("title")
userfile = request("userfiles")
format = request("format")
view = request("view")
content = request("content")
IF sendname = "이름" Then
sendname = "아무개"
End IF
IF view = "no" Then '보내기
set objmail = server.createobject("cdonts.newmail")
objmail.from = sendname & "<" & send & ">"
objmail.to = rec '받을사람
'objmail.Cc = ccmail '참조
objmail.Bcc = poem '숨은 참조
objmail.subject = title '제목
IF format = "text" Then
objmail.bodyformat = 1 '메일 형태 TEXT // 1일 경우 Text로 저장
objmail.mailformat = 1 '메일 형태 TEXT // 1일 경우 Text로 저장
ElseIf format = "html" Then
objmail.bodyformat = 0 '메일 형태 HTML // 1일 경우 Text로 저장
objmail.mailformat = 0 '메일 형태 HTML // 1일 경우 Text로 저장
Else
objmail.bodyformat = 0 '메일 형태 HTML // 1일 경우 Text로 저장
objmail.mailformat = 0 '메일 형태 HTML // 1일 경우 Text로 저장
End if
objmail.body = Body '보내는 내용
IF userfile = "" Then
Else
objMail.attachFile(userfile) '첨부파일
End if
objmail.send
set objmail = nothing
%>
-------------------------------------------------
www.musicstart.co.kr/music/list1.asp 에서 메일을 클릭하시면
내용이 보여집니다.
이 부분에서는 음악이 잘 연결되는데.. 메일로 발송되는 부분 위에서
Body = "회사 : " & Request("content") & "<Br>" & <embed src=http://www.musicstart.co.kr/data\<%=rs
("music")%>
embed 로 연결시 어떻게 해야 되는지..
여기에서 data는 저장파일의 위치 (가상디렉토리) 입니다.
|
|
|
|