<% mysql = "select * from config" rs.open mysql,con,1,3,1 if rs.recordcount > 0 then Do while not rs.EOF MenuColor=rs.fields("MenuColor") MenuFontColor=rs.fields("MenuFontColor") MenuMouseOver=rs.fields("MenuMouseOver") TitleBarColor=rs.fields("TitleBarColor") FontBarColor=rs.fields("FontBarColor") MyLogo=rs.fields("MyLogo") BgHeader=rs.fields("BgHeader") BgBody=rs.fields("BgBody") BgLeft=rs.fields("BgLeft") BGCopyright=rs.fields("BGCopyright") copyright=rs.fields("copyright") title=rs.fields("title") keywords=rs.fields("keywords") description=rs.fields("description") members=rs.fields("members") Dealer=rs.fields("Dealer") checkout=rs.fields("checkout") warranty=rs.fields("warranty") Delivery=rs.fields("Delivery") news_active=rs.fields("news_active") tipcomputer_active=rs.fields("tipcomputer_active") counter_active=rs.fields("counter_active") code=rs.fields("code") rs.movenext() loop end if rs.close cid = 0 vardate=Date varIP=session("varIP") pdate=session("date") pquant = Request.Form("quant") if Request.Form("pg") = "" then pageno= Request.QueryString ("pg") else pageno= Request.Form("pg") end if if Request.Form("select1") = "" then cat = Request.QueryString ("select1") else cat = Request.Form("select1") end if if Request.Form("proid") = "" then pid = Request.QueryString ("proid") else pid = Request.Form("proid") end if if Request.Form("submit") = "" then submit = Request.QueryString ("submit") else submit = Request.Form("submit") end if if Request.Form("txtSubCategoryID") = "" then subcate = Request.QueryString ("txtSubCategoryID") else subcate = Request.Form("txtSubCategoryID") end if if Request.Form ("keyswords") = "" then keyswords = Request.QueryString("keyswords") else keyswords = Request.Form("keyswords") end if %> <%'session("varIP")=Request.ServerVariables("REMOTE_ADDR")%> <%varIP=session("orderid")%> <%vardate = right(year(date),4)&"-"&right("0"&month(date),2)&"-"& right("0"&day(date),2)%> <% sql ="select * from product where trim(proid) = '"&trim(pid)&"'" rs.open sql,con,1,3,1 if rs.recordcount > 0 then pname = rs.fields("proname") pdesc = rs.fields("prodes") price = rs.fields("proprice1") xprice = rs.fields("proprice2") punit = rs.fields("prounit") ppict = rs.fields("propict") pcat = rs.fields("categoryid") comment = rs.fields("comment") clip = rs.fields("clip") end if rs.close %> <%=pname%>
<% if submit = "Detail" then %>
<%if trim(ppict) <> "" then%> <%end if%> <%if xprice <> "0" then%> <%else%> <%end if%>

<%=pname%>

<%=pname%> <% if clip <> "" then %> <%=pname%> <%end if%>

<%=Label(58)%> :
<%=pid%>
<%=Label(4)%> :
<%=pname%>
<%=Label(10)%> :
<%=replace(trim(pdesc),Chr(10),"
")%>


(จัดส่งสินค้าภายใน 1 วันทำการ หลังจากได้รับข้อมูลการชำระเงิน)

ติดต่อสอบถามข้อมูลเพิ่มที่ 098-1010-500, 02-968-3300
Email : info@filtersupply.in.th
Line ID : filtersupply


<%=Label(5)%> :
<%=price%> <%=Label(75)%>
<%=Label(61)%> :
<% Response.Write(FormatNumber(xprice))%>  <%=Label(75)%>
<%=Label(5)%> :
<% Response.Write(FormatNumber(price))%>  <%=Label(75)%>
<%=Label(6)%> :
<%=punit%>
<%=Label(11)%> :
(คลิ๊กที่ตะกร้าสินค้า)

<% else if IsNumeric(pquant) = False then pquant = 1 end if if pquant = "" then pquant = 1 else if pquant < 1 then pquant = 1 end if end if %> <% Sql = "Select * from basket where trim(ip) ='"&trim(varIP)&"' and trim(proid) = '"&trim(pid)&"'" rs.Open Sql,con,1,3,1 if rs.RecordCount > 0 then strInsert ="update basket set quantity = quantity + "&pquant&" where trim(ip) ='"&trim(varIP)&"' and trim(proid) = '"&trim(pid)&"'" con.Execute strinsert else if xprice <> "0" then strInsert ="Insert Into basket(ip,proid,categoryid,quantity,price,tdate) values('"&varIP&"','"&pid&"','"&pcat&"',"&pquant&","&xprice&",'"&vardate&"')" con.Execute strinsert else strInsert ="Insert Into basket(ip,proid,categoryid,quantity,price,tdate) values('"&varIP&"','"&pid&"','"&pcat&"',"&pquant&","&price&",'"&vardate&"')" con.Execute strinsert end if end if chkq = instr(Request.ServerVariables ("HTTP_REFERER"), "?") if chkq = 0 then Response.Redirect Request.ServerVariables ("HTTP_REFERER")&"?txtSubCategoryID="&subcate&"&cat=pg="&pageno&"&select1="&cat&"&keyswords="&keyswords else Response.Redirect Request.ServerVariables ("HTTP_REFERER") '&"&txtSubCategoryID="&subcate&"&pg="&pageno end if end if %>
<% if comment <> "" then %> สินค้าที่เกี่ยวข้อง
<%=comment%>

<% end if %>