|
|  |
[04/07/2007]
มีสินค้าใหม่ 250
จาก 5,000 รายการ
[New Arrival Product
250 from 5,000
items]
มีบริการพิเศษ รับปัดทององค์พ่อจตุคามฯ และพระเครื่องนะคะ
[เลือกกลุ่มสินค้า
- Product Group] <%
Dim pprop,pprog,pprop2,pprog2,newp,newg,newp2,newg2,salep,saleg,sql
pprop="50325"
pprog="50"
pprop2="33752"
pprog2="3"
newp="20440"
newg="25"
newp2="72586"
newg2="76"
salep="20026"
saleg="21"
'create recordset to show database categories
Dim Conn, rsCatalog,catid
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
Set rsCatalog = Conn.Execute("SELECT * FROM catalogs")
While Not rsCatalog.EOF
catid=len(rsCatalog("catalogID"))
if catid=1 then
%>
<%= rsCatalog("catalogName") %>
<%else%>
&strCatalog_NAME=<%
Response.Write Server.URLEncode(rsCatalog("catalogName"))%>"> <%= rsCatalog("catalogName") %>
<%
end if
rsCatalog.MoveNext
Wend
rsCatalog.Close
Set rsCatalog = Nothing
%> |
|
|
สินค้า
โปรโมชั่น [Promotion]
<%
'This creates a recordset to display featured product(s);
'change productID number in SQL SELECT statement to display another product and
'synchonize with the rsCategories recordset (see below)
Dim rsProducts
sql="SELECT Impsmall, productDesc,ProductPrice FROM products WHERE productID="&pprop
Set rsProducts = Conn.Execute(sql)
While Not rsProducts.EOF
%>  " border="1"><%
Response.Write rsProducts("productDesc") %>
ราคาสินค้า/Price <%=formatNumber(rsProducts("productprice"),0)%>
บาท(฿)
<%
rsProducts.MoveNext
Wend
rsProducts.Close
Set rsProducts = Nothing
%>
<%
'This creates another recordset to display category for GO button.
'You must synchronize the SQL select catalogID number with the featured product productID number.
'For example, the productID "5" referenced above is in the catalogID "7"
'You must also change the "a href" tag to point to the appropriate page by entering the
'appropriate catalogID number and NAME
Dim rsCategories
sql="SELECT catalogName FROM catalogs WHERE catalogID='"&pprog&"'"
Set rsCategories = Conn.Execute(sql)
While Not rsCategories.EOF
%>
Group =>
<% Response.Write rsCategories("catalogName") %>
ดูสินค้าในหมวดนี้ 
<%
rsCategories.MoveNext
Wend
rsCategories.Close
Set rsCategories = Nothing
%>
<%
'This creates a recordset to display featured product(s);
'change productID number in SQL SELECT statement to display another product and
'synchonize with the rsCategories recordset (see below)
sql="SELECT Impsmall, productDesc,ProductPrice FROM products WHERE productID="&pprop2
Set rsProducts = Conn.Execute(sql)
While Not rsProducts.EOF
%>
" border="1"> <%
Response.Write rsProducts("productDesc") %>
ราคาสินค้า/Price <%=formatNumber(rsProducts("productprice"),0)%>
บาท(฿)
<%
rsProducts.MoveNext
Wend
rsProducts.Close
Set rsProducts = Nothing
%>
<%
'This creates another recordset to display category for GO button.
'You must synchronize the SQL select catalogID number with the featured product productID number.
'For example, the productID "5" referenced above is in the catalogID "7"
'You must also change the "a href" tag to point to the appropriate page by entering the
'appropriate catalogID number and NAME
sql="SELECT catalogName FROM catalogs WHERE catalogID='"&pprog2&"'"
Set rsCategories = Conn.Execute(sql)
While Not rsCategories.EOF
%>
Group =>
<% Response.Write rsCategories("catalogName") %>
ดูสินค้าในหมวดนี้
<%
rsCategories.MoveNext
Wend
rsCategories.Close
Set rsCategories = Nothing
%>
|
|
สินค้า
มาใหม่ [New Arrival]
<%
'This creates a recordset to display featured product(s);
'change productID number in SQL SELECT statement to display another product and
'synchonize with the rsCategories recordset (see below)
Dim rsProduct2s
sql="SELECT Impsmall, productDesc,productPrice FROM products WHERE productID ="&newp
Set rsProduct2s = Conn.Execute(sql)
While Not rsProduct2s.EOF
%>
 " border="1">
<%
Response.Write rsProduct2s("productDesc") %>
ราคาสินค้า/Price <%= formatNumber(rsProduct2s("productPrice"),0)%>
บาท(฿)
<%
Response.Write rsProduct2s("productDesc") %><%
rsProduct2s.MoveNext
Wend
rsProduct2s.Close
Set rsProduct2s = Nothing
%> <%
'This creates another recordset to display category for GO button.
'You must synchronize the SQL select catalogID number with the featured product productID number.
'For example, the productID "5" referenced above is in the catalogID "2"
'You must also change the "a href" tag to point to the appropriate page by entering the
'appropriate catalogID number and NAME
Dim rsCategorie2s
sql="SELECT catalogName FROM catalogs WHERE catalogID ='"&newg&"'"
Set rsCategorie2s = Conn.Execute(sql)
While Not rsCategorie2s.EOF
%> Group =>
<% Response.Write rsCategorie2s("catalogName") %>
ดูสินค้าในหมวดนี้
<%
rsCategorie2s.MoveNext
Wend
rsCategorie2s.Close
Set rsCategorie2s = Nothing
%>
<%
'This creates a recordset to display featured product(s);
'change productID number in SQL SELECT statement to display another product and
'synchonize with the rsCategories recordset (see below)
sql="SELECT Impsmall, productDesc,productPrice FROM products WHERE productID ="&newp2
Set rsProduct2s = Conn.Execute(sql)
While Not rsProduct2s.EOF
%>
" border="1">
<%
Response.Write rsProduct2s("productDesc") %>
ราคาสินค้า/Price <%= formatNumber(rsProduct2s("productPrice"),0)%>
บาท(฿)
<%
rsProduct2s.MoveNext
Wend
rsProduct2s.Close
Set rsProduct2s = Nothing
%>
<%
'This creates another recordset to display category for GO button.
'You must synchronize the SQL select catalogID number with the featured product productID number.
'For example, the productID "5" referenced above is in the catalogID "2"
'You must also change the "a href" tag to point to the appropriate page by entering the
'appropriate catalogID number and NAME
sql="SELECT catalogName FROM catalogs WHERE catalogID ='"&newg2&"'"
Set rsCategorie2s = Conn.Execute(sql)
While Not rsCategorie2s.EOF
%>
Group =>
<% Response.Write rsCategorie2s("catalogName") %>
ดูสินค้าในหมวดนี้
<%
rsCategorie2s.MoveNext
Wend
rsCategorie2s.Close
Set rsCategorie2s = Nothing
%>
|
|
,
®All rights reserved.
เลขที่ผู้เสียภาษีอากร #2780410185 
มีบริการจัดส่งสินค้าให้ถึงมือท่าน ในเขต กรุงเทพฯ อัตราค่าบริการ : 
ธนาคารกรุงเทพ
ธนาคารกสิกรไทย 
ธนาคารกรุงไทย 
ธนาคารกรุงศรีอยุธยา
ธนาคารไทยพาณิชย์ 
ธนาคารทหารไทย