Modifica di un file

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

<%
dim field, value, lookupValue, checkFlag, lookupSQL, output, numDictEl

field = postvalue("searchField")
value = postvalue("searchFor")
lookupValue = postvalue("lookupValue")

dbConnection=""
db_connect()

LookupSQL = ""
output = ""
tmpvalue = ""
numDictEl = 0
set objDict = Server.CreateObject("Scripting.Dictionary")

if SESSION("UserID")="" then
		response.End
	end if
	if not CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Search") and not CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Add") and not CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Edit") then
		response.End
	end if

if field = "titolo" then
		LookupSQL = "SELECT "
		LookupSQL = LookupSQL & "[titolo]"
		LookupSQL = LookupSQL & ",[titolo]"
	LookupSQL = LookupSQL & " FROM [titolo] "
		LookupSQL = LookupSQL & " WHERE "
			LookupSQL = LookupSQL & "[titolo] LIKE '" & db_addslashes(value) & "%'"
	end if
if field = "titolare" then
		LookupSQL = "SELECT "
		LookupSQL = LookupSQL & "[titolare]"
		LookupSQL = LookupSQL & ",[titolare]"
	LookupSQL = LookupSQL & " FROM [titolare] "
		LookupSQL = LookupSQL & " WHERE "
			LookupSQL = LookupSQL & "[titolare] LIKE '" & db_addslashes(value) & "%'"
	end if

Set rs = server.CreateObject("ADODB.Recordset")
rs.open LookupSQL,dbConnection

found=false
do while not rs.EOF
	tmpvalue = rs(0)
	if dbvalue(rs(0))=lookupValue then _
		found=true
	objDict(numDictEl)=tmpvalue
	numDictEl = numDictEl + 1
	tmpvalue = rs(1)
	objDict(numDictEl)= tmpvalue
	numDictEl = numDictEl + 1
	rs.MoveNext
loop
rs.Close

dim cnt
cnt=objDict.Count
if cnt>40 then _
	cnt=40

for i=0 to cnt-1 
	response.write objDict(i) & vbLf
next

[Íàçàä]