<%@ Language=VBScript %> <%=langLookup%> <% If not DBAE_DEBUG Then On Error Resume Next dim table, field, backId, dba, pagesize, page, rec, f, i, sClass table = Request("table").Item field = Request("field").Item backId = Request("id").Item pagesize = 10 page = 1 if IsNumeric(Request("pagesize").Item) then pagesize = CInt(Request("pagesize").Item) if IsNumeric(Request("page").Item) then page = CInt(Request("page").Item) if pagesize < 1 then pagesize = StpProfile.GetProfileNumber("settings", "page_size", 10) if page < 1 then page = 1 If Len(table) = 0 or Len(field) = 0 Then Response.Write langNoLookupValues Else set dba = new DBAdmin dba.Connect Session(DBA_cfgSessionDBPathName), Session(DBA_cfgSessionDBPassword) set rec = dba.Tables.Item(table).GetRawData(pagesize, "", True) if rec.RecordCount = 0 Then Response.Write langNoLookupValues Else rec.CacheSize = pagesize rec.PageSize = pagesize rec.AbsolutePage = page call ShowValues() End If rec.close set rec = Nothing set dba = Nothing End If %> <% Sub ShowValues Response.Write "

" & langLookupAlt & "

" &_ getPagingControl(rec.RecordCount, page, pagesize, "&table=" & Server.URLEncode(table) & "&field=" & Server.URLEncode(field) & "&id=" & backId) &_ "" for each f in rec.Fields Response.Write "" next Response.Write "" i = 0 do while not rec.EOF and i < pagesize if sClass = "oddrow" then sClass = "evenrow" else sClass = "oddrow" Response.Write "" &_ "" for each f in rec.Fields If f.Name <> field Then Response.Write "" Next Response.Write "" & vbCrLf call rec.MoveNext() i = i + 1 loop Response.Write "
" & f.Name & "
" & rec(field).Value & "" & Left(f.Value & " ", 20) & "
" &_ getPagingControl(rec.RecordCount, page, pagesize, "&table=" & Server.URLEncode(table) & "&field=" & Server.URLEncode(field) & "&id=" & backId) End Sub %>

<%=langClose%>