묻고답하기

수고 많으십니다~! (__)끄빡
다른게아니라~! 웹상에서 메일을 보내게 하려고 하는데...쩝~!

제가 최근에 회사에 들어와 업무 인수 인계를 받고
업무도 다 파악 되지 않은 상태에서 다음주(3/27~3/31사이)에
노동부 불시 검열이 있다는 정보를 받고, 검열에 걸리는 내용들을
일일이 체크 하다가 한가지 걸리는 부분이 있는데 그게 바로
"문의메일" 부분 입니다~!

문의 메일을 보낼 수 있게 해 놔야 하는데...--;
업무 인계를 받은 사람의 메일 소스를 아무리 고쳐도 잘 안되서
여기 Site의 ASP 질의응답 게시판과 TIP&TECH 게시판의 메일
관련 글들을 모두 읽어 보았지만 ......아직 해결책을 찾기 못
했습니다~! 에고.....쩝~! --;;
저는 Linux쪽만 다루다가 이곳 회사에서 처음으로 MS 쪽(Win 2003/
MSSQL/IIS 6.0등등) 소프트웨어들을 다루려고 보니...너무 어렵네요!
제가 일일이 다~~~~~~ 찾아 가면서 업무를 보고 있지만...저 혼자
서는 아무래도 한계가 있는듯 합니다~! 쩝~!
솔찍히 잘 알지도 못 하고.....--;;

제가 원하는것은 Web 상에서 메일보내기(폼메일?)가 되는게 목적임다!
그래서 염치 없지만 좀 아시는분들이 많은 이곳에 질문을 해 봅니다~!

우선 제가 관리하는 Solution은...
OS : MS Windows Server 2003
DB : MS SQL 2000
Server S/W : IIS 6.0 / ASP.NET
위에 상태에서 SMTP는 가동을 시켜 놓은 상태 입니다!

질문 1
UpLoad Component 가 없어도 Web 상에서 메일을 보내기가 가능한가요?
(첨부화일보내기 없이...)

질문 2
업무 인계 받은 분 말로는 MS SQL 과 연동하면 첨부 화일보내기만
빼고 메일 보내기는 가능 하다고 하는데 사실인지요?

질문 3
아래 부분쪽에 보시면 소스를 올렸는데요~!
보시고 머가? 문제인지? 조목 조목 좀 지적을 해 주셨으면 ...--;

====== mail_1.asp ==============================================
<!-- #include file="../../dbopen.txt" -->

<%

        sql="select c_name, c_id from corp order by c_id asc"
        rs.open sql, db

%>

<html>
<head><title>주식회사에 전체 메일 보내기</title>
<meta http-equiv="Content-Type" content="text/html; charset=euc-kr">
<link href="../../esei.css" rel="stylesheet" type="text/css">
<script language="javascript">
<!--
// 공란체크
        function mail()
{
   var str;
  
    //제목 기입여부 체크
   str = document.mail.title.value;
   if(str == "") {
                alert("제목을 작성해 주세요.");
                document.mail.title.focus();
                return true;
        }
        
        //내용기입여부체크
   str = document.mail.content.value;
   if(str == "") {
                alert("내용을 작성해 주세요.");
                document.mail.content.focus();
                return;
        }

        document.mail.submit();
        return true;
}

function MM_callJS(jsStr) { //v2.0
  return eval(jsStr)
}
//-->
</script>
</head>
<body bgcolor='#FFFFFF' text='#000000' link='#' vlink='#' alink='#'>
<p><center><font size="5" color="blue">주식회사에 문의 메일 보내기</font></center></p>
<form name="mail" method="post" action="mail_2.asp" enctype="multipart/form-data">

<table width="600" height="100" border="0" cellpadding="0" cellspacing="0" align="center">
<tr align="center">
  <td bgcolor="#CBE4D6" height="30" colspan="2"><b>귀주식회사에 다음과 같이 문의합니다.</b></td>
</tr>
<tr>
  <td>
        <table width="600" border="0" cellpadding="3" cellspacing="1">
          <tr>
            <td bgcolor="#CBE4D6" width="150" height="25"><div align="center">제 목(Subject)</div></td>
            <td width="450" height="25">  <input name="title" type="text" class="input" id="title" size="60"></td>
          </tr>
          <tr>
            <td bgcolor="#CBE4D6" width="150" height="25"><div align="center">대 상(Target)</div></td>
            <td width="450" height="25">   
              <input name="ch" type="radio" value="1" checked>
              전체회원  
              <input type="radio" name="ch" value="2">
              개인회원   
              <input type="radio" name="ch" 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> </td>
          </tr>
          <tr>
            <td bgcolor="#CBE4D6" width="150"><div align="center">내 용(Message)</div></td>
            <td width="450">  <textarea name="content" cols="58" rows="18" id="content"></textarea>
        <!-- <br><center>
                <input type=radio name="stype" value="1" checked> TEXT  
                <input type=radio name="stype" value="0"> HTML </center>
        -->
            </td>
          </tr>
        <!--
          <tr>
            <td bgcolor="#CBE4D6" width="150"><div align="center">첨부파일(Attach)</div></td>
            <td width="450">  <input type="file" size="45" name="attach">
            </td>
          </tr>
        -->
          <tr>
            <td colspan="2"><div align="center">
                <input name="Submit" type="button" onClick="MM_callJS('mail();')" value="보내기">
                  
                <input type="reset" name="Submit2" value="다시쓰기">
              </div></td>
          </tr>
        </table>
  </td>
