|
|
 |
|
noname / 2000-08-30 / 오후 7:40:41 / 211.59.68.244
조회수 : 132
|
| [질문] 부탁드립니다.
|
에러메시지....
Microsoft VBScript 런타임 오류 error '800a000d'
형식이 일치하지 않습니다: 'Basket'
/hosteng/shopping/shopping.asp, line 90
--------------------------------------------------
이 부문이 소스입니다.
좀 부탁드립니다.
<%@ LANGUAGE="VBSCRIPT" %>
<% response.buffer= true%>
상품 주문 상세정보
<%
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(" ")
End If
%>
<%=session("id") %>회원님의 Shopping Cart 내용은 아래와 같습니다.
|
|
|
|
|