<%@LANGUAGE="VBSCRIPT" CODEPAGE="949"%>
<%
Option Explicit
Response.Buffer=true
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
%>
<%
Dim sql,rs,cnn,i,list,nP,aCate
Dim pridx, prCont
pridx = request.QueryString("code")
if Len(nP)=0 then nP=1
sql = "select prCont from product_tbl where pridx="& pridx
set cnn = DBCon()
set rs = server.createobject("ADODB.RecordSet")
rs.open sql,cnn
if Not rs.EOF then
prCont = rs(0)
end if
rs.close
Dim p : p = Trim(request.QueryString("p"))%>