<%@ LANGUAGE="VBSCRIPT" %> Rico-Table Detail <% Dim RicoClient set RicoClient = new LoadRicoClient RicoClient.SetRicoClientParentPath "../../ricoClient/" RicoClient.CheckQueryString ' just for demo RicoClient.CreateLinks set RicoClient = Nothing %> <% dim id,arColumns(100),i,columnlist,colspecs,colcnt id=trim(request.querystring("id")) if OpenDB then colcnt=oDB.GetColumnInfo(id,arColumns) for i=0 to colcnt-1 if not IsEmpty(columnlist) then columnlist=columnlist & "," colspecs=colspecs & "," end if if left(arColumns(i).ColType,3)<>"???" then columnlist=columnlist & arColumns(i).ColName else columnlist=columnlist & "'?'" end if colspecs=colspecs & "{Hdg:'" & arColumns(i).ColName & "'" if arColumns(i).ColType="DATETIME" then colspecs=colspecs & ",type:'datetime'" colspecs=colspecs & "}" next end if CloseApp session.contents(id)="select " & columnlist & " from [" & id & "] order by " & arColumns(0).ColName %>

<%=id%>