<% Dim AdoCon Dim RsEnq Dim SQLEN set AdoCon = server.createobject("ADODB.CONNECTION") set RsEnq = server.createobject("ADODB.RECORDSET") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") 'AdoCon.Open "dd" SQLEN = "select * from FreeHoldLocations" RsEnq.Open SQLEN, AdoCon,3,3 %> Add a location

<%do while not RsEnq.EOF%> <%RsEnq.movenext%> <%LOOP%>
Location Emirate Edit  
<%=RsEnq("LName")%>  "> ">Edit