FUNCTION GuestBrowser
LOCAL lcOrder, loConfig
lcOrderVal=TRIM(Request.Form("radOrder"))
IF EMPTY(lcOrderVal)
lcOrderVal="Company"
ENDIF
lcOrder="UPPER("+lcOrderVal+")"
SELECT custid, Name, company, location, entered, &lcOrder ;
FROM Guest ;
ORDER BY 6 ;
INTO CURSOR TQuery
LOCAL loConfig as HtmlDataGridConfig
loConfig = CREATEOBJECT("HtmlDataGridConfig")
loConfig.id = "tblGuests"
loConfig.Style = "margin-top: 15px;"
loConfig.DataKeyField = "custId"
loConfig.PageSize = 7
loConfig.AddColumn([HtmlLink("Guest_Book.wwd?id=" + TRIM(custId),Name)],"Name")
loConfig.AddColumn("Company","Company")
loConfig.AddColumn("Location","Location")
loColumn = CREATEOBJECT("HtmlDataGridColumn")
loColumn.Expression = "ShortDate(Entered,1)"
loColumn.HeaderText = "Entered"
loColumn.ItemAttributeString = [style="background-color: steelblue; color: white;"]
loColumn.Sortable = .T.
loConfig.AddColumn(loColumn)
PRIVATE poDataGridConfig
poDataGridConfig = loConfig
Response.ExpandTemplate(this.cHtmlPagePath + "wcscripts\guestbrowser.wc")
IF USED("Guest")
USE IN Guest
ENDIF
ENDFUNC