<% id = CInt(Request.QueryString("id")) Set conn = Server.CreateObject("ADODB.Connection") sql = "Select * From Product Where ProID="&id conn.Open MM_connect set rs = conn.Execute(sql) catid = rs("CatID") subcatid = rs("SubCatID") proname = rs("ProName") procompany = rs("ProCompany") proimages = rs("ProImageS") proimagel = rs("ProImageL") proprice = rs("ProPrice") prodiscount = rs("ProDiscount") prodescription = rs("ProDescription") profeature = rs("ProFeature") prolink = rs("ProLink") rs.Close set rs = nothing sql = "Select CatName From Category Where CatID="&catid set rs = conn.Execute(sql) catname = rs("CatName") rs.Close set rs = nothing statuslink = ""&catname&"" If subcatid <> 0 Then sql = "Select SubCatName From SubCategory Where SubCatID="&subcatid set rs = conn.Execute(sql) subcatname = rs("SubCatName") rs.Close set rs = nothing statuslink = statuslink & " > "&subcatname&"" End If %> ITAG Shopping Cart


Home > <%=statuslink%>

<%=proname%>
<% If Trim(proimagel) <> "" Then Response.Write("คลิกเพื่อดูภาพขนาดใหญ่") Else Response.Write("") End If %>

<% If prodiscount = 0 Then Response.Write("ราคา: "&FormatNumber(proprice)&" "&rate) Else Response.Write("ราคา: "&FormatNumber(proprice)&" "&rate&"
") Response.Write("ราคาพิเศษ: "&FormatNumber(prodiscount)&" "&rate) End If Response.Write("

ผู้ผลิต:
"&procompany&"
") Response.Write("
รายละเอียด:
"&prodescription&"
") If Len(Trim(profeature)) > 10 Then Response.Write("
คุณสมบัติพิเศษ:
"&profeature&"
") End If If Len(Trim(prolink)) > 10 Then Response.Write("
เว็บไซต์ที่เกี่ยวข้อง:
"&prolink&"
") End If %>



<% conn.Close set conn = nothing %>