:( Io ancora non sono riuscito a fare niente! Voi le cose che mi spiegate, le spiegate come se io di questa roba ci capissi... in realtà non ne sono niente.
C'è per caso qualcuno che mi può dare maggiori dettagli?

scusa Diaz, dai una occhiata al post di eberardo e guarda all'ultimo post se quello che cerchi fa per te, comprende anche la ricerca contemporanea per categorie, basta solo modificare la riga di connessione al tuo database e i campi da ricercare...


se vuoi te lo posto, comprende anche la paginazione...

:-))

enzo

enzo
www.dnetware.it

a pagina n°15 c'è un post.. EsempioMotore ricerca, quell'esempio copiatelo per intero e la pagina chiamala test.asp, cambi la tua connessione al dB e vedi come funziona, altrimenti te ne do un altro che è più complesso e ti fa la ricerca anche per frasi o più parole contemporaneamente ma te lo devo postare a parte.

vedi se riesci a capire e a personalizzare quello del post, altrimenti ti posto l'altro completo o per email o qui sul forum, come vuoi...

ciao

fammi sapere

enzo
www.dnetware.it

Questo è il codice...

<%@ Language=VBScript %>
<%Set Conn = Server.CreateObject("ADODB.Connection")
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};"
strConnect = strConnect & "DBQ=" & server.mappath("mdb-database/ciak.mdb")
Conn.Open strConnect
' la parte sopra è la tua connessione, ho provata a farla... guarda se funziona...
RecordsPerPagina=7
page=Request("page")
If page<>"" Then
Parola=Request.QueryString("search")
Ricerca=Request.QueryString("categoria")
SQLb=Session("stringa")
Else
Parola = (Request.Form("search"))
Ricerca = (Request.Form("categoria"))
If Parola<>"" Then
lunghezza=Len(Parola)
asterisco=instr(Parola,"*")
spazio=instr(Parola," ")
If spazio<>0 And asterisco=0 Then
Dim a(10),frase(10)
a(0)=1
a(1)=1
For i=1 to lunghezza
If Mid(Parola,i,1)=" " Then
a(0)=a(0)+1
a(a(0))=i
If a(0)>10 then
Response.Redirect("page.asp")
End If
End If
Next
a(a(0)+1)=lunghezza+1
For i=1 to a(0)
frase(i)=Trim(Mid(Parola,a(i),(a(i+1)-a(i))))
Next
SQLb="WHERE"
For i=1 to a(0)
SQLb=SQLb & " Title LIKE '%" & frase(i) & "%' "
If i< a(0) Then
SQLb=SQLb & "AND "
End If
Next
End If
if asterisco<>0 And spazio=0 then
Parola=Replace(Parola,"*","%")
SQLb="WHERE Title LIKE '"& Parola &"'"
If asterisco<lunghezza And asterisco>1 Then
Response.Redirect("page.asp")
End If
ElseIf asterisco=0 And spazio=0 Then
SQLb="WHERE Title LIKE '%" & Parola & "%'"
End If
End If
If Ricerca<>"" Then
If Parola<>"" Then
SQLb=SQLb & " AND categoria='" & Ricerca & "'"
Else
SQLb=SQLb & " WHERE categoria='" & Ricerca & "'"
End If
End If
Session("stringa")=SQLb
End If
If page="" Then page=1
SQL="SELECT * FROM vhs " & SQLb & " ORDER BY Date_Entered DESC"
Set objrs=Server.CreateObject("ADODB.Recordset")
objrs.Open SQL, Conn, 3 ,3 ,1
If objrs.EOF=True Or objrs.BOF=True Then
Response.Write "<p><font face=""arial"">Nessun risultato trovato</p>"
Else
objrs.PageSize = RecordsPerPagina
objrs.AbsolutePage = page
TotalRecords = objrs.recordcount
%><Table Align="Center" Width="100%" Height="600" Border=0>
<Th Height="30">Descrizione</Th>
<Th>Descrizione</Th>
<Th>Title</Th><%
For i = 1 to RecordsPerPagina%>
<Tr Height="30">
<%if Not objrs.EOF then
Response.Write("<Td Height='30'>" & objrs("Description") & "</Td>")
Response.Write("<Td>" & objrs("Title") & "</Td>")
Response.Write("<Td>" & objrs("categoria") & "</Td>")
objrs.movenext%>
<%end if%>
</Tr>
<%Next%>
</Table>
<%End if
Response.Write("N° PAgine " & objrs.PageCount & " : ")
For pag=1 to objrs.PageCount
Response.Write "<A href='nomequestapagina.asp?page=" & pag
Response.Write "&search=" & Pagina
Response.Write "&categoria=" & Ricerca
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>"
%>
<hr>

------------

nomequestapagina è il nome che darai a questa pagina di codice...

la ricerca è per Title e categoria, su title puoi inserire quello che vuoi, la ricerca per categoria non ècosì elastico, accetta solo una parola che è la tua categoria ese..


Title----> carica dei 101
categoria ---> cartoni

se il tuo campo categoria, contiene "cartoni animati" la ricerca per categoria non funziona, bisogna fare una piccola modifica..
se invece i valori per categoria hanno una sola parola o un codice allora non devi fare niente

puoi fare questo tipo di ricerche:

car* ----> ti trova tutti i film che iniziano per car, tipo carica di 101, carletto va al cinema o cose così
*101---> ti trova tutti i film che finiscono per 101..

*dei* ---> ti trova tutti i film con la parola dei---

oppure

carica dei 101----> ti trova tutti i film che contengono carica dei 101 :-))


se per qualche motivo non funziona qualche cosa fammi sapere

naturalmente la ricerca va per Title e categoria..

ciao

dimenticavo di dirti che page.asp è la pagina del Form degli input di Title & categoria..


enzo
www.dnetware.it



Modificato - conidi - 29 Lug 2001 21:12:56