|
|
|
|
 |
|
문희철 / 2000-07-07 / 오후 5:23:42 / 211.51.20.144
조회수 : 126
|
| [질문] 업로드 폼에서 수정이 안되고 에러가떠요 |
> > 안냐세요...
> > 자주 질문드리죠...죄송.
> > 다름이 아니오라 제가 업로드를 하고 있거든요.업로드에서 성공을 했고,수정 모드를 만들었는데,수정이 안되고 새로운 값으로 입력이 되고 있거든요.
> > 이곳의 에러 좀 봐주세요.
> > 도무지 파악이 안되네요...
> > 소스는 아래와 갔습니다.
> > ================================
> >
> > < 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
|
|
|
|