<%@ LANGUAGE="VBSCRIPT" %>
<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("data/news.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
sql="select * from news where ID= " &request.querystring("recno")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,0,1
if not rs.eof and not rs.bof then
newstitle=rs("title")
%>
<%=newstitle%>
<%conn.execute("Update news Set click=click+1 Where ID=" & request.querystring("recno"))
rs.close
end if
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13)," ")," "," ")
end function
%>