|
|
|
|
|
|
|
|
|
|
<%
end sub
' display table with results
sub loopRs(rsData,nPageSize)
' Pagination:
dim iShadeTheDetail
dim iNumberOfRows
iNumberOfRows = 0
if isObject(rsData) then
' Pagination: UNTIL iNumberOfRows>=maxrecs
DO UNTIL rsData.eof OR iNumberOfRows>=nPageSize
' To insure that every other one is shaded
If iShadeTheDetail = 0 then
sShadeClass = "class=shade"
iShadeTheDetail = 1
Else
sShadeClass = ""
iShadeTheDetail = 0
End If
%>
onmouseover="rowRollover(<%=iNumberOfRows%>, 1);" onmouseout="rowRollover(<%=iNumberOfRows%>, 0);" id="tr_<%=iNumberOfRows%>">
|
<%
if IsBinaryField(rsData.Fields("ID")) then
Response.Write CreateImageControl(rsData, "ID")
else
Response.Write ProcessLargeText(GetData(rsData.Fields("ID"), ""))
end if
%>
|
<%
if IsBinaryField(rsData.Fields("DATE")) then
Response.Write CreateImageControl(rsData, "DATE")
else
Response.Write ProcessLargeText(GetData(rsData.Fields("DATE"), ""))
end if
%>
|
<%
if IsBinaryField(rsData.Fields("TIME")) then
Response.Write CreateImageControl(rsData, "TIME")
else
Response.Write ProcessLargeText(GetData(rsData.Fields("TIME"), ""))
end if
%>
|
<%
if IsBinaryField(rsData.Fields("PLACE")) then
Response.Write CreateImageControl(rsData, "PLACE")
else
Response.Write ProcessLargeText(GetData(rsData.Fields("PLACE"), ""))
end if
%>
|
<%
if IsBinaryField(rsData.Fields("Province")) then
Response.Write CreateImageControl(rsData, "Province")
else
Response.Write ProcessLargeText(GetData(rsData.Fields("Province"), ""))
end if
%>
|
<%
if IsBinaryField(rsData.Fields("TYPE")) then
Response.Write CreateImageControl(rsData, "TYPE")
else
Response.Write ProcessLargeText(GetData(rsData.Fields("TYPE"), ""))
end if
%>
|
<%
if IsBinaryField(rsData.Fields("EVALUATION")) then
Response.Write CreateImageControl(rsData, "EVALUATION")
else
Response.Write ProcessLargeText(GetData(rsData.Fields("EVALUATION"), ""))
end if
%>
|
<%
if IsBinaryField(rsData.Fields("SOURCE1")) then
Response.Write CreateImageControl(rsData, "SOURCE1")
else
Response.Write ProcessLargeText(GetData(rsData.Fields("SOURCE1"), ""))
end if
%>
|
 ">
|
<%
iNumberOfRows = iNumberOfRows + 1
rsData.movenext
Loop
end if
end sub
Sub CalculateOrderBy
if Request.Form("action")="OrderBy" then
strOrderBy = " order by " & AddWrappers(Request.Form("orderby"))
if Request.Form("SQL")<>"" then
nInd = InStr(1, Request.Form("SQL"),"order by ")
if nInd>0 then
if Left(Mid(Request.Form("SQL"),nInd+Len("order by ")),Len(AddWrappers(Request.Form("orderby")))) = AddWrappers(Request.Form("orderby")) _
and Right(Request.Form("SQL"),3) = "asc" then
strOrderBy = strOrderBy & " desc"
else
strOrderBy = strOrderBy & " asc"
end if
else
strOrderBy = strOrderBy & " asc"
end if
else
strOrderBy = strOrderBy & " asc"
end if
if right(strOrderBy,3)="asc" then
strOrderImage="up.gif"
else
strOrderImage="down.gif"
end if
else
strOrderBy = Request.Form("orderby")
if strOrderBy="" and Request.Form("SQL")="" then strOrderBy=gstrOrderBy
end if
End Sub
Function CheckSecurity(strValue, strAction)
if (cAdvSecurityMethod = ADVSECURITY_ALL and Session("AccessLevel")<>ACCESS_LEVEL_GUEST ) _
or Session("AccessLevel")=ACCESS_LEVEL_ADMIN or (strAction="Add" and Session("AccessLevel")<>ACCESS_LEVEL_GUEST) then
CheckSecurity = True
Exit Function
end if
if Session("AccessLevel")=ACCESS_LEVEL_GUEST then
CheckSecurity = False
Exit Function
end if
if cAdvSecurityMethod = ADVSECURITY_EDIT_OWN then
if RemoveWrappers(Session("OwnerID"))=CStr(strValue) then
CheckSecurity = True
else
CheckSecurity = False
end if
else
CheckSecurity = True
end if
End Function
Function CreateImageControl(rsData, sFieldName)
strImageWhere = " " & strKeyField & "=" & GetData(rsData.Fields(strKeyField), "")
if strKeyField2<>"" then _
strImageWhere = strImageWhere & " and " & strKeyField2 & "=" & GetData(rsData.Fields(strKeyField2), "")
if strKeyField3<>"" then _
strImageWhere = strImageWhere & " and " & strKeyField3 & "=" & GetData(rsData.Fields(strKeyField3), "")
CreateImageControl = "