Come modificare una ricerca nel proprio sito con piu elenchi

gianluigidibell

Utente Attivo
18 Lug 2007
72
0
6
Piacenza
Salve a tutti, come al solito ricorro nel vostro prezioso aiuto.
Dunque ho un classico ricerca nel sito web
dove ognuno mettere la parola chiave e zac, estrae tutti i record.
Fino a qui tutto bene, ma avendo un database ampio ora, avrei la necessita di imporre io i criteri di ricerca, utilizzando 3, 4 elenchi a tendina.
Mi spiego meglio se pensiamo ad una rubbrica, metterei un menu per tutte le citta, un menu per i cognomi un menu per i nomi, e invio per estrarre quel record.
Il mio codice cosi composto:
<form method="get" action="index.asp">
<label>menu
<select name="query1">
<option value="Punzone">Punzoni</option>
<option value="Matrice">Matrice</option>
</select>
</label>
<label>menu2
<select name="query2">
<option value="amada">Amada</option>
<option value="wila">wila</option>
<option value="beyeler">beyeler</option>
</select>
</label>
<input type="submit" value="Cerca">
</form>

<%
Dim testo, query
query=(query1+query2)
testo = Replace(Request.QueryString("query"), "'", "''")
query = Split(Server.HTMLEncode(testo), " ")
If Len(Trim(testo)) = 0 Then
Response.Write "Inserire un testo per la ricerca"
Else
Dim sc, cn, rs, sql
sc = "driver={Microsoft Access Driver (*.mdb)};dbq="
sc = sc & Server.MapPath("\2010_ita\mdb-database\prodotti.mdb")
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open sc
sql = "SELECT * FROM codici WHERE"
For i = 0 To Ubound(query)
If i > 0 Then
sql = sql & " AND"
End If
sql = sql & " Testoprimariga LIKE '%" & query(i) & "%'"
Next
Set rs = cn.Execute(sql)
If rs.EOF Then
Response.Write "Nessun risultato per la ricerca effettuata"
Else
With Response
While rs.EOF = False
.Write "<a href='" & rs("Codice") & "'>" & rs("Testoprimariga") & "</a>"
.Write "&nbsp;" & "<img src= " & rs("url_frazionatinuovi") & " >" & "<br>"
rs.MoveNext()
Wend
End With
End If
Set rs = Nothing
cn.Close()
Set cn = Nothing
End If
%>
come potete vedere ho menu = query 1
menu2 = query 2
ecco il problema se digito
query= (query1+qury2)
mi da il risultato di query 1= pippo& query2=rossi
ecco io invece devo sommare i menu in modo che esca il risultato pippo rossi da cercare
grazie a tutti
 

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
555
13
18
Italy
www.caprioli.info
Luigi rispondo qua.

Questo è il codice che ho provato qui a casa e mi funziona.

Codice:
<form method="post" action="index.asp">
<label>menu
<select name="query1">
<option value="A">A</option>
<option value="B">B</option>
<option value="C">C</option>
</select>
</label>
<label>menu2
<select name="query2">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
</select>
</label>
<input type="submit" value="Cerca">
<input type="hidden" value="submit" name="submit" />
</form>

<%

If Request.Form("submit") = "submit" Then

Dim testo, query
Dim sc, cn, rs, sql

query1 = Request.Form("query1")
query2 = Request.Form("Query2")

query = query1&query2

If Len(Trim(query)) = 0 Then
	Response.Write "Inserire un testo per la ricerca"
Else
	sc = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")
Set cn = Server.CreateObject("ADODB.Connection")
	cn.Open sc
sql = "SELECT * FROM NOME_TABELLA WHERE NOME_CAMPO LIKE '%"&query&"%'"

Set rs = cn.Execute(sql)
If rs.EOF Then
Response.Write "Nessun risultato per la ricerca effettuata"
Else

With Response
While rs.EOF = False

%>
<%=rs("NOME_CAMPO")%><BR />
<%
rs.MoveNext()
Wend
End With
End If
Set rs = Nothing
cn.Close()
Set cn = Nothing
End If

