꿈속나라

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

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

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

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	Microsoft OLE DB Provider for ODBC Drivers error '8004d013' Only one transaction can be active on this session. /mem/add_mem.inc, line 24 잘몰라서 전체다 보냄니다 <% ID = Replace(request("id")," ","") PassWord = Replace(request("password")," ","") Name = Replace(request("name")," ","") EMail = Replace(request("email")," ","") Reg1 = request("reg1") Reg2 = request("reg2") Zip1 = request("zip1") Zip2 = request("zip2") Add1 = request("add1") ADD2 = request("add2") Tel1 = request("tel1") Tel2 = request("tel2") Tel3 = request("tel3") HP1 = request("hp1") HP2 = request("hp2") HP3 = request("hp3") Set Conn = DBconnection() Conn.BeginTrans '이부분 에러인데요 Set RsQuery = Server.CreateObject("ADODB.RecordSet") RsQuery.Open " SELECT MEM_ID ,REG_NUM1,REG_NUM2 " &_ " FROM BORA_MEM " &_ " WHERE MEM_ID='" & ID & "'" &_ " OR (REG_NUM1 = '"& Reg1 & "'" &_ " AND REG_NUM2 = '" & Reg2 & "')" , Conn, 3, 1, 1 If Not RsQuery.EOF Then strID = RsQuery("MEM_ID") strRegNum1 = RsQuery("REG_NUM1") strRegNum2 = RsQuery("REG_NUM2") If strID = ID Then %> <script language="javascript"> alert("ID : <%= ID %>는 이미 사용중입니다."); history.back(); </script> <% ElseIf strRegNum1 =Reg1 AND strRegNum2 =Reg2 Then %> <script language="javascript"> alert("<%= REG1 %>-<%= REG2 %> 는 이미 등록된 주민번호 입니다."); history.back(); </script> <% End If Else '회원가입 BORA_MEM TABLE에 입력되는 내용 strSql = " INSERT INTO BORA_MEM ( " &_ " MEM_ID ," &_ " PASSWORD," &_ " MEM_NAME," &_ " EMAIL," &_ " REG_NUM1," &_ " REG_NUM2," &_ " MEM_ZIP1," &_ " MEM_ZIP2," &_ " MEM_ADD1," &_ " MEM_ADD2," &_ " MEM_TEL," &_ " MEM_HP," &_ " MEM_JOB," &_ " MEM_PAY," &_ " YEAR_TOUR_NO," &_ " TOUR_CHOICE," &_ " TOUR_STAGE," &_ " STAGE_GITA," &_ " BIR_YEAR," &_ " BIR_MONTH," &_ " BIR_DAY," &_ " BIR_PN," &_ " CHUCHEN_ID," &_ " MAILLIST_FLAG," &_ " REG_CODE," &_ " SKCARD_FLAG)" &_ " VALUES ( '" & ID & "'," &_ " '" & PassWord & "'," &_ " '" & Name & "'," &_ " '" & EMail & "'," &_ " '" & Reg1 & "'," &_ " '" & Reg2 & "'," &_ " '" & Zip1 & "'," &_ " '" & Zip2 & "'," &_ " '" & Add1 & "'," &_ " '" & Add2 & "'," &_ " '" & Tel1 & "-" & Tel2 & "-" & Tel3 & "'," &_ " '" & HP1 & "-" & HP2 & "-" & HP3 & "'," &_ " '" & Job & "'," &_ " '" & Pay & "'," &_ " '" & TourCount & "'," &_ " '" & Choice & "'," &_ " '" & strStage & "'," &_ " '" & stageGita & "'," &_ " '" & BYear & "'," &_ " '" & BMonth & "'," &_ " '" & BDay & "'," &_ " '" & BPN & "'," &_ " '" & ChuchenID & "'," &_ " '" & MailFlag & "'," &_ " '" & Com_Code & "'," &_ " '" & SKFlag & "')" Conn.Execute( strSql ) '등록시 설문 MEM_QUESTION TABLE에 들어갈 내용 qSql = " INSERT INTO REG_QUESTION ( " &_ " MEM_ID ," &_ " SULMUN," &_ " GITA)" &_ " VALUES ( '" & ID & "'," &_ " '" & Question & "'," &_ " '" & Gita & "')" Conn.Execute( qSql ) uSql = " UPDATE BORA_MEM SET MEM_MILE = MEM_MILE + 1000 " &_ " WHERE MEM_ID = '" & ChuchenID & "'" Conn.Execute(uSql) End If If Err.Number > 0 Then Conn.RollbackTrans conn.errors.clear Conn.Close Response.Redirect "../sorry.asp?err=Err008" ElseIf conn.errors.count <> 0 Then Conn.RollbackTrans conn.errors.clear Conn.Close Response.Redirect "../sorry.asp?err=Err009" Else Conn.CommitTrans conn.errors.clear Conn.Close %> <% End If %>

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *