<% strSql = "select * from guest" rs.open strSql,db, 1 sbguest =rs(1) rs.Close sbguest = sbguest + 1 strsql ="update guest set sbguest ='"& sbguest &"'" rs.open strSql,db, 1 'rs.Close %>