<%@LANGUAGE="VBSCRIPT"%> <% Set con = Server.CreateObject("ADODB.Connection") con.Open "DBQ=" & Server.MapPath("counter.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" SQL = "SELECT * FROM counter" SET RS = con.Execute(SQL) RS.MoveFirst If session("count") = empty then count = RS("counts") + 1 Else count = Rs("counts") End If session("count") = count SQL = "UPDATE counter SET counts = '"&count&"' " SET RS = con.Execute(SQL) con.CLOSE %>

１、清理工程：抽水肥、污水池、油渣、排水溝、明溝、暗溝、陰井、箱涵 ２、疏通工程：排水管、馬桶、水泥管、廚房、排糞管疏通 ３、水電服務：自動控制、污水馬達安裝、衛浴設備 ４、消毒：病媒蚊防治（白蟻、跳蚤、老鼠）、環境消毒、除蟲 ５、清潔：水池水塔清洗、 ６、修繕：新舊化糞池施工及修繕 ７、化糞池臭味改善 ８、服務時間：24小時 ９、廢棄物清除字號：北市廢丙清肥字0057號 　　病媒防治許可證：環藥病媒字第六三~一一五號 　 有限責任台北市原住民清潔環保工程勞動合作社