% AgentID= "" AgentName= "" unitcode= "" 'ORIGIN = "PART" ORIGIN = "FUBON_1" p0open="N" RID="105L2" Set obj = Server.CreateObject("ADODBIO.clsADODBIO") dbServer =Application("sssDBServer") dbName = Application("sssAction") '統計各入口人數 ori_sql="Select ANA from LLORI where ORIGIN = '"& ORIGIN &"'" ori_rtn = obj.Query(dbServer, dbName, ori_sql, 0, 0, ori_rst, ori_rcnt, ori_rerr) if ori_rcnt>0 then ANA=trim("" & ori_rst(0,0)) end if if ori_rcnt>0 then ori_usql= " Update LLORI SET ANA = '" & ANA+1 &"' where ORIGIN = '"& ORIGIN &"'" ori_urtn = obj.Update(dbServer, dbName, ori_usql,ori_urcnt,errMsg) end if %>