<% Dim AdoCon Dim RsLOG Dim SQLEN set AdoCon = server.createobject("ADODB.CONNECTION") set RsLOG = server.createobject("ADODB.RECORDSET") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") SQLEN ="select projectID,property_name from project_details order by property_name" response.write SQLEN 'response.end RsLOG.Open SQLEN, AdoCon,3,3 %> New Page 1