Esiste qualche anima buona che mi regali uno script
per motore di ricerca con relativa pagina di ricerca
con possibilità di linkare il risultato dei campi
e con pagina successiva e precedente.
Grazie a tutti
Giuseppe
Esiste qualche anima buona che mi regali uno script
per motore di ricerca con relativa pagina di ricerca
con possibilità di linkare il risultato dei campi
e con pagina successiva e precedente.
Grazie a tutti
Giuseppe
Giuseppe
Ti do le basi:
1)Crea un form per la ricerca.
2)Crea una pagina che recupera il o i campi oggetto della ricerca. Sempre in questa pagina imposta la query con la sintassi LIKE %% per il o i campi.
3)Per la paginazione, ti consiglio quella linkata dal nostro caro Roby72 (praticamente identica a quella utilizzata su questo forum).
4)Per rendere linkabili le voci ricercate ti basta un piccolo sforzo del tipo:
Ti consiglio comunque di effettuar delle ricerche in questa sezione, troverai parecchi 3d che parlano del tuo problema.codice:"><%=objrs("Descrizione_link")%>
Provare paura per un qualcosa che ti possa capitare nel futuro non ti evita quell'evento,ti fa soltanto vivere un presente sbagliato!
"><%=objrs("Descrizione_link")%>
con questa riga non funzione il campo lincato
Perchè?
questa e la riga di roby72
Response.Write "<td align='center'><font color='#000000' face='Verdana' size='1'>" & objRS("ruolo") & "</font></td>"
dove sbaglio?
Grazie
Giuseppe
Visto che in pvt mi hai scritto praticamente le stesse cose che trovo qui, tanto vale che leggi il pvt di risposta.
Provare paura per un qualcosa che ti possa capitare nel futuro non ti evita quell'evento,ti fa soltanto vivere un presente sbagliato!
scusami ma non sono riuscito a trovare la tua risposta
sono nuovo e impranato.
Grazie
Giuseppe
Vai nel tuo profilo, clicca su "messaggi privati" e avrai la mia risposta.
Ad ogni modo, per correttezza verso gli altri partecipenti del forum, sarebbe meglio continuare ad affrontare il problema qui, piuttosto che in pvt, di modo che, in caso io non possa collegarmi, ci siano anche gli altri, disponibili, a darti una mano.
Per cui leggi la mia risposta nel pvt, ma poi dubbi o perplessità ponili qua stesso e non in pvt.
Provare paura per un qualcosa che ti possa capitare nel futuro non ti evita quell'evento,ti fa soltanto vivere un presente sbagliato!
Il mio era un esempio, ovviamente al posto di:
- <%=objrs("id")%>
- <%=objrs("link")%>
ci devono andare rispettivamente l'ID e la DESCRIZIONE della tua tabella.
si questo l'ho fatto ma mi pare ci sia un errore nella sintassi
mi da sempre errore
Grazie
Giuseppe
Posta il codice della pagina che ti dà errore (qui sul forum).
Provare paura per un qualcosa che ti possa capitare nel futuro non ti evita quell'evento,ti fa soltanto vivere un presente sbagliato!
<%@ Language=VBScript %>
<% response.buffer=true %>
<% Server.ScriptTimeout = 300 %>
<html>
<head>
<title>Creamweb.it - Paginazione</title>
</head>
<BODY MARGINWIDTH="0" MARGINHEIGHT="0" TOPMARGIN="0" LEFTMARGIN="0" bgcolor="white">
<TABLE WIDTH="500" CELLPADDING="0" CELLSPACING="0" BORDER="0" align="center">
<TR height="60" valign="middle">
<TD align="center">
<font face="verdana" size="3" color="red">Paginazione dei risultati di una query</font>
</TD>
<TR>
<TD>
<%
iPageSize = 20 'NUMERO RECORD PER PAGINA
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
strSQL = "SELECT * FROM tGiocatori ORDER BY giocatore ASC"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.PageSize = iPageSize
objRS.CacheSize = iPageSize
objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText
reccount = objRS.recordcount
iPageCount = objRS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
Response.Write "
<table><td><font face='verdana' size='2' color='#000000'>Non sono stati trovati giocatori.</td></table></p>"
Else
objRS.AbsolutePage = iPageCurrent
iRecordsShown = 0
%>
<table cellpadding="0" cellspacing="0" border="0" width="95%">
<tr>
<td bgcolor="#cccccc">
<table cellpadding="2" cellspacing="1" border="0" width="100%">
<tr height="22">
<td bgcolor="#dddddd" WIDTH="6%"><font face="verdana" size="2" color="#000000">N.</font></td>
<td bgcolor="#dddddd" WIDTH="29%"><font face="verdana" size="2" color="#000000">Giocatore</font></td>
<td bgcolor="#dddddd" WIDTH="4%" align="center"><font face="verdana" size="2" color="#000000">Ruolo</font></td>
<td bgcolor="#dddddd" WIDTH="11%" align="center"><font face="verdana" size="2" color="#000000">Squadra</font></td>
</tr>
<%
'SI VISUALIZZA IL CONTENUTO DELLA STRINGA SQL
'ALL'INTERNO DELLA TABELLA PRIMA DEFINITA
cont=1
Do While iRecordsShown < iPageSize And Not objRS.EOF
Dim Rig, bg
Rig = Rig + 1
If Rig Mod 2 = 0 then
bg = "#E4E4E4"
Else
bg = "#ccccff"
End if
Response.Write "<tr bgcolor = " & bg & "><td><font color='#000000' face='Verdana' size='1'>" & (iPageSize*iPageCurrent)-iPageSize+Cont & "</font></td>"
Response.Write "<td><font color='#000000' face='Verdana' size='1'>" & objRS("giocatore") & "</font></td>"
Response.Write "<td align='center'><font color='#000000' face='Verdana' size='1'>" & objRS("ruolo") & "</font></td>"
Response.Write "<td align='center'><font color='#000000' face='Verdana' size='1'>" & objRS("sq") & "</font></td>"
Cont = Cont + 1
'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop
'PULIZIA DEGLI OGGETTI ADO
objRS.Close
Set objRS = Nothing
%>
</table>
</td>
</tr>
</table>
<%End if%>
<%If ipagecount <> 1 Then%>
<center>
<table>
<tr valign="middle">
<td width="50%" align="center" valign="middle"><font face="verdana" size="1" color="#000000">
[
<%if iPageCurrent-2 > 0 and iPageCurrent > 2 then%>
[img]images/first.gif[/img]
<%end if%>
<%if iPageCurrent > 1 then%>
[img]images/pre.gif[/img]
<%end if%>
<%if iPageCount > 2 then
if iPageCurrent-2 < 1 then da_pag = 1 else da_pag = iPageCurrent-2
if iPageCurrent+2 > iPageCount then fino_a_pag = iPageCount else fino_a_pag = iPageCurrent+2
else
da_pag = 1
fino_a_pag = iPageCount
end if%>
<%for i = da_pag to fino_a_pag%>
<%if i = iPageCurrent then%>
<font color="red"><%=i%></font>
<%else%>
<%=i%>
<%end if%>
<%next%>
<%if iPageCurrent > 0 and iPageCurrent < iPageCount then%>
[img]images/next.gif[/img]
<%end if%>
<%if iPageCurrent+1 < iPageCount then%>
[img]images/last.gif[/img]
<%end if%>
]
</font></td>
</tr>
<tr>
<td colspan="2" align="center"><font face="verdana" size="1" color="#000000">
<center>
Pagina
<font color="#FF0000"><%=iPageCurrent%></font>
di
<font color="#FF0000"><%=iPageCount%></font>
</center>
</font></td>
</tr>
</table>
</center>
<%end if%>
<%
objConn.Close
Set objConn = Nothing
%>
</TD>
</TR>
</TABLE>
</body>
</html>
Giuseppe
Devi indicare qual è la riga che ti restituisce l'errore e il tipo di errore.
Provare paura per un qualcosa che ti possa capitare nel futuro non ti evita quell'evento,ti fa soltanto vivere un presente sbagliato!
Permessi di invio
Rispondi quotando