<% choice=request("c") order=request("order") response.write "
" %>

<% Set ObjCon=Server.CreateObject("ADODB.Connection") Set ObjRec=Server.CreateObject("ADODB.Recordset") ObjCon.Provider="MICROSOFT.JET.OLEDB.4.0" ObjCon.Open server.mappath("intranet.mdb") dim tsql if choice="" then tsql="select * from bookmaster" else 'tsql="select * from bookmaster order by " & choice & " desc" tsql="select * from bookmaster order by " & choice &" "& order end if ObjRec.open tsql,objCon,3,1 if not ObjRec.bof and not ObjRec.eof then %> <% for i = 0 to ObjRec.Fields.Count-1 %> <% if Order="Asc" then %> <% else %> <% end if %> <% Next %> <% ObjRec.MoveFirst %> <% While Not ObjRec.Eof %> <% for i = 0 to ObjRec.Fields.Count-1 %> <% Next %> <% ObjRec.MoveNext %> <% Wend %>

<% =ObjRec.Fields(i).Name %>	<% =ObjRec.Fields(i).Name %>
<% =ObjRec(i) %>

<% else %> No Records Found <% end if %>