<%
if SESSION("UserID")="" or not CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Search") then
DisplayCloseWindow()
response.End
end if
field = REQUEST.querystring("field")
if not CheckFieldPermissions(field,"") then
DisplayCloseWindow()
response.End
end if
'// construct sql
set keys = CreateObject("Scripting.Dictionary")
keys.Add "N_Buono",postvalue("key1")
where=KeyWhere(keys,"")
dbConnection=""
db_connect()
Set rsf = server.CreateObject("ADODB.Recordset")
sql = gSQLWhereAdd(where)
rsf.Open sql,dbConnection, 1, 2
if rsf.EOF then
DisplayCloseWindow()
response.End
end if
if not isnull(rsf(field)) then
response.Write replace(my_htmlspecialchars(cstr(rsf(field))),vbcrlf,"
")
end if
'echobig(rsf(field),8192)
rsf.Close
DisplayCloseWindow()
response.End
function DisplayCloseWindow()
response.Write "
"
response.Write "
"
response.Write "" & "Chiudi finestra" & ""
end function
%>