ciao Vale,
grazie tantissimo per la risposta ma ti volevo chiedere una cosa, io prima di usare Mysql, con Access avevo una paginazione che usa Absolutepage, ma facendo una ricerca ho saputo che non è supportata da Mysql...infatti quando l'ho provata mi dava sempre errore.
ho trovato più di una paginazione in ASP+MYSQL in cui avrei dovuto usare Select Count per la conta e Limit per la paginazione...ma va bene per leggere normalmente i dati, ma per una ricerca sembra di no!
cmq ti post il codice magari si capisce meglio...
))
<%
PageName = Request.ServerVariables("PATH_INFO")
SearchMethod = Request.ServerVariables("REQUEST_METHOD")
Dim pag
pag = Request.QueryString("pag")
If IsNumeric(pag) = False Or pag < 1 Then pag = 1
If SearchMethod = "POST" Then
search = request.form("search")
ElseIf SearchMethod = "GET" Then
search = request.QueryString("search")
End If
%>
<form method="post" name="editform">
<tr bgcolor="">
<td width="150" align="left" class="text"><b></b></td>
<td width="680" align="left" class="text">
<!--motore-->
<form method="post" action="default.asp?go=searchcom3" name="editform">
<input type="radio" name="criterio" value="ext" checked> frase esatta <input type="radio" name="criterio" value="all"> tutte le parole
<input type="text" name="search" size="30" value="<%=search%>">
<input type="submit" value="CERCA" name="submit" class=box onMouseOver="this.className='submit'" onmouseOut="this.className='box'" onFocus="this.blur()">
</form>
<!--fine motore---->
</td>
<%
session ("search") = request.form ("search")
%>
</tr>
<tr bgcolor="">
<td colspan="3" align="left" class="text" height="1"></td>
</tr>
</form>
<script language="javascript">document.editform.search.focus();</script>
<% If SearchMethod = "POST" And len(search) = 0 Then %>
<tr>
<td colspan="3" height="60" align="center" class="text" bgcolor="#FFFFFF"><b>Digitare un testo per la ricerca</b></td>
</tr>
<tr bgcolor="#000033">
<td colspan="3" height="1"></td>
</tr>
<% End If %>
<%
if len(search) > 0 then
'connessione mysql
Dim cn, rs
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.open = "driver={MySQL ODBC 3.51 Driver};server=;database=;uid=;pwd="
'conn.Open str_Conn
rs.Open "SELECT COUNT(*) AS temp FROM searchcom", cn, 3 ,3
Dim quanti, a, b
quanti = CInt(rs("temp"))
b = 10
a = (pag - 1) * b
rs.Close
If quanti > 0 Then
Dim sql
sql = "Select * From searchcom Where"
If request.form("criterio") <> "ext" Then
ArrSearch = Split(search)
x = 0
for each Word In ArrSearch
sql = sql & " (doc like '%" & Replace(word, "'", "''") & "%' Or parola_chiave like '%" & Replace(word, "'", "''") & "%' Or anno like '%" & Replace(word, "'", "''") & "%' Or data like '%" & Replace(word, "'", "''") & "%'Or massime like '%" & Replace(word, "'", "''") & "%' ) "
If Not x = UBound(ArrSearch) Then sql = sql & " or"
' Se preferisci la ricerca di una qualsiasi delle parole inserite
' in tutti dodumenti usa questo codice:
' If Not x = UBound(ArrSearch) Then sql = sql & " Or"
x = x + 1
Next
Else
sql = sql & " (doc like '%" & Replace(search, "'", "''") & "%' Or parola_chiave like '%" & Replace(search, "'", "''") & "%'Or anno like '%" & Replace(search, "'", "''") & "%' Or data like '%" & Replace(search, "'", "''") & "%'Or massime like '%" & Replace(search, "'", "''") & "%' ) "
End If
sql = sql & " LIMIT " & a & ", " & b
rs.CursorType = adOpenDynamic
rs.Open sql, cn
'set rs = server.createobject("adodb.recordset")
'set rs = conn.execute(sql)
If rs.Eof=True or rs.Bof=True then
Response.Write "<P>Nessun risultato trovato</P>"
Else
%>
<td colspan="3" class="text" bgcolor="#FFFFFF"><b>Pagina
<%=pag%>/<%=intero%>
- Risultati relativi alla ricerca:<span style="background-color: #ffff00; color: #ff0000">"<%=search%>"</span> - Totale documenti
trovati <%=rs.recordcount%></b></td>
<%
response.Write "<td class=""link"" valign=""top"" colspan=""""><div align=""justify""><i><b><a class='link' href=""defaultnew.asp?go=anteprimacom&id=" & rs("id") & "&search=" & Server.UrlEncode(search)& """><font color=""black"">" & EvidenziaParola(Left(rs("doc"),191), search, "<span style=""background-color:#ffff00; color: #ff0000""><b>", "</b></span>")
If Len(rs("doc")) > 10 Then Response.write "..."
response.Write "</a></font></i></div> </td></tr>"
%>
<%
Dim i, intero
i = 1
intero = CInt(quanti / b)
If quanti > (intero * b) Then
intero = intero + 1
End If
%>
<b>Pagina <%=pag%> di <%=intero%></b><br><br>
<%
For i = 1 To intero
If CInt(i) = CInt(pag) Then
%>
[<b><%=i%></b>]
<%
Else
%>
[<b><a href="<%=PageName%>?go=searchcom3&pag=<%=i%>&search=<%=Server.UrlEncode(search)%>"><%=i%></a></b>]
spero che sia utile per capire meglio il mio problema.....
grazie ancora
Rob
