<%
dim DSNpath
DSNpath="f:\dbase\base.mdb"
set conn = server.createobject("ADODB.connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open DSNpath
sql="select hit as mx from dansktagrens"
set rs=conn.execute(sql)
newhit=int(rs("mx"))+1
sql2="update dansktagrens set hit="&newhit
conn.execute(sql2)
%>
Dansk tagrens
<![CDATA[Tagrensning og tagmaling]]>