Modifica di un file

Modificare il file: \Buoni-spesa-OLD\buono_fulltext.asp

<%
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,"<br>")
end if

'echobig(rsf(field),8192)
rsf.Close
DisplayCloseWindow()
response.End

function DisplayCloseWindow()
	response.Write "<br>"
	response.Write "<hr size=1 noshade>"
	response.Write "<a href=# onClick=""window.close();return false;"">" & "Chiudi finestra" & "</a>"
end function

[Íàçàä]