<tr align="center">
  <td><br><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_1.asp =================================================================

위에까지가 메일 보내기 페이지 입니다~!
아래 부터가 입력한 정보를 받아서 메일로 보내는 소스 입니다!

=========== mail_2.asp =================================================================
<!-- #include file="../../dbopen.txt" -->

<%

        content = request("content")
        title = request("title")
        ch = request("ch")
        cid = request("cid")

        Server.ScriptTimeout = 300

        con = replace(request("content"),chr(13) & chr(10),"<br>")

        bo = "<html><body><p></p><table width=450 border=0 cellspacing=0 cellpadding=0><tr><td height=30><div align=center><font size=2>"
        bo = bo & "Korea Safety Education Center Mailing List</font></div></td></tr><tr><td>"
        bo = bo & "<font size=2 face=돋움체><p></p>" & con & "<p></p></font></td></tr><tr><td height=30><font size=2>(주)"
        bo = bo & "주식회사"
        bo = bo & "<a href=mailto:company@paran.com>company@paran.com</a></font></td></tr></table></body></html>"


        if ch = "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=title
        objMail.Body= con
        objMail.BodyFormat = 0
        objMail.MailFormat = 0
        objMail.body = bo
        objMail.Send

        rs.movenext
        loop

        end if

        if ch= "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=title
        objMail.Body= con
        objMail.BodyFormat = 0
        objMail.MailFormat = 0
        objMail.body = bo
        objMail.Send

        rs.movenext
        loop
        
        end if

        if ch= "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=title
        objMail.Body= con
        objMail.BodyFormat = 0
        objMail.MailFormat = 0
        objMail.body = bo
        objMail.Send

        rs.movenext
        loop
        
        end if



%>

<HTML>
<HEAD>
</HEAD>

<BODY>
ok
</BODY>
</HTML>
* DearMai님에 의해서 게시물 이동되었습니다 (2006-03-27 17:45)
글쓴이 제목 최종 글
XE 공지 글 쓰기,삭제 운영방식 변경 공지 [16] 2019.03.05 by 남기남
웹정 메인 레이아웃 설정 [1] 2008.11.28 by 느까끼
준빠™ zb4 마이그레이션 데이터가 700M인데 이전이 안되는데요.. [1] 2008.11.28 by 준빠™
박노열 전체메일 보내는 프로그램 좀 가르쳐 주세요 [8] 2008.11.28 by 박노열
joyjoy 왼쪽 메뉴에 포인트 이미지 아이콘 자동링크 문제 file  
웹디 로그인시 회원정보보기, 스크랩보기등을 새창으로 띠우는방법이... [1] 2008.11.28 by 느까끼
복고열전 xe페이지부분 수동으로 설정을 못하나요?? [2] 2008.11.28 by 복고열전
세잔 홈페이지 관리자 비밀번호를..  
웹정 제로보드 기본 갤러리 스킨 [2] 2008.11.28 by 웹정
철쌤 카테고리 출력 버그?  
흑묘백묘 xe1.1.1 버전 다운로드에 관한 질문  
준빠™ 새 게시판이 대상모듈에 안나타납니다.. [5] file 2008.11.28 by 준빠™
준아부 폰트 관련 입니다 . 아무리 검색해도 없어서 이리 질문 드립니다. file  
Hanna™ 미리 제작한 홈페이지에 게시판 붙이는 방법 좀.. [2] 2008.11.28 by Hanna™
리쌍 왜 안되는지 드뎌 찾았습니다. [2] 2008.11.28 by 이효상839
마알지기 제로보드XE에서 구글로 편지를 보내면 다 깨집니다. [2] 2008.11.28 by 마알지기
콜미옵빠 XE 새로 업그레이드 했는데, 첨부파일은 여전히.. 도와주세요. [1] 2008.11.28 by 김동환
흑묘백묘 xe1.1.1 파폭에서 첨부파일 첨부가 않되는것 같네요. [3] 2008.11.28 by 흑묘백묘
팔공산 플래닛에서 작성한 글을 수정할수가 없나요 [5] 2008.11.28 by 애치티
디포네 일반 회원이 플래닛 생성은 어디서 하나요? [3] 2008.11.28 by 애치티
성공회대 문의 [1] 2008.11.28 by 백성찬
웹정 첨부파일이 안되요 [1] 2008.11.28 by 백성찬
connil 홈페이지 이미지갤러리페이지 관련 질문드립니다..  
오토모션 1.1 업데이트 이후 파일첨부 오류 [2] 2008.11.28 by 오토모션
xe초보 님들아..홈페이지좀 살려주세요...ㅠㅠ [1] 2008.11.28 by 폼첩쿤
organist1004.myid.net 답글에 대한 문의 [1] 2008.11.28 by 백성찬
익스군 빈칸 '' ''와 '' ''의 차이 [2] 2008.11.28 by 익스군
이호양 저좀도와주세요 ㅠㅠ 새로설치후 file 폴더 복사했는데 다운이.. [2] file 2008.11.28 by 이호양
영남뉴스 제로보드xe 이런 기능 가능했으면 합니다.  
wow562 등록하시겠습니까? 버튼 안뜨고 바로 포스팅하려면 ... [6] file 2008.11.28 by 투숙하니
서성진856 홈페이지 패키지