꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(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 *