|
|
 |
|
food / 2000-12-13 / 오후 3:04:08 / 210.219.185.189
조회수 : 148
|
| [질문] 트랜젝션에러인데 잘모르겠어요x) |
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
%>
<% ElseIf strRegNum1 =Reg1 AND strRegNum2 =Reg2 Then %>
<% 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
%>
|
|
|
|