<%@ LANGUAGE="VBSCRIPT" %>
<% Response.CacheControl = "no-cache" %>
<% Response.AddHeader "Pragma", "no-cache" %>
<% Response.Expires = -1 %>
Rico LiveGrid-Shippers (editable)
<%
Dim RicoClient
set RicoClient = new LoadRicoClient
RicoClient.SetRicoClientParentPath "../../ricoClient/"
RicoClient.CheckQueryString ' just for demo
RicoClient.CreateLinks
set RicoClient = Nothing
%>
<%
'************************************************************************************************************
' LiveGrid-Edit Example
'************************************************************************************************************
' Matt Brown
'************************************************************************************************************
if OpenGridForm(empty,"shippers") then
if oForm.action="table" then
DisplayTable
else
DefineFields
end if
end if
CloseApp
sub DisplayTable()
response.write vbLf & "
"
response.write vbLf & "Base Library: "
response.write vbLf & "The data on this grid can be edited using pop-up forms. "
response.write vbLf & "Just click on a grid cell and then select Edit, Delete, or Add from the pop-up menu. "
response.write vbLf & "The Add and Edit forms are automatically generated by LiveGrid. "
response.write vbLf & "Updates are disabled on the database, so you will get an error message if you try to save."
response.write vbLf & "