%
pid=Request.QueryString("pid")
if pid<>"" then
sql = "select * from Hg_Products where id="& pid &""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
title=rs("name")
content=rs("Productinfo")
set rs=nothing
else
sql = "select * from Hg_News where Newsid="&Request.QueryString("id") &""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
title=rs("title")
content=rs("content")
set rs=nothing
end if
%>