<%
Dim objDBConn, strDSNless, objRS
set objDBConn = Server.CreateObject("ADODB.Connection")
strDSNless = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &_
Server.Mappath("course.mdb")
objDBConn.Open strDSNless
strSQL="select * from hw where ID="& request.querystring("id") &" "
set objRS = objDBConn.Execute(strSQL)
strSQL=" update hw set vi="& objRS("vi")+1 &" where ID="& request.querystring("id") &""
set objRS = objDBConn.Execute(strSQL)
strSQL="select * from hw where ID="& request.querystring("id") &" "
set objRS = objDBConn.Execute(strSQL)
%>