꿈속나라

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

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

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

이름 *	HTML 사용
제목 *
내용 *	> 에러메시지.... > Microsoft VBScript 런타임 오류 error '800a000d' > > 형식이 일치하지 않습니다: 'Basket' > > /hosteng/shopping/shopping.asp, line 90 > -------------------------------------------------- > 이 부문이 소스입니다. > 좀 부탁드립니다. > > <%@ LANGUAGE="VBSCRIPT" %> > <!-- #include file="../hostengDBCon.inc" --> > <% response.buffer= true%> > <HTML> > <HEAD> > <TITLE>상품 주문 상세정보 </TITLE> > <META NAME="description" CONTENT="Universe ST"> > <META NAME="author" CONTENT="Universe ST"> > <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=euc-kr"> > <STYLE TYPE="text/css"> > .a1 {font-family : "굴림"; font-size : 9pt; line-height:14pt;} > .a2 {font-family : "굴림"; font-size : 14pt; line-height:14pt;} > .a3 {font-family : "굴림"; font-size : 9pt; line-height:11pt;} > .a4 {font-family : "굴림"; font-size : 9pt; line-height:14pt;} > <STYLE type=text/css> > .g1 {FONT-FAMILY: "굴림"; FONT-SIZE: 9pt; LINE-HEIGHT: 11pt;} > .g2 {FONT-FAMILY: "굴림"; FONT-SIZE: 12pt; LINE-HEIGHT: 16pt;} > .g3 {FONT-FAMILY: "굴림"; FONT-SIZE: 9pt; LINE-HEIGHT: 11pt;} > .e1 {FONT-FAMILY: arial, helvetica, ms sans serif; FONT-SIZE: 9pt; LINE-HEIGHT: 11pt;} > .sbbtn01 {BACKGROUND-COLOR: #528ca5; COLOR: #fffff7; CURSOR: hand; FONT-SIZE: 10pt; FONT-WEIGHT: bold;} > INPUT {BACKGROUND-COLOR: #fffff7; COLOR: black; FONT-SIZE: 10pt;} > SELECT {BACKGROUND-COLOR: #fffff7;} > A:link {COLOR: #0000ff; FONT-SIZE: 9pt; TEXT-DECORATION: none;} > A:visited {COLOR: #009c9c; FONT-SIZE: 9pt; TEXT-DECORATION: none;} > A:hover {COLOR: #ff0000; FONT-SIZE: 9pt; TEXT-DECORATION: underline;} > TD {FONT-SIZE: 9pt;} > </STYLE> > <META NAME="keywords" CONTENT="비지니스, 경제, 회사, 유통, 편의점"></HEAD> > <SCRIPT LANGUAGE=VBScript RUNAT=Server> > '장바구니의 크기 > Const MaxItems = 15 > '장바구니 항목의 순번 > ' 대문류 코드 > Const constfirstcode = 1 > ' 대분류 이름 > Const constcompany = 2 > ' 중분류 코드 > Const constsecondcode = 3 > ' 중분류 이름 > Const conststandard = 4 > ' 소분류 코드 > Const constthirdcode = 5 > ' 상품 종류 코드 > Const constkind = 6 > ' 상품 코드 > Const constno = 7 > ' 상품이름 > Const constName = 8 > ' 상품 구매 수량 > Const constQuantity = 9 > ' 상품 단가 > Const constUnitPrice = 10 > ' 상품 번호 > Const constseq = 11 > ' 상품 단위 > Const constunit = 12 > > </SCRIPT> > <% > > Session("iSubTotal") = 0 > iCount = Session("ItemCount") > Basket = Session("MyBasket") > goodscode = request("goodscode") > > If Request("order") = "ok" Then > > > '고객이 선택한 제품의 타입을 데이터베이스로 전달하여 해당 제품만을 가져온다. > fr = Request("fr") > kind = Request("kind") > If kind = "" Then > kind = "00" > End If > 'Response.write "==>" &fr > SQL = "SELECT HG_COMPANY,HF_FIRSTCODE,HG_STANDARD,HS_SECONDCODE,HT_THIRDCODE,HG_KIND,HG_NAME,HG_PRICE,HG_SEQ,HG_UNIT FROM HOST_FIRST,HOST_SECOND,HOST_THIRD,HOST_GOODS" > SQL = SQL &" WHERE HG_FIRSTCODE = '"& Request("firstcode") &"' AND HG_FIRSTCODE = HF_FIRSTCODE AND HF_FIRSTCODE = HS_FIRSTCODE AND HS_FIRSTCODE = HT_FIRSTCODE " > SQL = SQL &" AND HG_SECONDCODE = '"& Request("secondcode") &"' AND HG_SECONDCODE = HS_SECONDCODE AND HS_SECONDCODE = HT_SECONDCODE AND HT_SECONDCODE = HG_SECONDCODE" > SQL = SQL &" AND HG_THIRDCODE = '"& Request("thirdcode") &"' AND HG_THIRDCODE = HT_THIRDCODE" > SQL = SQL &" AND HG_KIND = '"& kind &"'" > SQL = SQL &" AND HG_GOODSCODE = '"& goodscode &"'" > ' Response.write SQL > Set RS = DbCon.Execute(SQL) > > '각 배열에 제품을 정보를 넣는다. > iCount = iCount + 1 > Session("ItemCount") = iCount > > If Not IsEmpty(RS) Then > response.write(Basket(constcompany,iCount)) > Basket(constcompany,iCount) = RS("HG_COMPANY") > > > Basket(constfirstcode,iCount) = RS("HF_FIRSTCODE") > Basket(conststandard,iCount) = RS("HG_STANDARD") > Basket(constsecondcode,iCount) = RS("HS_SECONDCODE") > Basket(constthirdcode,iCount) = RS("HT_THIRDCODE") > Basket(constkind,iCount) = RS("HG_KIND") > Basket(constno,iCount) = goodscode > > goodsname = RS("HG_NAME") > If RS("HG_KIND") <> "00" Then > KINDSQL = "SELECT HD_KINDNAME FROM HOST_KIND WHERE HD_FIRSTCODE = '"& RS("HF_FIRSTCODE") &"' AND HD_SECONDCODE = '"& RS("HS_SECONDCODE") &"' AND HD_THIRDCODE = '"& RS("HT_THIRDCODE") &"' AND HD_KIND = '"& RS("HG_KIND") &"'" > 'Response.write kindsql > Set kind = DbCon.Execute(KINDSQL) > kindname = kind(0) > kind.Close > Set kind = Nothing > goodsname = RS("HG_name")&"("& kindname &")" > End If > Basket(constName,iCount) = goodsname > Basket(constQuantity,iCount) = Request("howmany"& fr &"") > Basket(constUnitPrice,iCount) = RS("HG_PRICE") > Basket(constseq,iCount) = RS("HG_SEQ") > Basket(constunit,iCount) = RS("HG_UNIT") > Session("MyBasket") = Basket > End If > > RS.Close > DbCon.Close > End If > > If Request("del") = "ok" Then '주문중 일부 삭제. > > ReDim tmpBasket(50,30) > j = 0 > > For i = 1 to iCount > If (i <> int(goodscode)) Then > j = j + 1 > > For n = 1 to 30 > tmpBasket(n,j) = Basket(n,i) > Next > End If > Next > Session("MyBasket") = tmpBasket > Basket = Session("MyBasket") > Session("ItemCount") = j > iCount = j > > ElseIf Request("Action") = "계산하기" Then '주문하기 > Response.Redirect "shoppinglogin.asp" > ElseIf Request("Action") = "수정" Then '다시계산 > If iCount = 1 Then > If asc(left(Request("Quantity"& 1),1)) > asc(9) Then > tcount = 100 > Else > > tcount = Round(Request("Quantity" & 1),0) > If tcount = 0 Then > tcount = 1 > End If > End If > Basket(constQuantity,1) = tcount > Session("MyBasket") = Basket > Else > For i = 1 to iCount > If asc(left(Request("Quantity"& i),1)) > asc(9) Then > tcount = 100 > Else > tcount = Round(Request("Quantity" & i),0) > If tcount = 0 Then > tcount = 1 > End If > End If > Basket(constQuantity,i) = tcount > Session("MyBasket") = Basket > Next > End If > ElseIf Request("Action") = "주문취소" Then '전체 주문취소 > file= Request("file") > iCount = 0 > Session("ItemCount") = iCount > If file = "" Then > Response.Redirect "../index_body.asp" > Else > Response.Redirect ""& file &"" > End If > End If > If session("ItemCount") = "0" Then > Response.Write("<SCRIPT LANGUAGE=""JavaScript"">") > Response.Write("alert(""쇼핑백에 담겨져 있는 상품이 없습니다."");") > Response.Write("self.location.href=('../body.asp');") > Response.Write("</SCRIPT> ") > End If > %> > > <BODY BGCOLOR="#FFFFFF"> > <br> > <TABLE BORDER=0 WIDTH=635 CELLPADDING="0" CELLSPACING="0" ALIGN=left> > <TR> > <TD align="right" WIDTH=635><FONT COLOR="DarkGoldenrod"><%=session("id") %>회원님의 Shopping Cart 내용은 아래와 같습니다.</FONT> > </TD> > </TR> > </TABLE> > <br> > <TABLE WIDTH=635 BORDER=0 CELLPADDING="0" CELLSPACING="0"> > <TR> > <TD WIDTH=10></TD> > <TD WIDTH=625> > <table border cellpadding="1" cellspacing="0" width="625" bgcolor="#6666CC" bordercolordark="white" bordercolorlight="black"> > <FORM NAME=frm METHOD=POST ACTION="shopping.asp"> > <TR BGCOLOR="#FFC53F"> > <TD ALIGN=CENTER WIDTH=200><FONT Class=a1>상품명</FONT></TD> > <TD ALIGN=CENTER WIDTH=140><FONT Class=a1>제조사</FONT></TD> > <TD ALIGN=CENTER WIDTH=100><FONT Class=a1>규격</FONT></TD> > <TD ALIGN=CENTER WIDTH=50><FONT Class=a1>단위</FONT></TD> > <TD ALIGN=CENTER WIDTH=30><FONT Class=a1>수량</FONT></TD> > <TD ALIGN=CENTER WIDTH=70><FONT Class=a1>가격</FONT></TD> > <TD ALIGN=CENTER WIDTH=35><FONT Class=a1>삭제</FONT></TD> > </TR> > <% > iSubtotal = 0 > totalvat = 0 > For i = 1 to iCount > %> > <TR> > <TD BGCOLOR="#FFFFE6"> <FONT Class=a1> <%=basket(constname,i)%></FONT></TD> > <TD BGCOLOR="#FFFFE6"> <FONT Class=a1> <%=Basket(constcompany,i)%></FONT></TD> > <TD BGCOLOR="#FFFFE6"> <FONT Class=a1> <%=Basket(conststandard,i)%></FONT></TD> > <TD BGCOLOR="#FFFFE6"> <FONT STYLE="Verdana, Arial, Helvetica"> <%=Basket(constunit,i)%></FONT></TD> > <TD BGCOLOR="#FFFFFF" align="right"><INPUT TYPE=TEXT NAME=Quantity<%=i%> VALUE="<%=Basket(constQuantity,i)%>" SIZE=2></TD> > <TD BGCOLOR="#FFFFFF" ALIGN=RIGHT> > <FONT STYLE="Verdana, Arial, Helvetica"> > <%=FormatCurrency(Basket(constUnitPrice,i) * Int(Basket(constQuantity,i)))%></FONT> > </TD> > <TD BGCOLOR="#FFFFFF" ALIGN=CENTER> > <FONT STYLE="Verdana, Arial, Helvetica"> > <A HREF="shopping.asp?del=ok&goodscode=<%=i%>&firstcode=<%=Request("firstcode")%>&secondcode=<%=Request("secondcode")%>&thirdcode=<%=Request("thirdcode")%>">삭제</A></FONT> > </TD> > </TR> > <%If (Basket(constUnitPrice,i)) <> "" Then > iSubTotal = iSubtotal + (Basket(constUnitPrice,i) * Basket(constQuantity,i)) > If Basket(constfirstcode,i) <> "pb" Then > totalvat = totalvat + ((Basket(constUnitPrice,i) * Int(Basket(constQuantity,i))) * 0.1) > End If > session("totalvat") = totalvat > session("Totalnmount") = isubtotal > End If > Next%> > <TR BGCOLOR="#FEF5E0"> > > <TD colspan="5" align="center"> > <input type="Hidden" name="firstcode" value="<%=Request("firstcode")%>"> > <input type="Hidden" name="secondcode" value="<%=Request("secondcode")%>"> > <input type="Hidden" name="thirdcode" value="<%=Request("thirdcode")%>"> > <input type="Hidden" name="search" value="<%=Request("search")%>"> > <FONT STYLE="Verdana, Arial, Helvetica" COLOR="#B9143D" SIZE=2>부 가 세</FONT></TD> > <TD ALIGN=RIGHT><FONT STYLE="Verdana, Arial, Helvetica" SIZE=2><% = FormatCurrency(session("totalvat"))%></FONT></TD> > <TD></TD> > </TR> > <TR BGCOLOR="#FEF5E0"> > > <TD colspan="5" align="center"><FONT STYLE="Verdana, Arial, Helvetica" COLOR="#B9143D" SIZE=2>총 금 액 </FONT></TD> > <TD ALIGN=RIGHT><FONT STYLE="Verdana, Arial, Helvetica" SIZE=2><% = FormatCurrency(session("Totalnmount") + session("totalvat"))%></FONT></TD> > <TD><INPUT type="Submit" NAME="Action" VALUE="수정"></TD> > </TR> > </form> > <TR> > <TD ALIGN=RIGHT COLSPAN=7 BGCOLOR="WHITE" VALIGN=BOTTOM><FONT SIZE=-1 COLOR="#4F4F4F"> > <BR> > > > > > > <!-- Button --> > <!-----<TABLE CELLPADDING="0" CELLSPACING="0" BORDER=0 ALIGN=CENTER> > <TR> > <TD ALIGN=RIGHT VLIGN=MIDDLE HEIGHT=27> > <INPUT TYPE="SUBMIT" NAME="Action" VALUE="계산하기"> > <%i = i -1 %> > <input type="Button" name="Action" value="계속 쇼핑하기" style="background-color:lime;" onclick="location.href=('../product/commoditylist.asp?firstcode=<%'=Basket(constfirstcode,i)%>&secondcode=<%'=Basket(constsecondcode,i)%>&thirdcode=<%'=Basket(constthirdcode,i)%>');"> > > </TD> > </TR> > </TABLE>---> > <table width="615" border="0" cellspacing="0" cellpadding="0"> > <tr> > <td align="right"> > <INPUT type="Image" src="images/calbutton1.gif" border=0 onclick="location.href=('shoppinglogin.asp');"></td> > <td > </td> > <td ><input type="image" src="images/calbutton2.gif" border=0 onclick="<%If Request("search") = "yes" Then%>window.history.back()<%ElseIf Basket(constfirstcode,iCount) = "pb" Then%>location.href=('../product/third_book_list.asp?firstcode=<%=Request("firstcode")%>&secondcode=<%=Request("secondcode")%>&thirdcode=<%=Request("thirdcode")%>');<%Else%>location.href=('../product/commoditylist.asp?firstcode=<%=Request("firstcode")%>&secondcode=<%=Request("secondcode")%>&thirdcode=<%=Request("thirdcode")%>');<%End If%>"></td> > </tr> > > </table> > </TD> > </TR> > </TABLE> > </TD> > </TR> > </TABLE> > <BR> > </BODY> > </HTML> > <script> > <!-- > <%For j = 1 To i %> > function Confirm() > { > if (document.forms[0].Quantity<%=j%>.value == "" \|\| IsNumeric(document.forms[0].Quantity<%=j%>.value) == false) { > alert("정확한 수량을 입력하세요"); > document.forms[0].Quantity<%=j%>.focus(); > return false; > } > document.forms[0].submit(); > return true; > } > <%Next%> > //--> > </script> > <script language="JAVASCRIPT"> > <!-- > function IsNumeric(checkStr) > { > //입력이 숫자인 것인지를 체크하는 함수 > for (i = 0;i < checkStr.length;i++) > { > ch = checkStr.charAt(i); > if (ch < "0" \|\| ch > "9") > return false; > } > return true; > } > //--> > </script> -----------------------------------------------------------

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *