Modifica di un file

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

<%
'	check if logged in
if SESSION("UserID")="" or not CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Search") then
	SESSION("MyURL")=request.ServerVariables("SCRIPT_NAME")&"?"&request.ServerVariables("QUERY_STRING")
	response.Redirect "login.asp?message=expired"
	response.End
end if

filename=""
message=""

'connect database
dbConnection=""
db_connect()

DoEvent "BeforeProcessView dbConnection"

Set rs = server.CreateObject("ADODB.Recordset")
Set rsLookup = server.CreateObject("ADODB.Recordset")

set keys = CreateObject("Scripting.Dictionary")
	keys.Add "titolo",postvalue("editid1")

'	get current values and show edit controls

strWhereClause = KeyWhere(keys,"")

strSQL=gSQLWhereAdd(strWhereClause)

strSQLbak = strSQL

DoEvent "BeforeQueryView strSQL,strWhereClause"
if strSQLbak = strSQL then
	strSQL=gSQLWhereAdd(strWhereClause)
end if

LogInfo(strSQL)
rs.Open strSQL,dbConnection,1,2

if not rs.EOF then

smarty.Add "show_key1",my_htmlspecialchars(GetData(rs,"titolo", ""))

keylink=""
keylink=keylink & "&key1=" & my_htmlspecialchars(server.urlencode(dbvalue(rs("titolo"))))

Set fso = CreateObject("Scripting.FileSystemObject")
'----------------------------------------------------------------
'	titolo - 
	value=""
		value = ProcessLargeText(GetData(rs,"titolo", ""),"","",MODE_VIEW)
	smarty.Add "show_titolo",value
end if

templatefile = "titolo_view.htm"
DoEvent "BeforeShowView smarty,templatefile,rs"
smarty_display(templatefile)
rs.Close

[Íàçàä]