ASP pagina per leggere da query di ricerca... aiutooooo

[lucamares]

Come prima cosa mi riporto nel titolo la parola che sto cercando con:

<%
dim ricerca
ricerca= request.form("frm_ricerca")
response.write(ricerca)
%>

e la pagina mi funziona correttamente.

Poi apro la connessione e scrivo l'SQL come segue... utilizzando nel comando LIKE la variabile RICERCA che ho ricavato sopra... e qui ci dovrebbe essere l'errore ma non so come risolverlo... o meglio, come riportato sotto nella ricerca mi fa vedere i risultati contenenti la parola RICERCA come nel nome variabile e non il nome che io passo dalla pagina precedente...

sql="SELECT * FROM tb_articoli WHERE ar_titolo LIKE '%ricerca %' AND ar_descrizione LIKE '%ricerca %' ORDER by ar_aa desc, ar_mm desc, ar_gg desc, ora_utente desc"

Come devo utilizzare la variabile all'interno del comando like?

Grazie a quanti possono rispondere

[optime]

ripeto, la stringa va costruita

sql="SELECT * FROM tb_articoli WHERE ar_titolo LIKE '%" & ricerca & "%' AND ar_descrizione LIKE '%" & ricerca & "%' ORDER by ar_aa desc, ar_mm desc, ar_gg desc, ora_utente desc"

(impara ad usare il tasto [CODE] per scrivere il codice, non metterlo in rosso...)

[lucamares]

Si scusa avevo messo anche

& ricerca &

E mi dava errore perche' cercavo su due campi e non avevo messo due variabili

Dim ricerca, ricerca1

Ma solo

Dim ricerca

[optime]

quindi?

[lucamares]

Quindi ho risolto andando a creare due variabili, una per la ricerca nel campo TITOLO e una per la ricerca nel campo DESCRIZIONE

Adesso devo fare in modo che se la parola cercata restituisce valore zero... mi venga fuori la scritta "La parola cercata non è presente in nessun articolo" ... invece che l'errore di EOF.

[optime]

basta che tu testi .eof, così

IF RecordSet.EOF THEN
   ' messaggio di ricerca "vuota"
ELSE
   ' procedi normalmente
END IF

that easy!

[lucamares]

non molto easy :-)

Ho provato e testato ma nada... erro in qualche passaggio

<%
Dim oConn
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "MDB\tln.mdb"

pag = TRIM(Request.QueryString("pag"))
If pag="" Then
  pag = 1
Else
  pag = CInt(pag)
End If

Dim sql
sql="SELECT * FROM tb_articoli WHERE ar_descrizione LIKE '%" & ricerca & "%' ORDER by ar_aa desc, ar_mm desc, ar_gg desc, ora_utente desc" Dim ors
Set ors = Server.CreateObject ("ADODB.Recordset")

IF RecordSet.EOF Then
response.write("La ricerca non ha prodotto nessun risultato")
			
Else 			
ors.PageSize = 10
ors.Open sql, oconn, 3, 3
ors.AbsolutePage = pag

For i=1 to ors.PageSize
%>

[optime]

che vuol dire "ma nada"? spiegati altrimenti come si fa ad aiutarti?

[lucamares]

Nada nel senso "non funziona"

Comunque ho risolto con la formula inversa, ovvero "se non è vuoto, procedi con la visualizzazione degli articoli, altrimenti riporta la scritta << la ricerca non ha prodotto nessun risultato>>"

:-) pian pianino ci arrivo

[optime]

anche "non funziona" non aiuta. serve che venga riportao l'errore esatto. comunque, ho visto che hai risolto, ok.