End If ' chiudo la condizione submit

 %>

devi personalizzarti la connessione:
sc = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")
nella query devi modificare il nome tabella e nome campo:
sql = "SELECT * FROM NOME_TABELLA WHERE NOME_CAMPO LIKE '%"&query&"%'"
ed il nome del campo che vuoi visualizzare come risultato della ricerca:
<%=rs("NOME_CAMPO")%>

Buon divertimento.
 
Discussioni simili
Autore Titolo Forum Risposte Data
W Non riesco più a modificare i dati di una tabella da phpmyadmin MySQL 0
R [Photoshop] Modificare luminosità dei bordi in una foto Photoshop 2
A come modificare gli elementi di una lista e gli editText? Sviluppo app per Android 0
napuleone Modificare attributi di una classe con js Javascript 2
J Come modificare un elemento all'interno di una tabella. jQuery 5
G [WPF] Modificare aspetto ad una comboBox .NET Framework 2
blackhawk Dare la possibilità all'amministratore di modificare il contenuto di una pagina del sito PHP 8
E Modificare le linee che compaiono alla creazione di una nuova pagina su dreamviewer HTML e CSS 2
Monital Modificare una funzione per creazione tabella html PHP 15
F Modificare dati da una tabella PHP 3
I modificare una pagina PHP 17
M Modificare form email affinchè mandi una copia BCC CMS (Content Management System) 1
J Come inserire una jpeg in un file XML o modificare il Font Flash 2
G Pagine in flash, modificare solo una parte della pagina al caricamento Flash 0
P Devo modificare una pagina ma non riesco... qualcuno mi aiuta? PHP 1
A modificare una proprietà con Js Javascript 0
R Aiuto. come modificare il contenuto di una query a campi incrociati Database 0
L creare o modificare una .GIF da mettere su una pagina HtmL HTML e CSS 5
M [cerco webmaster] sito web da modificare Offerte e Richieste di Lavoro e/o Collaborazione 0
G Come modificare un pdf in php PHP 1
napuleone modificare il valore dellascroll bar di webkit HTML e CSS 8
Shyson Modificare codice e creare link PHP 0
J Modificare panorami 360 ps 2020 Photoshop 0
napuleone modificare il contenitore di un div Javascript 2
napuleone modificare il contenitore di un div Javascript 1
D modificare questo codice per inserimento in text e non in tabella jQuery 1
C modificare sito in locale con dreamWeaver HTML e CSS 3
T Modificare ruolo utenti in fase di registrazione E-Commerce 0
M modificare un file .XML da database Sql PHP 13
S Modificare intestazione documento pdf con LO Draw Linux e Software 0
felino Radio button e Bootstrap: modificare il colore di default! HTML e CSS 1
Shyson Modificare funzione php PHP 15
W Modificare il Type di un Input box in javascript ovunque si trovi Javascript 0
F Modificare report di etichette di access con vba MS Access 0
D [PHP] Tabella: modificare direttamente i valori PHP 6
P [Woocommerce] Modificare il Bottone Checkout di Woocommerce in base alla categoria di prodotto E-Commerce 10
Q impossibile modificare un file ....... C/C++ 2
C [HTML] modificare la scritta della copyright HTML e CSS 2
G [PHP] MODIFICARE DATI TABELLA CONTESTUALMENTE PHP 6
Y [PHP] [HTML] Modificare i quadranti PHP 1
A [PHP] Modificare campo database in base alla scelta dell'utente PHP 2
V [WordPress] Come modificare link in tasto menu css WordPress 21
Y Modificare script php PHP 5
G Fullcalendar: modificare colore testo, backgroup e bordi per tutti gli eventi jQuery 3
paloppa Bootstrap.min.css modificare il file HTML e CSS 6
Merlina3377 [PHP] modificare file su form immagine thump PHP 1
G [HTML] Modificare ordine dei div in mobile responsive HTML e CSS 5
pfranco [PHP] Modificare pagina web online PHP 9
Shyson Modificare codice jQuery 0
A [Javascript] modificare il contenuto della barra indirizzi di un browser Javascript 1

Discussioni simili