% dim i set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath(".\database\upld.mdb") set rs2 = Server.CreateObject("ADODB.recordset") 'rs2.Open "select distinct(TYPE) from Facilitiy ", conn rs2.Open "SELECT TYPE,NAME,DESCRIPTION FROM FACILITIY GROUP BY DESCRIPTION,TYPE,NAME", conn %>
|
|||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||