<%@ LANGUAGE="VBSCRIPT" %>
<% Response.CacheControl = "no-cache" %>
<% Response.AddHeader "Pragma", "no-cache" %>
<% Response.Expires = -1 %>
Rico LiveGrid-Shippers (editable)
<%
'************************************************************************************************************
' 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 "
"
response.write "This example demonstrates how database records can be updated via AJAX. "
response.write "Double-click on a row to see the pop-up menu, then select add, edit, or delete. "
response.write "As shipped with the Rico distribution, the ASP LiveGrid examples use a MS Access database. "
response.write "This database cannot be updated from the web; therefore, form save operations will fail "
response.write "unless you change to another database."
response.write "
"
response.write "
Shippers Table
"
DefineFields
'response.write "
"
end sub
sub DefineFields()
oForm.AddEntryFieldW "ShipperID", "ID", "B", "",50
oForm.AddEntryFieldW "CompanyName", "Company Name", "B", "", 150
oForm.ConfirmDeleteColumn
oForm.SortAsc
oForm.AddEntryFieldW "Phone", "Phone Number", "B", "", 150
oForm.DisplayPage
end sub
%>