<%
db="/Database/#data.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>
<%
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from news where newsid=42"
rs2.open sql2,conn,1,3
lan=rs2("lan")
if rs2.bof and rs2.eof then
rs2.close()
else
rs2("click")= rs2("click")+1
lan=rs2("lan")
rs2.update
end if
%>
<%=rs2("newsname")%>|News|Qingdao Best Glass Co., Ltd
