<%
dim id1
'boardid=request.form("BoardID")
ID1=cint(request.form("ID"))
id=trim(request("id"))
if ID1<>"" then
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("dataasdfsd3fvdfsdfdsfd787fsdfsdsdgfsdg/7dataasdfsd3fvdfsdfdsfd787fsdfsdsdgfsdg.mdb")
conn.execute("UPDATE Dv_Topic SET hits=hits+1 WHERE TopicID="&ID&"")
conn.close
set conn=nothing
Response.Write id 
else
Response.Write id1 
end if
%>
