<% function UpdUserWithLastLogin(ByRef pobjCon, ByVal pintUserID) dim strSQL strSQL = "UPDATE forumUsers SET logins=logins+1, lastlogin=" & strSQLCurrentDate & " WHERE ID=" & pintUserID pobjCon.execute strSQL end function %>