% 'er=Request.Cookies("er") 'IF err="" then err=empty '建立資料庫連結物件 ' Set conobject = Server.CreateObject("ADODB.Connection") ' DBPath = Server.MapPath("pz.mdb") '連結資料庫 ' conobject.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&DBPath '建立資料庫存取物件 ' Set RS=Server.CreateObject("ADODB.Recordset") '打開資料表 ' RS.Open "Select * from pz",conobject,1,1 'response.write "good" 'Rs.MoveNext 'VoteButton="yes" 'End IF %>