<%@ codepage="874" %>
<%
sqlmem ="select * from member where member_id like '"&session("member_id")&"' "
set rsmem =server.CreateObject("ADODB.recordset")
rsmem.open sqlmem,Conn,1,3
if not rsmem.BOF and not rsmem.EOF then
'Pdelivery พนักงานจัดส่ง
'Pdelivery2 พัสดุไปรษณีย์ EMS
daddress1=rsmem("address")&" "&rsmem("province")
daddress2=rsmem("address2")&" "&rsmem("province2")
if request("address") <> "" then
Session("st_delivery") =request("address")
end if
if Session("st_delivery") ="" then
Session("st_delivery") ="address1"
end if
if Session("st_delivery")="address1" then
if rsmem("province") ="กรุงเทพมหานคร" then
st_shop="y"
if rsmem("bkk_zone") ="in" then
delivery_price=80
else
delivery_price=60
end if
else
st_shop="n"
end if
else
if rsmem("province2") ="กรุงเทพมหานคร" then
st_shop="y"
if rsmem("bkk_zone2") ="in" then
delivery_price=80
else
delivery_price=60
end if
else
st_shop="n"
end if
end if
%>
สยามอินเตอร์มาร์ท ดอทคอม : ร้านค้าออนไลน์ สำหรับคนรุ่นใหม่, สินค้าออนไลน์ แว่นตา, คอนแทคเลนส์, นาฬิกาข้อมือ, โทรศัพท์มือถือ, ซิมการ์ด, กล้องดิจิตอล, คอมพิวเตอร์, บริการ ล้าง อัด ภาพสี ออนไลน์ มาตรฐาน โกดัก เอ็กซเพรส
