<%
if SESSION("UserID")="" then
response.End
end if
if not CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Search") then
response.End
end if
dbConnection=""
db_connect()
Set rs = server.CreateObject("ADODB.Recordset")
Set rss = server.CreateObject("ADODB.Recordset")
dim recordsCounter
strSQL = gstrSQL
str = SecuritySQL("Search")
if len(str)>0 then _
where = where & " and " & str
strSQL=gSQLWhereAdd(where)
strSQL=strSQL & " " & gstrOrderBy
rowcount=gSQLRowCount(where)
if rowcount > 0 then
rs.Open strSQL, dbConnection,1,2
response.write "Dettagli trovati" & ": " & rowcount & ""
if rowcount > 10 then
response.write ". Displaying first: 10.
"
else
response.write "
"
end if
response.write ""
response.write "| N_Buono | "
response.write "titolo | "
response.write "cognome_nome | "
response.write "importo | "
response.write "durata_num | "
response.write "durata_let | "
response.write "titolare | "
response.write "scade | "
response.write "data_emissione | "
response.write "chiuso | "
response.write "
"
do while not rs.EOF
recordsCounter = recordsCounter + 1
if recordsCounter > 10 then Exit Do
response.write ""
keylink=""
keylink=keylink & "&key1=" & my_htmlspecialchars(server.urlencode(dbvalue(rs("N_Buono"))))
Set fso = CreateObject("Scripting.FileSystemObject")
'// N_Buono -
value=""
value = ProcessLargeText(GetData(rs,"N_Buono", ""),"field=N%5FBuono" & keylink,"",MODE_PRINT)
response.write "| " & 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
lookupvalue=rs("titolo")
if not rss.eof then _
lookupvalue=rss(0)
value=ProcessLargeText(GetDataInt(lookupvalue,rs,"titolo", ""),"field=titolo" & keylink,"",MODE_PRINT)
rss.close
else
value=""
end if
response.write "" & value & " | "
'// cognome_nome -
value=""
value = ProcessLargeText(GetData(rs,"cognome_nome", ""),"field=cognome%5Fnome" & keylink,"",MODE_PRINT)
response.write "" & value & " | "
'// importo - Number
value=""
value = ProcessLargeText(GetData(rs,"importo", "Number"),"field=importo" & keylink,"",MODE_PRINT)
response.write "" & value & " | "
'// durata_num -
value=""
value = ProcessLargeText(GetData(rs,"durata_num", ""),"field=durata%5Fnum" & keylink,"",MODE_PRINT)
response.write "" & value & " | "
'// durata_let -
value=""
value = ProcessLargeText(GetData(rs,"durata_let", ""),"field=durata%5Flet" & keylink,"",MODE_PRINT)
response.write "" & 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
lookupvalue=rs("titolare")
if not rss.eof then _
lookupvalue=rss(0)
value=ProcessLargeText(GetDataInt(lookupvalue,rs,"titolare", ""),"field=titolare" & keylink,"",MODE_PRINT)
rss.close
else
value=""
end if
response.write "" & value & " | "
'// scade - Short Date
value=""
value = ProcessLargeText(GetData(rs,"scade", "Short Date"),"field=scade" & keylink,"",MODE_PRINT)
response.write "" & value & " | "
'// data_emissione - Short Date
value=""
value = ProcessLargeText(GetData(rs,"data_emissione", "Short Date"),"field=data%5Femissione" & keylink,"",MODE_PRINT)
response.write "" & value & " | "
'// chiuso - Checkbox
value=""
value = GetData(rs,"chiuso", "Checkbox")
response.write "" & value & " | "
response.write "
"
rs.MoveNext
loop
rs.Close
response.write "
"
else
response.write "Dettagli trovati" & ": " & rowcount & ""
end if
response.write "counterSeparator" & postvalue("counter")
%>