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
%>