묻고답하기
[ASP폼메일]CDO 및 DBMS(SQL)질문...--;
2006.04.04 13:00
안녕하세여~! (__)끄빡
저는 ASP 공부를 시작한지 2주일 정도 되는 초짜 입니다~!
저는 Linux쪽은 어느정도 이것 저것 찝쩍거려본게 제 실력의 전브고여....--;;;
어느덧 회사에 들어와 MS쪽 Software 들과 Solution들을 들춰 보며...
Devpia 나 Taeyo.net 같은 Site에 질문 올려가면서 여전히 헤메고있는...
여전히 ASP 찝쩍 되고 있는 ASP 초짜 입니다~! --;;;;;;;;;;;;;;;;;;;;;;;;;
벌써 이 게시판에 3번째 질문을 올리게 되었네여~! 쩝~!
예전에는 SMTP를 구동해서 메일 보내기 자체가 되지 않았지만...
지금은 SMTP를 통해서 메일 보내기까지는 성공을 했습니다~! ^^v
하지만 여전히 예전 Source 부분에서 떼어온 DB 부분에서 메일주소를
따오는 부분이 잘 되지 않는거 같습니다~! 쩝~! --;;
----------------------------------------------------------
Microsoft VBScript 런타임 오류 오류 '800a01a8'
개체가 필요합니다.: 'rs'
mail_send.asp, 줄 89
----------------------------------------------------------
위와 같은 Error message가 출력됩니다! 쩝!
"...RS내에서 메일객체 중복..." 이 부분을 영~~! 제가 이해를
하지 못 하겠습니다~! --;;
아래 Source 좀 봐 주시고 잘 못 된곳이나, 제가 표시해 둔곳(==두줄로)
을 잘 아시는분이 봐 주셧으면 해서 글 올려 봅니다~!
----------------------- mail.asp ----------------------------------------
<!-- #include file="../../dbopen.txt" -->
<%
sql="select c_name, c_id from corp order by c_id asc"
rs.open sql, db
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>(주)회사 문의 메일 보내기</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=euc-kr">
<link href="../../esei.css" rel="stylesheet" type="text/css">
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<!--
<style type="text/css">
.unnamed1 { font: 9pt/17pt "굴림"; color: #000000}
</style>
-->
<SCRIPT LANGUAGE="JavaScript">
<!--
function mail_send()
{
if (document.mail_form.mail_from.value == ""){
alert("보내시는 분의 메일 주소를 입력해 주세요!");
document.mail_form.mail_from.focus();
return false;
}
if (document.mail_form.mail_to.value == ""){
alert("받는 사람을 입력하세요!");
document.mail_form.mail_to.focus();
return false;
}
if (document.mail_form.mail_subject.value == ""){
alert("제목을 입력하세요!");
document.mail_form.mail_subject.focus();
return false;
}
if (document.mail_form.mail_body.value == ""){
alert("내용을 입력하세요!");
document.mail_form.mail_body.focus();
return false;
}
document.mail_form.submit();
}
//-->
</SCRIPT>
</HEAD>
<BODY bgcolor='#FFFFFF' text='#000000'+ '+ ' link='#' vlink='#' alink='#'>
<H2 align="center">회사 문의메일 보내기</H2>
<form name="mail_form" action="mail_send.asp" method="post">
<table width="600" height="100" border="1" align="center">
<tr align="center">
<td bgcolor="#CBE4D6" height="30" colspan="2"><b>회사에 다음과 같이 문의합니다.</b></td>
</tr>
<tr>
<td>
<TABLE border="1" width="600" cellpadding="0" cellspacing="0" align="center" class="unnamed1">
<TR>
<TD bgcolor="#CBE4D6" width="150" align="center">보내는 사람(From)</TD>
<TD width="450">
<input type="text" name="mail_from" size="60">
</TD>
</TR>
//================================================이 아래 부분 어딘가에서 Error가 있는거 같습니다~! --;; ===========================
<TR>
<TD bgcolor="#CBE4D6" width="150" align="center">받는 사람(To)</TD>
<TD width="450">
<input name="mail_to" type="radio" value="1" checked>
전체회원
<input type="radio" name="mail_to" value="2">
개인회원
<input type="radio" name="mail_to" value="3">
회사별
<select name="cid" id="cid">
<% if rs.BOF or rs.EOF then %>
<option value="000">등록된 회사가 없습니다.</option>
<%
else
Do until rs.EOF
%>
<option value="<%=rs("c_id")%>"><%=rs("c_name")%></option>
<%
rs.movenext
loop
end if
%>
</select>
//=========================================이 위 부분 어딘가에서 Error가 있는거 같습니다~! --;; ===========================
</TD>
</TR>
<TR>
<TD bgcolor="#CBE4D6" width="150" align="center">제 목(Subject)</TD>
<TD width="450">
<input type="text" name="mail_subject" size="60">
</TD>
</TR>
<TR>
<TD bgcolor="#CBE4D6" width="150" align="center">내 용(Message)</TD>
<TD width="450">
<textarea cols="58" rows="14" name="mail_body"></textarea>
</TD>
</TR>
<TR>
<TD bgcolor="#CBE4D6" width="150" align="center">메일 형식(Coding)</TD>
<TD width="450">
<input type="radio" name="mail_type" value="0" checked> HTML
<input type="radio" name="mail_type" value="1"> TEXT
</TD>
</TR>
<TR>
<TD colspan="2" align="center">
<input type="button" value=" 메일 보내기 " onclick="mail_send()">
</TD>
</TR>
</TABLE>
</td>
<tr align="center">
<td><br>
<img src="./images/logo.jpg" border="0" alt="회사 마크(로고)">
<img src="./images/cp.jpg" border="0" alt="회사 전화번호">
</td>
</tr>
</tr>
</table>
</form>
</BODY>
</HTML>
----------------------- mail.asp 끝 ----------------------------------------
----------------------- mail_send.asp ----------------------------------------
<%
'보내는 사람의 메일주소
mail_from = Trim(Request("mail_from"))
'받는 사람의 메일주소
mail_to = Trim(Request("mail_to"))
'참조
mail_cc = Trim(Request("mail_cc"))
'숨은 참조
mail_bcc = Trim(Request("mail_bcc"))
'메일의 제목
mail_subject = Trim(Request("mail_subject"))
'메일 내용
mail_body = Trim(Request("mail_body"))
'메일 형식
mail_type = Trim(Request("mail_type"))
Set objMail = Server.CreateObject("CDO.Message") ' CDO 2.0(메일 보내기 컴포넌트 개체 생성)
objMail.From = mail_from ' 메일을 보내는 사람의 이메일 주소
objMail.To = mail_to ' 메일을 받는 사람의 이메일주소(여러사람일 경우는 ; 표시로 구분)
'메일 참조
objMail.Cc = mail_cc
'숨은 참조
objMail.Bcc = mail_bcc
' 메일 제목
objMail.Subject = mail_subject
'HTML 형식으로 보낼건지 결정
If mail_type = "0" Then
objMail.HTMLBody = mail_body
Else
objMail.TextBody = mail_body
End if
========================이 아래 부분 어딘가 Error가 잇는거 같습니다==========
If mail_to = "1" then
sql = "select g_name,g_mail from g_member"
rs.open sql, db
Do While not rs. eof
Set objMail = Server.CreateObject("CDO.Message")
objMail.From="company@paran.com"
objMail.To = rs("g_mail")
objMail.Subject = mail_subject
objMail.Body = mail_body
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Send
rs.movenext
loop
End if
If mail_to = "2" then
sql ="select s_name,mail from s_member"
rs.open sql, db
Do While not rs.eof
Set objMail = Server.CreateObject("CDO.Message")
objMail.From="company@paran.com"
objMail.To = rs("mail")
objMail.Subject = mail_subject
objMail.Body = mail_body
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Send
rs.movenext
loop
End if
If mail_to = "3" then
sql = "select g_mail from g_member where c_id='"& Request("cid")&"'"
rs.open sql, db
Do While not rs.eof
Set objMail = Server.CreateObject("CDO.Message")
objMail.From="company@paran.com"
objMail.To = rs("g_mail")
objMail.Subject = mail_subject
objMail.Body = mail_body
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Send
rs.movenext
loop
End if
========================이 위 부분 어딘가 Error가 잇는거 같습니다==========
objMail.Send ' 메일 보내기 메소드(이부분이 보내는 부분)
Set objMail = Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<style type="text/css">
<!--
.unnamed1 { font: 9pt/17pt "굴림"; color: #000000}
-->
</style>
</HEAD>
<BODY>
<div align="center" class="unnamed1">
메일이 발송 되었습니다.
<br> <br>
<input type="button" value="메일폼으로 이동" onclick="javascript:location.href='./mail.asp'">
</div>
</BODY>
</HTML>
----------------------- mail_send.asp 끝 ----------------------------------------
쩝~! 죄성 하지만 위에 소스 보시고 한번 더 설명을 부탁 드려도 될까여?
참고로 저는 Linux쪽은 어느정도 이것 저것 해 본다고 다~~! 만져
봤지만...MS쪽은 이 회사 와서 제가 스스로 공부를 해서 업무를
처리 하다 보니~! 도통 머가 먼지 잘 모르겠습니다~!
CDO가 무슨 약자 인지는 대충 검색해서 알게 되었찌만...
CDO 2000 어쩌구 CDONTS가 어떻고... 이정도만 대충 무엇인지
알겠고... CDO 1.2.1 어쩌구...여기 부터는 관련 한글책도 없고
전부 영어 원문이라고 하더라고여! --;
인터넷으로 검색해 봐도~! 원문 외에 한글로 설명이 되어 있는곳이
거의 없습니다~! 한두군데 있긴해도 너무 설명이 부족하고...--;
지난주 검열에서 지적을 받아서 빠른시일내에 고쳐야 합니다~! 쩝~!
지난주 내내 비상 이였습니다~! --;; 퇴근도 늦게 하고...쩝~!
아~! 앞으로 빨리 고쳐 놓지 않으면 또~! 시정 조치 받으면 2회...--;
3회까지 받으면 회사 영업 정지 랍니다~! 에혀~! --;
잘 아시는 분의 지도 편달 부탁 드립니다~! (__)끄빡!
홈피도 리뉴얼해야 하는데...--; 클랐네~! 쩝~! --;;
저는 ASP 공부를 시작한지 2주일 정도 되는 초짜 입니다~!
저는 Linux쪽은 어느정도 이것 저것 찝쩍거려본게 제 실력의 전브고여....--;;;
어느덧 회사에 들어와 MS쪽 Software 들과 Solution들을 들춰 보며...
Devpia 나 Taeyo.net 같은 Site에 질문 올려가면서 여전히 헤메고있는...
여전히 ASP 찝쩍 되고 있는 ASP 초짜 입니다~! --;;;;;;;;;;;;;;;;;;;;;;;;;
벌써 이 게시판에 3번째 질문을 올리게 되었네여~! 쩝~!
예전에는 SMTP를 구동해서 메일 보내기 자체가 되지 않았지만...
지금은 SMTP를 통해서 메일 보내기까지는 성공을 했습니다~! ^^v
하지만 여전히 예전 Source 부분에서 떼어온 DB 부분에서 메일주소를
따오는 부분이 잘 되지 않는거 같습니다~! 쩝~! --;;
----------------------------------------------------------
Microsoft VBScript 런타임 오류 오류 '800a01a8'
개체가 필요합니다.: 'rs'
mail_send.asp, 줄 89
----------------------------------------------------------
위와 같은 Error message가 출력됩니다! 쩝!
"...RS내에서 메일객체 중복..." 이 부분을 영~~! 제가 이해를
하지 못 하겠습니다~! --;;
아래 Source 좀 봐 주시고 잘 못 된곳이나, 제가 표시해 둔곳(==두줄로)
을 잘 아시는분이 봐 주셧으면 해서 글 올려 봅니다~!
----------------------- mail.asp ----------------------------------------
<!-- #include file="../../dbopen.txt" -->
<%
sql="select c_name, c_id from corp order by c_id asc"
rs.open sql, db
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>(주)회사 문의 메일 보내기</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=euc-kr">
<link href="../../esei.css" rel="stylesheet" type="text/css">
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<!--
<style type="text/css">
.unnamed1 { font: 9pt/17pt "굴림"; color: #000000}
</style>
-->
<SCRIPT LANGUAGE="JavaScript">
<!--
function mail_send()
{
if (document.mail_form.mail_from.value == ""){
alert("보내시는 분의 메일 주소를 입력해 주세요!");
document.mail_form.mail_from.focus();
return false;
}
if (document.mail_form.mail_to.value == ""){
alert("받는 사람을 입력하세요!");
document.mail_form.mail_to.focus();
return false;
}
if (document.mail_form.mail_subject.value == ""){
alert("제목을 입력하세요!");
document.mail_form.mail_subject.focus();
return false;
}
if (document.mail_form.mail_body.value == ""){
alert("내용을 입력하세요!");
document.mail_form.mail_body.focus();
return false;
}
document.mail_form.submit();
}
//-->
</SCRIPT>
</HEAD>
<BODY bgcolor='#FFFFFF' text='#000000'+ '+ ' link='#' vlink='#' alink='#'>
<H2 align="center">회사 문의메일 보내기</H2>
<form name="mail_form" action="mail_send.asp" method="post">
<table width="600" height="100" border="1" align="center">
<tr align="center">
<td bgcolor="#CBE4D6" height="30" colspan="2"><b>회사에 다음과 같이 문의합니다.</b></td>
</tr>
<tr>
<td>
<TABLE border="1" width="600" cellpadding="0" cellspacing="0" align="center" class="unnamed1">
<TR>
<TD bgcolor="#CBE4D6" width="150" align="center">보내는 사람(From)</TD>
<TD width="450">
<input type="text" name="mail_from" size="60">
</TD>
</TR>
//================================================이 아래 부분 어딘가에서 Error가 있는거 같습니다~! --;; ===========================
<TR>
<TD bgcolor="#CBE4D6" width="150" align="center">받는 사람(To)</TD>
<TD width="450">
<input name="mail_to" type="radio" value="1" checked>
전체회원
<input type="radio" name="mail_to" value="2">
개인회원
<input type="radio" name="mail_to" value="3">
회사별
<select name="cid" id="cid">
<% if rs.BOF or rs.EOF then %>
<option value="000">등록된 회사가 없습니다.</option>
<%
else
Do until rs.EOF
%>
<option value="<%=rs("c_id")%>"><%=rs("c_name")%></option>
<%
rs.movenext
loop
end if
%>
</select>
//=========================================이 위 부분 어딘가에서 Error가 있는거 같습니다~! --;; ===========================
</TD>
</TR>
<TR>
<TD bgcolor="#CBE4D6" width="150" align="center">제 목(Subject)</TD>
<TD width="450">
<input type="text" name="mail_subject" size="60">
</TD>
</TR>
<TR>
<TD bgcolor="#CBE4D6" width="150" align="center">내 용(Message)</TD>
<TD width="450">
<textarea cols="58" rows="14" name="mail_body"></textarea>
</TD>
</TR>
<TR>
<TD bgcolor="#CBE4D6" width="150" align="center">메일 형식(Coding)</TD>
<TD width="450">
<input type="radio" name="mail_type" value="0" checked> HTML
<input type="radio" name="mail_type" value="1"> TEXT
</TD>
</TR>
<TR>
<TD colspan="2" align="center">
<input type="button" value=" 메일 보내기 " onclick="mail_send()">
</TD>
</TR>
</TABLE>
</td>
<tr align="center">
<td><br>
<img src="./images/logo.jpg" border="0" alt="회사 마크(로고)">
<img src="./images/cp.jpg" border="0" alt="회사 전화번호">
</td>
</tr>
</tr>
</table>
</form>
</BODY>
</HTML>
----------------------- mail.asp 끝 ----------------------------------------
----------------------- mail_send.asp ----------------------------------------
<%
'보내는 사람의 메일주소
mail_from = Trim(Request("mail_from"))
'받는 사람의 메일주소
mail_to = Trim(Request("mail_to"))
'참조
mail_cc = Trim(Request("mail_cc"))
'숨은 참조
mail_bcc = Trim(Request("mail_bcc"))
'메일의 제목
mail_subject = Trim(Request("mail_subject"))
'메일 내용
mail_body = Trim(Request("mail_body"))
'메일 형식
mail_type = Trim(Request("mail_type"))
Set objMail = Server.CreateObject("CDO.Message") ' CDO 2.0(메일 보내기 컴포넌트 개체 생성)
objMail.From = mail_from ' 메일을 보내는 사람의 이메일 주소
objMail.To = mail_to ' 메일을 받는 사람의 이메일주소(여러사람일 경우는 ; 표시로 구분)
'메일 참조
objMail.Cc = mail_cc
'숨은 참조
objMail.Bcc = mail_bcc
' 메일 제목
objMail.Subject = mail_subject
'HTML 형식으로 보낼건지 결정
If mail_type = "0" Then
objMail.HTMLBody = mail_body
Else
objMail.TextBody = mail_body
End if
========================이 아래 부분 어딘가 Error가 잇는거 같습니다==========
If mail_to = "1" then
sql = "select g_name,g_mail from g_member"
rs.open sql, db
Do While not rs. eof
Set objMail = Server.CreateObject("CDO.Message")
objMail.From="company@paran.com"
objMail.To = rs("g_mail")
objMail.Subject = mail_subject
objMail.Body = mail_body
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Send
rs.movenext
loop
End if
If mail_to = "2" then
sql ="select s_name,mail from s_member"
rs.open sql, db
Do While not rs.eof
Set objMail = Server.CreateObject("CDO.Message")
objMail.From="company@paran.com"
objMail.To = rs("mail")
objMail.Subject = mail_subject
objMail.Body = mail_body
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Send
rs.movenext
loop
End if
If mail_to = "3" then
sql = "select g_mail from g_member where c_id='"& Request("cid")&"'"
rs.open sql, db
Do While not rs.eof
Set objMail = Server.CreateObject("CDO.Message")
objMail.From="company@paran.com"
objMail.To = rs("g_mail")
objMail.Subject = mail_subject
objMail.Body = mail_body
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Send
rs.movenext
loop
End if
========================이 위 부분 어딘가 Error가 잇는거 같습니다==========
objMail.Send ' 메일 보내기 메소드(이부분이 보내는 부분)
Set objMail = Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<style type="text/css">
<!--
.unnamed1 { font: 9pt/17pt "굴림"; color: #000000}
-->
</style>
</HEAD>
<BODY>
<div align="center" class="unnamed1">
메일이 발송 되었습니다.
<br> <br>
<input type="button" value="메일폼으로 이동" onclick="javascript:location.href='./mail.asp'">
</div>
</BODY>
</HTML>
----------------------- mail_send.asp 끝 ----------------------------------------
쩝~! 죄성 하지만 위에 소스 보시고 한번 더 설명을 부탁 드려도 될까여?
참고로 저는 Linux쪽은 어느정도 이것 저것 해 본다고 다~~! 만져
봤지만...MS쪽은 이 회사 와서 제가 스스로 공부를 해서 업무를
처리 하다 보니~! 도통 머가 먼지 잘 모르겠습니다~!
CDO가 무슨 약자 인지는 대충 검색해서 알게 되었찌만...
CDO 2000 어쩌구 CDONTS가 어떻고... 이정도만 대충 무엇인지
알겠고... CDO 1.2.1 어쩌구...여기 부터는 관련 한글책도 없고
전부 영어 원문이라고 하더라고여! --;
인터넷으로 검색해 봐도~! 원문 외에 한글로 설명이 되어 있는곳이
거의 없습니다~! 한두군데 있긴해도 너무 설명이 부족하고...--;
지난주 검열에서 지적을 받아서 빠른시일내에 고쳐야 합니다~! 쩝~!
지난주 내내 비상 이였습니다~! --;; 퇴근도 늦게 하고...쩝~!
아~! 앞으로 빨리 고쳐 놓지 않으면 또~! 시정 조치 받으면 2회...--;
3회까지 받으면 회사 영업 정지 랍니다~! 에혀~! --;
잘 아시는 분의 지도 편달 부탁 드립니다~! (__)끄빡!
홈피도 리뉴얼해야 하는데...--; 클랐네~! 쩝~! --;;
홈피 리뉴얼 좀 해 주실 분 있으시면 쪽지 주세여~! ^^*