<% On Error Resume Next %> <% if (Request.ServerVariables("QUERY_STRING") = "") then %>

Boston

Washington

Berkeley

Chicago

Dallas

Mnchen

New York

Paris

 <% else %> <% ADOFOX = FALSE table = Request.QueryString("table") column = Request.QueryString("column") sql = "select " & column & " from " & table & "" if ADOFOX then Set r = Server.CreateObject("ADOFX.RecordSet") else Set r = Server.CreateObject("ADO.RecordSet") end if r.Open sql, "data source=DenTest;user id=sa;password=",2 set r = c.OpenResultset(sql) While(NOT r.EOF) Response.Write("

") Response.Write(r("City")) r.MoveNext Response.Write("

") Wend r.close c.close %> <% end if %>