Che ne dite di questo motore di ricerca 'tipo'??codice:sql = "select * from utenti " if len(order)>0 then sql=sql&" order by "&order_by&" asc" 'ordinamento 'creo il recordset e lo apro Set rs= Server.CreateObject("ADODB.Recordset") rs.Open sql,cn,3,3 'filtro per il motore di ricerca citta=request("citta") if len(citta)>0 then filtro = filtro&"or citta='"&citta&"' " prov=request("prov") if len(prov)>0 then filtro = filtro&"or prov='"&prov&"' " tel= request("tel") if len(tel)>0 then filtro = filtro&"or tel='"&tel&"' " ragSoc=request("ragSoc") if len(ragSoc)>0 then filtro = filtro&"or ragSoc='"&ragSoc&"' " if len(filtro)>0 then filtro = right(filtro,len(filtro)-3) rs.filter = filtro end if
Prima usavo quest'altro che ho cmq trovato su questo form. Ottimo anche questo, ma le righe di codice aumentavano troppo...
codice:sql = "select * from news " if len(titolo)>0 or len(testo)>0 or len(data)>0 then sql=sql&"where ( " if len(titolo)>0 then sql=sql&"titolo like '%"&titolo&"%' " if len(testo)>0 then if len(titolo)>0 then sql=sql&logica sql=sql&"testo like '%"&testo&"%' " end if if len(data)>0 then if len(titolo)>0 or len(testo)>0 then sql=sql&logica sql=sql&"data=#"&data&"#" end if sql=sql&") " end if

Rispondi quotando
