<%
If Session("UserID")="" then
Session("UserID")="Guest"
Session("AccessLevel")=ACCESS_LEVEL_GUEST
End If
%>
<%
' on error resume next
dbConnection=""
db_connect()
call ReportError
Set rs = server.CreateObject("ADODB.Recordset")
Set rss = server.CreateObject("ADODB.Recordset")
' process reqest data, fill session variables
if (Request.Form="" and Request.QueryString="") then
For Each key in Session.Contents
if left(key, len(strTableName)+1 ) = strTableName & "_" and _
InStr(Mid(key, len(strTableName)+2), "_" )<1 then
Session.Contents.Remove(key)
end if
Next
set strTableName_asearchnot = CreateObject("Scripting.Dictionary")
set strTableName_asearchopt = CreateObject("Scripting.Dictionary")
set strTableName_asearchfor = CreateObject("Scripting.Dictionary")
set strTableName_asearchfortype = CreateObject("Scripting.Dictionary")
set strTableName_asearchfor2 = CreateObject("Scripting.Dictionary")
set session(strTableName & "_asearchnot")= strTableName_asearchnot
set session(strTableName & "_asearchopt") = strTableName_asearchopt
set session(strTableName & "_asearchfor") = strTableName_asearchfor
set session(strTableName & "_asearchfor2") = strTableName_asearchfor2
set session(strTableName & "_asearchfortype") = strTableName_asearchfortype
end if
' before process list event
DoEvent "BeforeProcessList dbConnection"
if REQUEST("a")="showall" then
SESSION(strTableName & "_search")=0
elseif REQUEST("a")="search" then
SESSION(strTableName & "_searchfield")=postvalue("SearchField")
SESSION(strTableName & "_searchoption")=postvalue("SearchOption")
SESSION(strTableName & "_searchfor")=postvalue("SearchFor")
if postvalue("SearchFor")<>"" or postvalue("SearchOption")="Empty" then
SESSION(strTableName & "_search")=1
else
SESSION(strTableName & "_search")=0
end if
SESSION(strTableName & "_pagenumber")=1
elseif REQUEST("a")="advsearch" then
set strTableName_asearchnot = CreateObject("Scripting.Dictionary")
set strTableName_asearchopt = CreateObject("Scripting.Dictionary")
set strTableName_asearchfor = CreateObject("Scripting.Dictionary")
set strTableName_asearchfor2 = CreateObject("Scripting.Dictionary")
set strTableName_asearchfortype = CreateObject("Scripting.Dictionary")
tosearch=0
asearchfield = postvalue("asearchfield[]")
if not isarray(asearchfield) then
dim t
t=asearchfield
redim asearchfield(1)
asearchfield(0)=t
end if
SESSION(strTableName & "_asearchtype") = postvalue("type")
if SESSION(strTableName & "_asearchtype")="" then SESSION(strTableName & "_asearchtype")="and"
for field=0 to ubound(asearchfield)
gfield=asearchfield(field)
asopt=postvalue("asearchopt_" & GoodFieldName(asearchfield(field)))
value1=postvalue("value_" & GoodFieldName(asearchfield(field)))
if value1="" then value1=postvalue("value_" & GoodFieldName(asearchfield(field)) & "[]")
ttype=postvalue("type_" & GoodFieldName(asearchfield(field)))
value2=postvalue("value1_" & GoodFieldName(asearchfield(field)))
if value2="" then value2=postvalue("value_1" & GoodFieldName(asearchfield(field)) & "[]")
nnot=postvalue("not_" & GoodFieldName(asearchfield(field)))
if not SafeIsEmpty(value1) or asopt="Empty" then
tosearch=1
strTableName_asearchopt.Add gfield,asopt
if not isArray(value1) then
strTableName_asearchfor.Add gfield,value1
else
strTableName_asearchfor.Add gfield,combinevalues(value1)
end if
strTableName_asearchfortype.Add gfield,ttype
if not SafeIsEmpty(value2) then strTableName_asearchfor2.Add gfield,value2
strTableName_asearchnot.Add gfield,nnot
end if
next
set SESSION(strTableName & "_asearchnot")= strTableName_asearchnot
set SESSION(strTableName & "_asearchfortype")= strTableName_asearchfortype
set SESSION(strTableName & "_asearchopt") = strTableName_asearchopt
set SESSION(strTableName & "_asearchfor") = strTableName_asearchfor
set SESSION(strTableName & "_asearchfor2") = strTableName_asearchfor2
if tosearch<>0 then
SESSION(strTableName & "_search")=2
else
SESSION(strTableName & "_search")=0
end if
SESSION(strTableName & "_pagenumber")=1
end if
if REQUEST("orderby")<> "" then SESSION(strTableName & "_orderby")=REQUEST("orderby")
if REQUEST("pagesize")<>"" then
SESSION(strTableName & "_pagesize")=REQUEST("pagesize")
SESSION(strTableName & "_pagenumber")=1
end if
if REQUEST("goto")<>"" then SESSION(strTableName & "_pagenumber")=REQUEST("goto")
' process reqest data - end
includes=""
includes = includes & "" & vbCrLf
if useAJAX then
includes = includes & "" & vbCrLf
end if
includes = includes & "" & vbCrLf
includes = includes & "" & vbCrLf
if useAJAX then
includes = includes & "" & vbCrLf
includes = includes & "" & vbCrLf
end if
smarty.Add "includes",includes
smarty.Add "useAJAX",useAJAX
' process session variables
' order by
strOrderBy=""
order_ind=-1
smarty.Add "order_dir_Team__","a"
smarty.Add "order_dir_Coaches","a"
smarty.Add "order_dir_Wins","a"
smarty.Add "order_dir_Losses","a"
smarty.Add "order_dir_Ties","a"
smarty.Add "order_dir_Points","a"
if SESSION(strTableName & "_orderby")<> "" then
order_field=mid(SESSION(strTableName & "_orderby"),2)
order_dir=mid(SESSION(strTableName & "_orderby"),1,1)
order_ind=GetFieldIndex(order_field,"")
AddDict smarty,"order_dir_Team__","a"
if order_field="Team #" then
if order_dir="a" then
AddDict smarty,"order_dir_Team__","d"
img="up"
else
img="down"
end if
AddDict smarty,"order_image_Team__","![]()
"
end if
AddDict smarty,"order_dir_Coaches","a"
if order_field="Coaches" then
if order_dir="a" then
AddDict smarty,"order_dir_Coaches","d"
img="up"
else
img="down"
end if
AddDict smarty,"order_image_Coaches","![]()
"
end if
AddDict smarty,"order_dir_Wins","a"
if order_field="Wins" then
if order_dir="a" then
AddDict smarty,"order_dir_Wins","d"
img="up"
else
img="down"
end if
AddDict smarty,"order_image_Wins","![]()
"
end if
AddDict smarty,"order_dir_Losses","a"
if order_field="Losses" then
if order_dir="a" then
AddDict smarty,"order_dir_Losses","d"
img="up"
else
img="down"
end if
AddDict smarty,"order_image_Losses","![]()
"
end if
AddDict smarty,"order_dir_Ties","a"
if order_field="Ties" then
if order_dir="a" then
AddDict smarty,"order_dir_Ties","d"
img="up"
else
img="down"
end if
AddDict smarty,"order_image_Ties","![]()
"
end if
AddDict smarty,"order_dir_Points","a"
if order_field="Points" then
if order_dir="a" then
AddDict smarty,"order_dir_Points","d"
img="up"
else
img="down"
end if
AddDict smarty,"order_image_Points","![]()
"
end if
if order_ind<>"" then
if order_dir="a" then
strOrderBy="order by " & (order_ind) & " asc"
else
strOrderBy="order by " & (order_ind) & " desc"
end if
end if
end if
if strOrderBy="" then strOrderBy=gstrOrderBy
' page number
mypage=cint(SESSION(strTableName & "_pagenumber"))
if mypage=0 then mypage=1
' page size
PageSize=cint(SESSION(strTableName & "_pagesize"))
if PageSize=0 then PageSize=gPageSize
s=""
if PageSize=10 then s="selected"
smarty.Add "rpp10_selected",s
s=""
if PageSize=20 then s="selected"
smarty.Add "rpp20_selected",s
s=""
if PageSize=30 then s="selected"
smarty.Add "rpp30_selected",s
s=""
if PageSize=50 then s="selected"
smarty.Add "rpp50_selected",s
s=""
if PageSize=100 then s="selected"
smarty.Add "rpp100_selected",s
s=""
if PageSize=500 then s="selected"
smarty.Add "rpp500_selected",s
' delete record
set selected_recs = CreateObject("Scripting.Dictionary")
if request("mdelete[]").Count>0 then
for ind=1 to request("mdelete[]").Count
set keys = CreateObject("Scripting.Dictionary")
AddDict keys,"Team #",request("mdelete1[]").Item(request("mdelete[]").Item(ind))
AddDict keys,"Points",request("mdelete2[]").Item(request("mdelete[]").Item(ind))
AddDict selected_recs, ind, keys
next
elseif request("selection[]").Count>0 then
for ind=1 to request("selection[]").Count
set keys = CreateObject("Scripting.Dictionary")
arr = split(request("selection[]").Item(ind) ,"&")
if UBound(arr)-LBound(arr) = 2 - 1 then
AddDict keys,"Team #", HTMLDecode(arr(0))
AddDict keys,"Points", HTMLDecode(arr(1))
AddDict selected_recs, ind, keys
end if
next
end if
records_deleted=0
sr = selected_recs.Items
for ind=1 to selected_recs.Count
set keys = sr(ind-1)
where = KeyWhere(keys,"")
strSQL="delete from " & AddTableWrappers(strOriginalTableName) & " where " & where
retval=true
if retval then
LogInfo(strSQL)
dbConnection.Execute strSQL
records_deleted = records_deleted + 1
DoEvent "AfterDelete """ & replace(where,"""","""""") & """, avalues"
end if
next
if records_deleted>0 then
DoEvent "AfterMassDelete(records_deleted)"
end if
' make sql "select" string
'strSQL = gstrSQL
strWhereClause=""
' add search params
if SESSION(strTableName & "_search")=1 then
' regular search
strSearchFor=trim(SESSION(strTableName & "_searchfor"))
strSearchOption=trim(SESSION(strTableName & "_searchoption"))
if SESSION(strTableName & "_searchfield")<> "" then
strSearchField = SESSION(strTableName & "_searchfield")
where = StrWhere(strSearchField, strSearchFor, strSearchOption, "")
if where <>"" then
strWhereClause = whereAdd(strWhereClause,where)
else
strWhereClause = whereAdd(strWhereClause,"1=1 and 1=0")
end if
else
sstrWhere = "1=0"
strWhereClause = whereAdd(strWhereClause,sstrWhere)
end if
else
if SESSION(strTableName & "_search")=2 then
' advanced search
set strTableName_asearchfortype = SESSION(strTableName & "_asearchfortype")
set strTableName_asearchnot = SESSION(strTableName & "_asearchnot")
set strTableName_asearchopt = SESSION(strTableName & "_asearchopt")
set strTableName_asearchfor = SESSION(strTableName & "_asearchfor")
set strTableName_asearchfor2 = SESSION(strTableName & "_asearchfor2")
sWhere=""
for each f in strTableName_asearchfor
strSearchFor=trim(strTableName_asearchfor.item(f))
strSearchFor2=""
ttype=strTableName_asearchfortype.item(f)
for each i in strTableName_asearchfor2
if f=i then strSearchFor2=trim(strTableName_asearchfor2.item(i))
next
if strSearchFor<>"" or true then
if sWhere="" then
if session(strTableName & "_asearchtype")="and" then
sWhere="1=1"
else
sWhere="1=1 and 1=0"
end if
end if
snot=strTableName_asearchnot.item(f)
strSearchOption=trim(strTableName_asearchopt.Item(f))
where=""
where=StrWhereAdv(f, strSearchFor, strSearchOption, strSearchFor2,ttype)
if where<>"" then
if snot<>"" then where="not (" & where & ")"
if SESSION(strTableName & "_asearchtype")="and" then
sWhere=sWhere & " and " & where
else
sWhere=sWhere & " or " & where
end if
end if
end if
next
strWhereClause = whereAdd(strWhereClause,sWhere)
end if
end if
strSQL = gSQLWhereAdd(strWhereClause)
' order by
strSQL=strSQL & " " & trim(strOrderBy)
' save SQL for use in "Export" and "Printer-friendly" pages
SESSION(strTableName & "_sql") = strSQL
SESSION(strTableName & "_where") = strWhereClause
SESSION(strTableName & "_order") = strOrderBy
dim rowsfound
' select and display records
if CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Search") then
strSQLbak = strSQL
DoEvent "BeforeQueryList strSQL,strWhereClause,strOrderBy"
' Rebuild SQL if needed
if strSQL<> strSQLbak then
' changed strSQL - old style
numrows=GetRowCount(strSQL)
else
strSQL = gSQLWhereAdd(strWhereClause)
strSQL = strSQL & " " & trim(strOrderBy)
numrows=gSQLRowCount(strWhereClause,0)
end if
LogInfo(strSQL)
' Pagination:
if numrows=0 then
smarty("rowsfound")=false
rowsfound=false
dim message
message="No records found"
smarty("message")=message
else
smarty("rowsfound")=true
rowsfound=true
smarty("records_found")=numrows
maxRecords = numrows
maxpages=int(maxRecords/PageSize)
if maxRecords mod PageSize <> 0 then maxpages=maxpages+1
if mypage > maxpages then mypage = maxpages
if mypage<1 then mypage=1
maxrecs=PageSize
smarty.Add "page",mypage
smarty.Add "maxpages",maxpages
' write pagination
smarty.Add "pagination",""
strSQL = AddTop(strSQL, mypage*PageSize)
end if
rs.Open strSQL, dbConnection,1,2
call ReportError
if not rs.EOF then rs.Move(PageSize*(mypage-1))
' hide colunm headers if needed
recordsonpage=numrows-(mypage-1)*PageSize
if recordsonpage>PageSize then _
recordsonpage=PageSize
if recordsonpage>=1 then
smarty.Add "column1show",true
else
smarty.Add "column1show",false
end if
Set rowinfo = CreateObject("Scripting.Dictionary")
shade=false
recno=1
editlink=""
copylink=""
ri=0
Set fso = CreateObject("Scripting.FileSystemObject")
while not rs.eof and recno<=PageSize
Set row = CreateObject("Scripting.Dictionary")
if not shade then
row.Add "shadeclass","class=""shade"""
row.Add "shadeclassname","shade"
shade=true
else
row.Add "shadeclass",""
row.Add "shadeclassname",""
shade=false
end if
col=0
do while not rs.eof
retval=true
DoEvent "retval=BeforeProcessRowList(rs)"
if retval=false then
rs.MoveNext
else
exit do
end if
loop
while not rs.EOF and recno<=PageSize and col<1
col=col+1
' key fields
keyblock=""
row.Add col & "id1",my_htmlspecialchars(dbvalue(rs("Team #")))
keyblock = keyblock & my_htmlspecialchars(dbvalue(rs("Team #")))
row.Add col & "id2",my_htmlspecialchars(dbvalue(rs("Points")))
keyblock = keyblock & "&" & my_htmlspecialchars(dbvalue(rs("Points")))
row.Add col & "keyblock", my_htmlspecialchars(keyblock)
row.Add col & "recno",recno
' detail tables
' edit page link
editlink=""
editlink=editlink & "editid1=" & my_htmlspecialchars(SafeURLEncode(dbvalue(rs("Team #"))))
editlink=editlink & "&editid2=" & my_htmlspecialchars(SafeURLEncode(dbvalue(rs("Points"))))
row.Add col & "editlink",editlink
copylink=""
copylink=copylink & "copyid1=" & my_htmlspecialchars(SafeURLEncode(dbvalue(rs("Team #"))))
copylink=copylink & "©id2=" & my_htmlspecialchars(SafeURLEncode(dbvalue(rs("Points"))))
row.Add col & "copylink",copylink
keylink=""
keylink=keylink & "&key1=" & my_htmlspecialchars(SafeURLEncode(dbvalue(rs("Team #"))))
keylink=keylink & "&key2=" & my_htmlspecialchars(SafeURLEncode(dbvalue(rs("Points"))))
' Team # -
value=""
value = ProcessLargeText(GetData(rs,"Team #", ""),"field=Team+%23" & keylink,"",MODE_LIST)
row.Add col & "Team___value",value
' Coaches -
value=""
value = ProcessLargeText(GetData(rs,"Coaches", ""),"field=Coaches" & keylink,"",MODE_LIST)
row.Add col & "Coaches_value",value
' Wins -
value=""
value = ProcessLargeText(GetData(rs,"Wins", ""),"field=Wins" & keylink,"",MODE_LIST)
row.Add col & "Wins_value",value
' Losses -
value=""
value = ProcessLargeText(GetData(rs,"Losses", ""),"field=Losses" & keylink,"",MODE_LIST)
row.Add col & "Losses_value",value
' Ties -
value=""
value = ProcessLargeText(GetData(rs,"Ties", ""),"field=Ties" & keylink,"",MODE_LIST)
row.Add col & "Ties_value",value
' Points -
value=""
value = ProcessLargeText(GetData(rs,"Points", ""),"field=Points" & keylink,"",MODE_LIST)
row.Add col & "Points_value",value
row.Add col & "show",true
DoEvent "BeforeMoveNextList rs,row,col"
dim span
rs.MoveNext
do while not rs.eof
retval=true
DoEvent "retval=BeforeProcessRowList(rs)"
if retval=false then
rs.MoveNext
else
exit do
end if
loop
recno=recno+1
wend
rowinfo.add ri,row
ri=ri+1
wend
smarty.Add "rowinfo",rowinfo
rs.Close
end if
smarty.Add "userid",my_htmlspecialchars(SESSION("UserID"))
' table selector
strPerm = GetUserPermissions("_Standings")
f=false
if instr(strPerm, "A")<>0 or instr(strPerm, "S")<>0 then f=true
smarty.Add "allow__Standings",f
allow_add=CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Add")
smarty.Add "allow_delete",CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Delete")
smarty.Add "allow_add",allow_add
smarty.Add "allow_edit",CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Edit")
smarty.Add "allow_export",CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Export")
smarty.Add "allow_import",CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Import")
allow_search=CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Search")
smarty.Add "allow_search",allow_search
if CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Delete") or CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Export") then
smarty.Add "allow_deleteorexport", True
else
smarty.Add "allow_deleteorexport", False
end if
display_grid=true
display_grid = allow_search
display_records=display_grid
if not display_grid then _
display_records=false
smarty.Add "display_grid",display_grid
smarty.Add "display_records",display_records
linkdata= ""
if (useAJAX) then
linkdata = linkdata & "" & vbcrlf
end if
if (useAJAX) then
linkdata = linkdata & "" & vbcrlf
end if
smarty.Add "linkdata",linkdata
smarty.Add "guest",SESSION("AccessLevel") = ACCESS_LEVEL_GUEST
strSQL=SESSION(strTableName & "_sql")
templatefile = "_Standings_list.htm"
DoEvent "BeforeShowList smarty,templatefile"
smarty_display(templatefile)
%>