<%
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 "importo | "
response.write "data_emissione | "
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=""
if len(rs("N_Buono"))>0 then
strdata = make_db_value("N_Buono",rs("N_Buono"),"","")
LookupSQL="SELECT "
LookupSQL=LookupSQL & "[N_Buono]"
LookupSQL=LookupSQL & " FROM [buono] WHERE [N_Buono] = " & strdata
LogInfo(LookupSQL)
rss.Open LookupSQL,dbConnection
lookupvalue=rs("N_Buono")
if not rss.eof then _
lookupvalue=rss(0)
value=ProcessLargeText(GetDataInt(lookupvalue,rs,"N_Buono", ""),"field=N%5FBuono" & keylink,"",MODE_PRINT)
rss.close
else
value=""
end if
response.write "| " & value & " | "
'// importo - Number
value=""
value = ProcessLargeText(GetData(rs,"importo", "Number"),"field=importo" & 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 & " | "
response.write "
"
rs.MoveNext
loop
rs.Close
response.write "
"
else
response.write "Dettagli trovati" & ": " & rowcount & ""
end if
response.write "counterSeparator" & postvalue("counter")
%>