<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Option Explicit%> <%=Title%> <%Response.Charset="utf-8"%>

ศูนย์จำหน่ายเครื่องชั่งออนไลน์

บริษัท แกรนด์ โพรไลน์ มาร์เก็ตติ้ง จำกัด จำหน่ายเครื่องชั่งราคาถูกได้มาตรฐาน

โทร 0-2322-6656 , 0-2322-6767-8
คุณภาพ ความเที่ยงตรงคือบริการของเรา บริการส่งสินค้าทั่วประเทศ


<% sSql = "SELECT p.PID, c.CatName,p.PName, p.PPrice, p.image1,p.PDescriptionS,b.brand_name,p.product_pdf" sSql = sSql & " FROM tbl_Cat c,tbl_Product p,tbl_brand b WHERE b.brand_id = p.brand_id AND C.CatID = p.CatID AND p.P_new=1" sSql = sSql & " ORDER BY p.PID DESC" OpenDb() OpenRs(sSql) If Not Rs.Eof Then ArrData = Rs.Getrows() RecCount = Ubound(ArrData,2)+1 Else RecCount = 0 End if CloseRs() CloseDb() If recCount > 0 Then %> <% Dim row,numTD Dim iLoop,kLoop Dim allData Dim column Dim gg gg = 0 allData = recCount*2 'จำนวนข้อมูล column = 4 'จำนวน หลัก row = 0 numTD = 0 If allData mod column > 0 Then row = (allData\column)+1 Else row = allData\column End if Response.Write "" For iLoop = 1 To row If iLoop mod 2 = 0 then Response.Write "" Else Response.Write "" End if For kLoop = 1 To column numTD = numTD+1 If numTd mod 2 = 0 Then Response.Write "" Next Response.Write "" Next Response.Write "
" Else If gg mod 2 = 0 and numTd > 1 then Response.write "" Else Response.write "" End if End if If numTD > allData Then Response.wRite " " Else If numTd mod 2 = 0 Then Response.Write "ชื่อสินค้า : "& arrData(2,gg) & "
" Response.Write "หมวดหมู่ : "& arrData(1,gg) & "
" Response.Write "ยี่ห้อ : "& arrData(6,gg) & "
" Response.Write "รายละเอียด :
" IF arrData(5,gg) <> "" Then Response.Write Replace(arrData(5,gg),vbcrlf,"
") & "
" Else Response.Write "
" End if If IsNumeric(arrData(3,gg)) Then Response.Write "ราคา : "& FormatNumber(arrData(3,gg),0) & "

" Else Response.Write "ราคา : "& arrData(3,gg) & "

" End if If arrData(7,gg) <> "" Then %> download pdf file Download pdf file <% End if Else gg = (numTd-1)/2 Response.Write "" Response.Write DisplayImages(PathImgProduct & arrData(0,gg) & "\" & arrData(4,gg),75,75,arrData(2,gg),"img_box") Response.Write "

" Response.Write "
" End if End if Response.Write "
" %>
<% End if%> <% sSql = "SELECT p.PID, c.CatName,p.PName, p.PPrice, p.image1,p.PDescriptionS,b.brand_name,p.product_pdf" sSql = sSql & " FROM tbl_Cat c,tbl_Product p,tbl_brand b WHERE b.brand_id=p.brand_id AND C.CatID = p.CatID AND p.P_recom=1" sSql = sSql & " ORDER BY p.PID DESC" OpenDb() OpenRs(sSql) If Not Rs.Eof Then ArrData = Rs.Getrows() RecCount = Ubound(ArrData,2)+1 Else RecCount = 0 End if CloseRs() CloseDb() If recCount > 0 Then %> <% gg = 0 allData = recCount*2 'จำนวนข้อมูล column = 4 'จำนวน หลัก row = 0 numTD = 0 If allData mod column > 0 Then row = (allData\column)+1 Else row = allData\column End if Response.Write "" For iLoop = 1 To row If iLoop mod 2 = 0 then Response.Write "" Else Response.Write "" End if For kLoop = 1 To column numTD = numTD+1 If numTd mod 2 = 0 Then Response.Write "" Next Response.Write "" Next Response.Write "
" Else If gg mod 2 = 0 and numTd > 1 then Response.write "" Else Response.write "" End if End if If numTD > allData Then Response.wRite " " Else If numTd mod 2 = 0 Then Response.Write "ชื่อสินค้า : "& arrData(2,gg) & "
" Response.Write "หมวดหมู่ : "& arrData(1,gg) & "
" Response.Write "ยี่ห้อ : "& arrData(6,gg) & "
" Response.Write "รายละเอียด :
" IF arrData(5,gg) <> "" Then Response.Write Replace(arrData(5,gg),vbcrlf,"
") & "
" Else Response.Write "
" End if If IsNumeric(arrData(3,gg)) Then Response.Write "ราคา : "& FormatNumber(arrData(3,gg),0) & "

" Else Response.Write "ราคา : "& arrData(3,gg) & "

" End if If arrData(7,gg) <> "" Then %> download pdf file Download pdf file <% End if Else gg = (numTd-1)/2 Response.Write "" Response.Write DisplayImages(PathImgProduct & arrData(0,gg) & "\" & arrData(4,gg),75,75,arrData(2,gg),"img_box") Response.Write "

" Response.Write "
" End if End if Response.Write "
" %>
<% End if%>
ชื่อสินค้า/รหัสสินค้า
สินค้าทุกชิ้นไม่รวมภาษีมูลค่าเพิ่ม
User online จำนวนคนออนไลน์ <%=FormatNumber(Application("User"),0)%> คน
User visitor จำนวนผู้เข้าชมทั้งสิ้น
 Map