Campo di ricerca su modulo - urgentissimo grazie a tutti.

[ALESSANDRO007]

Ringrazio anticipatamente chiunque mi aiuti, un bentornato a tutti dalle vacanze, con un grande augurio di buon anno di lavoro.

A proposito di lavoro . . .

Ho trovato uno script su un sito che ora non ricordo.
Quello che ricordo però, è che lo script fu nativo in questo sito html.it, perchè era ben specificato, allora perchè non tornare dai grandi volponi a chiedere aiuto?
Premesso che ho apportato tutte le modifiche che mi servivano, e che sono ben funzionanti, cioè attualmente, estraggo le info dal database, tutte insieme, mentre invece vorrei richiamarle con un modulo di ricerca, e come dico io.
L'unica cosa che proprio non riesco a fare anche come spunto di partenza, è un campo di ricerca diretto,da adattare a questo script.
Script :

Mi collego al database . . . . . . . . . .
<%@ Language=VBScript %>
<% response.buffer=true %>
<% Server.ScriptTimeout = 300 %>



Impagino le ricerche . . . . . . . . . . .tutte
<%
iPageSize = 10 'NUMERO RECORD PER PAGINA
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
strSQL = "SELECT * FROM risultati ORDER BY Titolo ASC"
Set objRS = Server.CreateObject("ADODB.Recordset")
----------------------------------------------------- sospendo per esempio
Qui vorrei inserire una cosa del genere, ci ho provato ma non funziona:
<%
Response.Buffer = true;
var testo = new String(Server.HTMLEncode(Request.Form("cerca")));
var r_testo = testo.replace(/'/g,"''");
var cerca = r_testo.split(" "); //
var sql = "SELECT * FROM risultati WHERE ";
for (var i=0; i<cerca.length; i++)
{
if (i > 0) sql += " AND";
sql += " titolo LIKE '%" + cerca[i] + "%'";
}
sql += " ORDER BY titolo";
var Mostra = Cn.Execute(sql);

%>

----------------------------------------------------- segue da dove sospeso >

objRS.PageSize = iPageSize
objRS.CacheSize = iPageSize
objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText

reccount = objRS.recordcount
PageCount = 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
%>
ecc.
ecc.
è tutto grazie.

[imente]

se ho capito bene ti basta fare un modulo di ricerca (es per il titolo) e poi recuperare il valore nella pagina che hai postato

poi nel punto della query lo inserisci

es:
strSQL = "SELECT * FROM risultati WHERE Titolo LIKE '%" & request.querystring("titolo") & "%' ORDER BY Titolo ASC"

[ALESSANDRO007]

Mi stavo sfasciando la testa per niente alla fine, cmq grazie mille ci provo e ti faccio sapere . . .

[ALESSANDRO007]

Mi restituisce il presente errore perchè?

cerca != "undefined" ? Response.Write(testo) : Response.Write("")
-----^

Ti posto lo script di connessione:

<%
iPageSize = 10 'NUMERO RECORD PER PAGINA
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
strSQL = "SELECT * FROM risultati WHERE Titolo LIKE '%" & request.querystring("titolo") & "%' ORDER BY Titolo 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
%>

Ti posto lo script del form:

<td width="100%" height="20">
<form method="POST" action="default1.asp">
<p style="margin-top: 0; margin-bottom: 0" align="center">
<default1.asp">
<FONT color="#FF6600" size="1"><input type="text" name="cerca" size="20" value="<%cerca != "undefined" ? Response.Write(testo) : Response.Write("")%>" style="border: 1px ridge #C0C0C0; ; height:22; width:250; font-family:Verdana"></FONT><font size="1" face="Verdana">
</font> <FONT color="#FF6600" size="1">
<span style="background-color: #FFFF00">
<input type="submit" value="Cerca" style="border-style:ridge; border-width:0; width: 54; height: 22; color:#000000; font-weight:bold; font-family:Verdana; padding-top:0; padding-bottom:0"></span></FONT></p>
</form>
</td>

Se vi serve altro non so.

[imente]

Originariamente inviato da ALESSANDRO007
Mi restituisce il presente errore perchè?

cerca != "undefined" ? Response.Write(testo) : Response.Write("")
-----^

quello è c-like, in vbs si usa <> e inoltre non esiste sintassi IF abbreviata (o meglio c'è IIF ma non vorrei confonderti più le idee)

if cerca <> "undefined" then
      Response.Write(testo)
'else superfluo
'else
      'Response.Write("")
end if

[ALESSANDRO007]

Non mi si fila proprio caro Imente, il modulo di ricerca non lo tiene in considerazione, ottengo tutte le info a video presenti all'interno del database, come se il form di ricerca non esistesse, se ti posto tutto lo script, escluso campo di ricerca, pensi di aiutarmi?
Chiaramente ringrazio anticipatamente. . . by

A proposito complimenti per il sito molto bello, ma. . . volevo sapere è possibile anche li postare queste cose.

di nuovo by.