<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Function select_picName(nProductID,nimage_type)
set ress=conn.execute("select product_imgurl from product_pics where product_id=" & nProductID & " and image_Type=" & nImage_type&" order by I_OrderID desc,imageID DESC")
'??????
if not ress.eof then
select_picName=ress("product_imgurl")
else
select_picName="UploadFiles/noPic.jpg"
end if
ress.close
set ress=nothing
End Function
dim rr,rs
set rr=server.CreateObject("adodb.recordset")
set rs=server.CreateObject("adodb.recordset")
tag=trim(request("tag"))
dim class_id
class_id=trim(request("class_Id"))
P_ID=trim(request("P_ID"))
if P_ID<>"" then
sql="select * from products where product_id="&P_ID
rs.open sql,conn,1,1
if not rs.eof then
product_name_en=rs("product_name_en")
if product_name_en="0" then product_name_en=" "
product_description_en=rs("product_description_en")
if product_description_en="0" then product_description_en="No details."
product_model=rs("product_model")
if product_model="0" then product_model=" "
product_spec=rs("product_spec")
if product_spec="0" then product_spec=" "
Addtional_Field0_char=rs("Addtional_Field0_char")
if Addtional_Field0_char="0" then Addtional_Field0_char=" "
end if
end if
rs.close
%>
GAIN BELONG TRADING [HK]CO.,LIMITED
