Modifica di un file

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

<%
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 "<table cellpadding=1 cellspacing=1 border=0 align=left class=""detailtable""><tr>"
	response.write "<td>titolo</td>"
	response.write "</tr>"
	do while not rs.EOF
		recordsCounter = recordsCounter + 1
					if recordsCounter > 10 then Exit Do
		response.write "<tr>"
		keylink=""
		keylink=keylink & "&key1=" & my_htmlspecialchars(server.urlencode(dbvalue(rs("titolo"))))

Set fso = CreateObject("Scripting.FileSystemObject")

'//	titolo - 
	value=""
				value = ProcessLargeText(GetData(rs,"titolo", ""),"field=titolo" & keylink,"",MODE_PRINT)
			response.write "<td>" & value & "</td>"
		response.write "</tr>"
		rs.MoveNext
	loop
rs.Close	
	response.write "</table>"
else
	response.write "Dettagli trovati" & ": " & rowcount & ""
end if

response.write "counterSeparator" & postvalue("counter")
%>

[Íàçàä]