set objNewMessage = CreateObject("CDO.Message")
        set iConf = CreateObject("CDO.Configuration")
        Set Flds = iConf.Fields
        Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdo쎈드UsingPort <--요부분 은 오쎈드가 부적절한 단어라해서 한글 씀..
        Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "211.239.161.96"
        Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
        Flds.Update

        Set objNewMessage.Configuration = iConf
        objNewMessage.subject = "내게 강간은 사랑"
        objNewMessage.htmlbody = content
        objNewMessage.from = "webmaster@gangganislove.co.kr"
        objNewMessage.to = mail
        objNewMessage.BodyPart.Charset="ks_c_5601-1987"         \'/// 한글을 위해선 꼭 넣어 주어야 합니다.
        objNewMessage.HTMLBodyPart.Charset="ks_c_5601-1987" \'/// 한글을 위해선 꼭 넣어 주어야 합니다.
        objNewMessage.send   <------요줄이 자꾸 에러라는것과 구글링 해본결과 메일보내는부분에서 문제있음.

        set objNewMessage = Nothing
        Set iConf = Nothing
        Set Flds = Nothing
                \'임시 기업 회원 작성 완료 메일 발송 ##############################################################################################
        End If

Set uploadform = Nothing
dbcon.close
set dbcon = nothing
\'*******************************************************************
\'                                                                        무료 서비스 처리 부분 끝
\'*******************************************************************
response.Redirect "/admin/t_com_manage/t_adopt_list.asp"######################################################################################