<%
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 "| titolare | "
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("titolare"))))
Set fso = CreateObject("Scripting.FileSystemObject")
'// titolare -
value=""
value = ProcessLargeText(GetData(rs,"titolare", ""),"field=titolare" & 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")
%>