꿈속나라

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

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

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

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	> > 안냐세요... > > 자주 질문드리죠...죄송. > > 다름이 아니오라 제가 업로드를 하고 있거든요.업로드에서 성공을 했고,수정 모드를 만들었는데,수정이 안되고 새로운 값으로 입력이 되고 있거든요. > > 이곳의 에러 좀 봐주세요. > > 도무지 파악이 안되네요... > > 소스는 아래와 갔습니다. > > ================================ > > > > < script language="VBscript" RUNAT="server" > > > Function CheckWord(CheckValue) > > > > CheckValue = replace(CheckValue, "<","<") > > CheckValue = replace(CheckValue, ">",">") > > CheckValue = replace(CheckValue, ""","'") > > CheckValue = replace(CheckValue, "&","&") > > > > CheckWord = CheckValue > > End Function > > < /script > > > <% > > Set db = Server.CreateObject("ADODB.Connection") > > db.Open("sell1") > > '현재의 글의 비밀번호를 가져오는 쿼리문을 작성 > > SQL = "SELECT pwd sell From data WHERE board_idx = "& request("idx") > > > > > > > >set result = db.execute(SQL) ====에러메세지부분1 > > if request("pwd") = result(0) then > > > > > > 'board_idx = UploadForm("board_idx") > > brandname = CheckWord(Request.Form("brandname") ) > > product = CheckWord(Request.Form("product")) > > t_short = CheckWord(Request.Form("t_short")) > > mcode = CheckWord(Request.Form("mcode")) > > country = CheckWord(Request.Form("country")) > > specification = CheckWord(Request.Form("specification")) > > company = CheckWord(Request.Form("company")) > > contactperson = CheckWord(Request.Form("contactperson")) > > addre = CheckWordWord(Request.Form("addre")) > > tel = CheckWord(Request.Form("tel")) > > fax = CheckWord(Request.Form("fax")) > > url = CheckWord(Request.Form("url")) > > email = CheckWord(Request.Form("email")) > > payment = CheckWord(Request.Form("payment")) > > packing = CheckWord(Request.Form("packing")) > > fob = CheckWord(Request.Form("fob")) > > markets = CheckWord(Request.Form("markets")) > > > > > > > > > > > > 'Set db = Nothing > > '입력받은 비밀번호와 실제 비밀번호를 비교하여 일치한다면 > > 'if request("pwd") = pwd then > > Set db = Server.CreateObject("ADODB.Connection") > > db.Open("sell1") > > SQL = "UPDATE SELL set name = '" & name &"'" > > SQL = SQL & ",email = '" & email & "'" > > SQL = SQL & ",url= '" & url & "'" > > SQL = SQL & ",payment='" & payment & "'" > > SQL = SQL & ",company='" & company & "'" > > SQL = SQL & ",country='" & country & "'" > > SQL = SQL & ",t_short='" & t_short & "'" > > SQL = SQL & ",mcode='" & mcode & "'" > > SQL = SQL & ",productt='" & product & "'" > > SQL = SQL & ",brandname='" & brandname & "'" > > SQL = SQL & ",addre='" & addre & "'" > > SQL = SQL & ",tel='" & tel & "'" > > SQL = SQL & ",fax='" & fax & "'" > > SQL = SQL & ",specification='" & specification & "'" > > SQL = SQL & " where board_idx = "& request("idx") > > db.execute SQL > > Set db = Nothing > > Response.Redirect "list.asp" > > '데이터베이스에 현재의 레코드를 update하고 리스트로 돌아간다. > > > > else > > > > %> > > > > < script language="javascript" > > > alert(" Nothing ...password"); > > history.back(); > > < /script > > > > > > > <% > > end if ==========>에러메세지부분 2 > > %> > ----------------------------------------------------------- > > 수정하기 화일로 가는데 아니고 등록하기 화일로 action이 일어나는게 아닐까요? > > 수정하기에서 form 다음에 action 내용이 틀린것 같네요... > > 한번 체크해 보세요... > ----------------------------------------------------------- 오잉 다시 에러예요.... Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access 드라이버] 'pwd sell' 쿼리식의 연산자가 없는 구문 오류입니다. /sellup/sellupedit_ok.asp, line 46 위에 에러라인 부분을 체크했습니다. 첨엔 이곳이었는데,두번째는 이런 메세지가 나왔어요 Microsoft VBScript 컴파일 오류 error '800a03f6' 'End'가 필요합니다 /sellup/sellupedit_ok.asp, line 76

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *