% Function GetItemParameters(iItemID) Dim aParameters SQL="SELECT * FROM PriceProduct WHERE ProductID='" & iItemID & "'" 'ใช้ค่า ProductID เป็นตัวเรียก Set rs2 = conn.Execute(SQL) 'Set dictColor = Session("CColor") If rs2.EOF = False then varPname = rs2.Fields(2) 'ชื่อสินค้า varPPrice = rs2.Fields(4) ' ราคา varPProID=rs2.Fields(1) 'ProductID varPPicture=rs2.Fields(6) varPset=rs2.Fields(5) varPPcolor=rs2.Fields(3) aParameters = Array(varPProID,varPName, varPPrice,varPPicture,varPset,varPPcolor) GetItemParameters = aParameters rs2.close set rs2 =nothing End if End Function '--- establish access connection Const maxCart = 10 ' จำนวนสินค้าที่มีได้สูงสุดของอาเรย์ Const ProID = 1 ' กำหนดค่าให้ Dimension ที่ 2 Const Procount = 2 ' กำหนดค่าให้ Dimension ที่ 3 Const Procolor = 3 ' กำหนดค่าให้ Dimension ที่ 4 '============================================ Pdictcart = session("cart") Pdictcolor = session("Ccolor") '============================================ %> <% If session("ShopperID") = "" Then '??????????????????? session ??????? ????????????????????? 'Response.Redirect "login.htm" Response.Write "Time out. Please login again " Else Set Conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") 'Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\AdoP\database\Proweb.mdb") Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database\Proweb.mdb") sql = "Select max(OrderID) from Orders" rs.Open sql,conn, 1, 3 OrderID =rs.Fields(0) +1 rs.Close sql = "Select * From ShopperD Where ShopperID=" & session("ShopperID") 'Set rs = conn.Execute(sql) rs.Open sql, Conn, 1, 3 If rs.EOF then ' ??????????? ????????????????????????????? 'msgbox "We didn't find your personal information Please fill your personal again" Response.Redirect "Regform.htm" End If %>
<% rs.Close set rs=nothing conn.Close set conn =nothing End If %>