<%
dim db:db="../../include/database/#anxinmall.mdb"
dim connStr:connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Set conn = Server.CreateObject("ADODB.Connection")

conn.Open connstr
set rs=server.createobject("adodb.recordset")
dim ID : ID = request.querystring("prodid")
rs.open "Select kucun from [anxinMall_prod] where prodid= "&ID,conn,1,3
%>
document.write("<%=rs("kucun")%>")
<%
rs.close
Set rs=Nothing
%>