<%
if SESSION("UserID")="" then
SESSION("MyURL")=request.ServerVariables("SCRIPT_NAME")&"?"&request.ServerVariables("QUERY_STRING")
response.Redirect "login.asp?message=expired"
response.End
end if
if not CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Search") and not CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Add") then
response.Write "" & "Non hai il permesso per accedere a questa tabella" & " " & "Torna alla pagina di login" & "
"
response.End
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=""
if useAJAX then
includes = includes & "" & vbCrLf
includes = includes & "" & vbCrLf
' validation stuff
set editValidateTypes = Server.CreateObject("Scripting.Dictionary")
set editValidateFields = Server.CreateObject("Scripting.Dictionary")
set addValidateTypes = Server.CreateObject("Scripting.Dictionary")
set addValidateFields = Server.CreateObject("Scripting.Dictionary")
includes = includes & "" & vbCrLf
editValidateTypes.Add "editValidateType1",""
editValidateFields.Add "editValidateField1","titolo"
editValidateTypes.Add "editValidateType2",""
editValidateFields.Add "editValidateField2","cognome_nome"
validatetype="IsNumeric"
editValidateTypes.Add "editValidateType3",validatetype
editValidateFields.Add "editValidateField3","importo"
validatetype="IsNumeric"
editValidateTypes.Add "editValidateType4",validatetype
editValidateFields.Add "editValidateField4","durata_num"
editValidateTypes.Add "editValidateType5",""
editValidateFields.Add "editValidateField5","durata_let"
editValidateTypes.Add "editValidateType6",""
editValidateFields.Add "editValidateField6","titolare"
editValidateTypes.Add "editValidateType7",""
editValidateFields.Add "editValidateField7","scade"
validatetype=""
validatetype=validatetype & "IsRequired"
editValidateTypes.Add "editValidateType8",validatetype
editValidateFields.Add "editValidateField8","data_emissione"
validatetype=""
editValidateTypes.Add "editValidateType9",validatetype
editValidateFields.Add "editValidateField9","chiuso"
addValidateTypes.Add "addValidateType1",""
addValidateFields.Add "addValidateField1","titolo"
addValidateTypes.Add "addValidateType2",""
addValidateFields.Add "addValidateField2","cognome_nome"
validatetype="IsNumeric"
addValidateTypes.Add "addValidateType3",validatetype
addValidateFields.Add "addValidateField3","importo"
validatetype="IsNumeric"
addValidateTypes.Add "addValidateType4",validatetype
addValidateFields.Add "addValidateField4","durata_num"
addValidateTypes.Add "addValidateType5",""
addValidateFields.Add "addValidateField5","durata_let"
addValidateTypes.Add "addValidateType6",""
addValidateFields.Add "addValidateField6","titolare"
addValidateTypes.Add "addValidateType7",""
addValidateFields.Add "addValidateField7","scade"
validatetype=""
validatetype=validatetype & "IsRequired"
addValidateTypes.Add "addValidateType8",validatetype
addValidateFields.Add "addValidateField8","data_emissione"
validatetype=""
addValidateTypes.Add "addValidateType9",validatetype
addValidateFields.Add "addValidateField9","chiuso"
includes=includes & ""
types_separated = join(editValidateTypes.Items, ",")
fields_separated = join(editValidateFields.Items, ",")
includes = includes & "" & vbCrLf
types_separated = join(addValidateTypes.Items, ",")
fields_separated = join(addValidateFields.Items, ",")
includes = includes & "" & vbCrLf
'// include datepicker files
includes=includes & ""
end if
includes = includes & "" & vbCrLf
includes = includes & "" & vbCrLf
if useAJAX then
includes = includes & "" & vbCrLf
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_N_Buono","a"
smarty.Add "order_dir_titolo","a"
smarty.Add "order_dir_cognome_nome","a"
smarty.Add "order_dir_importo","a"
smarty.Add "order_dir_durata_num","a"
smarty.Add "order_dir_durata_let","a"
smarty.Add "order_dir_titolare","a"
smarty.Add "order_dir_scade","a"
smarty.Add "order_dir_data_emissione","a"
smarty.Add "order_dir_chiuso","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_N_Buono","a"
if order_field="N_Buono" then
if order_dir="a" then
AddDict smarty,"order_dir_N_Buono","d"
img="up"
else
img="down"
end if
AddDict smarty,"order_image_N_Buono","![]()
"
end if
AddDict smarty,"order_dir_titolo","a"
if order_field="titolo" then
if order_dir="a" then
AddDict smarty,"order_dir_titolo","d"
img="up"
else
img="down"
end if
AddDict smarty,"order_image_titolo","![]()
"
end if
AddDict smarty,"order_dir_cognome_nome","a"
if order_field="cognome_nome" then
if order_dir="a" then
AddDict smarty,"order_dir_cognome_nome","d"
img="up"
else
img="down"
end if
AddDict smarty,"order_image_cognome_nome","![]()
"
end if
AddDict smarty,"order_dir_importo","a"
if order_field="importo" then
if order_dir="a" then
AddDict smarty,"order_dir_importo","d"
img="up"
else
img="down"
end if
AddDict smarty,"order_image_importo","![]()
"
end if
AddDict smarty,"order_dir_durata_num","a"
if order_field="durata_num" then
if order_dir="a" then
AddDict smarty,"order_dir_durata_num","d"
img="up"
else
img="down"
end if
AddDict smarty,"order_image_durata_num","![]()
"
end if
AddDict smarty,"order_dir_durata_let","a"
if order_field="durata_let" then
if order_dir="a" then
AddDict smarty,"order_dir_durata_let","d"
img="up"
else
img="down"
end if
AddDict smarty,"order_image_durata_let","![]()
"
end if
AddDict smarty,"order_dir_titolare","a"
if order_field="titolare" then
if order_dir="a" then
AddDict smarty,"order_dir_titolare","d"
img="up"
else
img="down"
end if
AddDict smarty,"order_image_titolare","![]()
"
end if
AddDict smarty,"order_dir_scade","a"
if order_field="scade" then
if order_dir="a" then
AddDict smarty,"order_dir_scade","d"
img="up"
else
img="down"
end if
AddDict smarty,"order_image_scade","![]()
"
end if
AddDict smarty,"order_dir_data_emissione","a"
if order_field="data_emissione" then
if order_dir="a" then
AddDict smarty,"order_dir_data_emissione","d"
img="up"
else
img="down"
end if
AddDict smarty,"order_image_data_emissione","![]()
"
end if
AddDict smarty,"order_dir_chiuso","a"
if order_field="chiuso" then
if order_dir="a" then
AddDict smarty,"order_dir_chiuso","d"
img="up"
else
img="down"
end if
AddDict smarty,"order_image_chiuso","![]()
"
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,"N_Buono",request("mdelete1[]").Item(request("mdelete[]").Item(ind))
AddDict selected_recs, ind, keys
next
else if 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) = 1 - 1 then
AddDict keys,"N_Buono", HTMLDecode(arr(0))
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
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=0")
end if
else
sstrWhere = "1=0"
where=StrWhere("N_Buono", strSearchFor, strSearchOption, "")
if where<>"" then sstrWhere=sstrWhere & " or " & where
where=StrWhere("titolo", strSearchFor, strSearchOption, "")
if where<>"" then sstrWhere=sstrWhere & " or " & where
where=StrWhere("cognome_nome", strSearchFor, strSearchOption, "")
if where<>"" then sstrWhere=sstrWhere & " or " & where
where=StrWhere("importo", strSearchFor, strSearchOption, "")
if where<>"" then sstrWhere=sstrWhere & " or " & where
where=StrWhere("durata_num", strSearchFor, strSearchOption, "")
if where<>"" then sstrWhere=sstrWhere & " or " & where
where=StrWhere("durata_let", strSearchFor, strSearchOption, "")
if where<>"" then sstrWhere=sstrWhere & " or " & where
where=StrWhere("titolare", strSearchFor, strSearchOption, "")
if where<>"" then sstrWhere=sstrWhere & " or " & where
where=StrWhere("scade", strSearchFor, strSearchOption, "")
if where<>"" then sstrWhere=sstrWhere & " or " & where
where=StrWhere("data_emissione", strSearchFor, strSearchOption, "")
if where<>"" then sstrWhere=sstrWhere & " or " & where
where=StrWhere("chiuso", strSearchFor, strSearchOption, "")
if where<>"" then sstrWhere=sstrWhere & " or " & where
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=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
' 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)
end if
LogInfo(strSQL)
' Pagination:
if numrows=0 then
smarty("rowsfound")=false
dim message
message="Non sono stati trovati Record"
message = "" & message & ""
smarty("message")=message
else
smarty("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
smarty("column1show")=true
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("N_Buono")))
keyblock = keyblock & my_htmlspecialchars(dbvalue(rs("N_Buono")))
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("N_Buono"))))
row.Add col & "editlink",editlink
copylink=""
copylink=copylink & "copyid1=" & my_htmlspecialchars(SafeURLEncode(dbvalue(rs("N_Buono"))))
row.Add col & "copylink",copylink
keylink=""
keylink=keylink & "&key1=" & my_htmlspecialchars(SafeURLEncode(dbvalue(rs("N_Buono"))))
' N_Buono -
value=""
value = ProcessLargeText(GetData(rs,"N_Buono", ""),"field=N%5FBuono" & keylink,"",MODE_LIST)
row.Add col & "N_Buono_value",value
' titolo -
value=""
if len(rs("titolo"))>0 then
strdata = make_db_value("titolo",rs("titolo"),"","")
LookupSQL="SELECT "
LookupSQL=LookupSQL & "[titolo]"
LookupSQL=LookupSQL & " FROM [titolo] WHERE [titolo] = " & strdata
LogInfo(LookupSQL)
rss.open LookupSQL,dbConnection
call ReportError
lookupvalue=rs("titolo")
if not rss.eof then _
lookupvalue=rss(0)
value=ProcessLargeText(GetDataInt(lookupvalue,rs,"titolo", ""),"field=titolo" & keylink,"",MODE_LIST)
rss.Close
else
value=""
end if
row.Add col & "titolo_value",value
' cognome_nome -
value=""
value = ProcessLargeText(GetData(rs,"cognome_nome", ""),"field=cognome%5Fnome" & keylink,"",MODE_LIST)
row.Add col & "cognome_nome_value",value
' importo - Number
value=""
value = ProcessLargeText(GetData(rs,"importo", "Number"),"field=importo" & keylink,"",MODE_LIST)
row.Add col & "importo_value",value
' durata_num -
value=""
value = ProcessLargeText(GetData(rs,"durata_num", ""),"field=durata%5Fnum" & keylink,"",MODE_LIST)
row.Add col & "durata_num_value",value
' durata_let -
value=""
value = ProcessLargeText(GetData(rs,"durata_let", ""),"field=durata%5Flet" & keylink,"",MODE_LIST)
row.Add col & "durata_let_value",value
' titolare -
value=""
if len(rs("titolare"))>0 then
strdata = make_db_value("titolare",rs("titolare"),"","")
LookupSQL="SELECT "
LookupSQL=LookupSQL & "[titolare]"
LookupSQL=LookupSQL & " FROM [titolare] WHERE [titolare] = " & strdata
LogInfo(LookupSQL)
rss.open LookupSQL,dbConnection
call ReportError
lookupvalue=rs("titolare")
if not rss.eof then _
lookupvalue=rss(0)
value=ProcessLargeText(GetDataInt(lookupvalue,rs,"titolare", ""),"field=titolare" & keylink,"",MODE_LIST)
rss.Close
else
value=""
end if
row.Add col & "titolare_value",value
' scade - Short Date
value=""
value = ProcessLargeText(GetData(rs,"scade", "Short Date"),"field=scade" & keylink,"",MODE_LIST)
row.Add col & "scade_value",value
' data_emissione - Short Date
value=""
value = ProcessLargeText(GetData(rs,"data_emissione", "Short Date"),"field=data%5Femissione" & keylink,"",MODE_LIST)
row.Add col & "data_emissione_value",value
' chiuso - Checkbox
value=""
value = GetData(rs,"chiuso", "Checkbox")
row.Add col & "chiuso_value",value
row.Add col & "show",true
DoEvent "BeforeMoveNextList rs,row,col"
dim span
span=""
row(col & "N_Buono_value") = span & row(col & "N_Buono_value") & ""
span=""
row(col & "titolo_value") = span & row(col & "titolo_value") & ""
span=""
row(col & "cognome_nome_value") = span & row(col & "cognome_nome_value") & ""
span=""
row(col & "importo_value") = span & row(col & "importo_value") & ""
span=""
row(col & "durata_num_value") = span & row(col & "durata_num_value") & ""
span=""
row(col & "durata_let_value") = span & row(col & "durata_let_value") & ""
span=""
row(col & "titolare_value") = span & row(col & "titolare_value") & ""
span=""
row(col & "scade_value") = span & row(col & "scade_value") & ""
span=""
row(col & "data_emissione_value") = span & row(col & "data_emissione_value") & ""
span=""
row(col & "chiuso_value") = span & row(col & "chiuso_value") & ""
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
if CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Search") then
if SESSION(strTableName & "_search")=1 then
onload = "onLoad=""if(document.getElementById('SearchFor')) document.getElementById('ctlSearchFor').focus();"""
smarty.Add "onload",onload
' fill in search variables
' // field selection
if SESSION(strTableName& "_searchfield")="N_Buono" then smarty.Add "search_N_Buono","selected"
if SESSION(strTableName& "_searchfield")="titolo" then smarty.Add "search_titolo","selected"
if SESSION(strTableName& "_searchfield")="cognome_nome" then smarty.Add "search_cognome_nome","selected"
if SESSION(strTableName& "_searchfield")="importo" then smarty.Add "search_importo","selected"
if SESSION(strTableName& "_searchfield")="durata_num" then smarty.Add "search_durata_num","selected"
if SESSION(strTableName& "_searchfield")="durata_let" then smarty.Add "search_durata_let","selected"
if SESSION(strTableName& "_searchfield")="titolare" then smarty.Add "search_titolare","selected"
if SESSION(strTableName& "_searchfield")="scade" then smarty.Add "search_scade","selected"
if SESSION(strTableName& "_searchfield")="data_emissione" then smarty.Add "search_data_emissione","selected"
if SESSION(strTableName& "_searchfield")="chiuso" then smarty.Add "search_chiuso","selected"
' // search type selection
if SESSION(strTableName & "_searchoption")="Contains" then smarty.Add "search_contains_option_selected","selected"
if SESSION(strTableName & "_searchoption")="Equals" then smarty.Add "search_equals_option_selected","selected"
if SESSION(strTableName & "_searchoption")="Starts with ..." then smarty.Add "search_startswith_option_selected","selected"
if SESSION(strTableName & "_searchoption")="More than ..." then smarty.Add "search_more_option_selected","selected"
if SESSION(strTableName & "_searchoption")="Less than ..." then smarty.Add "search_less_option_selected","selected"
if SESSION(strTableName & "_searchoption")="Equal or more than ..." then smarty.Add "search_equalormore_option_selected","selected"
if SESSION(strTableName & "_searchoption")="Equal or less than ..." then smarty.Add "search_equalorless_option_selected","selected"
if SESSION(strTableName & "_searchoption")="Empty" then smarty.Add "search_empty_option_selected","selected"
smarty.Add "search_searchfor","value=""" & my_htmlspecialchars(SESSION(strTableName & "_searchfor")) & """"
end if
end if
smarty.Add "userid",my_htmlspecialchars(SESSION("UserID"))
smarty.Add "displayheader",""
linkdata= ""
if (useAJAX) then
linkdata = linkdata & "" & vbcrlf
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 = "buono_list.htm"
DoEvent "BeforeShowList smarty,templatefile"
smarty_display(templatefile)
%>