<%
dim sql
dim rs
dim rstype
dim typesql
dim typeid,typename,classname,classid,Nclassname,Nclassid
dim title
set rs=server.createobject("adodb.recordset")
sql="update article set hits=hits+1 where articleID="&request("id")
rs.open sql,conn,1,3
sql="select Aclass.class,article.title,article.classid from article,Aclass where article.classid=Aclass.classid and article.articleID="&request("id")
rs.open sql,conn,1,1
if not rs.eof then
title=rs("title")
classid=rs("classid")
' Nclassid=rs("Nclassid")
classname=rs("class")
' Nclassname=rs("Nclass")
end if
rs.close
%>
