<%
dim rs
dim strarticleid
strarticleid=request.QueryString("articleguid")
set rs=oConn.execute("select * from article where articleid='" &strarticleid & "'")
if not rs.eof then
%>
苏州房产信息网
<%
dim strArticleType
dim strArticleLocation
strArticleType=request.QueryString("articletype")
select case strArticleType
case "111"
strArticleLocation="政策法规"
case "1"
strArticleLocation="本地新闻"
case "0"
strArticleLocation="本局动态"
case "2"
strArticleLocation="行业新闻"
case "5"
strArticleLocation="政策解答"
case "6"
strArticleLocation="公告通知"
case "7"
strArticleLocation="办事指南"
case "3"
strArticleLocation="专家评论"
case else
end select
%>