Ciao a tutti,

Qualcuno può aiutarmi?

Da questo motore interno di ricerca, io inserisco nel campo input un codice e mi tira fuori tutti i codici che iniziano per categoria...con l'operatore like %...fin qui tutto bene.

codice:
<%

Dim Cerca

Cerca = Replace(Request.Form("search"), "'", "")

if Cerca = "" then

Response.write ""
Response.end

end if

Dim DbPath, Conn

DbPath="/db/db.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")

Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath)

Dim strSQL,Rs

strSQL = "Select * from Dati2 where code like '%" & Cerca & "%' or ID like '%" & Cerca & "%' or description like '%" & Cerca & "%' order by code asc"

Set Rs = Server.CreateObject("ADODB.Recordset")

Rs.Open strSQL, Conn, 3, 3


if Rs.EOF then

Response.write "Nessun risultato trovato!"
else

Do while NOT Rs.EOF

%>
      
         <%=Server.HTMLEncode(rs("concorrente"))%>
         <%=Server.HTMLEncode(rs("code"))%>
         <%Response.write "" & Rs ("description") & "" & ""%>
         <%Response.write "" & Rs ("code_oem") & "" & ""%>
         <%Response.write "" & Rs ("grammi_sea") & "" & ""%>
         <%Response.write "" & Rs ("grammi_con") & "" & ""%>
         <%Response.write "" & Rs ("price") & "" & ""%>

<%
Rs.MoveNext  

Loop  

End If

Rs.close

Set Rs = Nothing

Conn.close

Set Conn = Nothing
%>

Perchè poi inserendo questa query dopo le response, che mi calcola una percentuale su ogni record, mi estrae solo 1 record e non tutti i record per categoria???


codice:
   
<%

Dim Cerca

Cerca = Replace(Request.Form("search"), "'", "")

if Cerca = "" then

Response.write ""
Response.end

end if

Dim DbPath, Conn

DbPath="/db/db.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")

Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath)


Dim strSQL,Rs


strSQL = "Select * from Dati2 where code like '%" & Cerca & "%' or ID like '%" & Cerca & "%' or description like '%" & Cerca & "%' order by code asc"


Set Rs = Server.CreateObject("ADODB.Recordset")

Rs.Open strSQL, Conn, 3, 3


if Rs.EOF then

Response.write "Nessun risultato trovato!"
else

Do while NOT Rs.EOF

%>

      
         <%=Server.HTMLEncode(rs("concorrente"))%>
         <%=Server.HTMLEncode(rs("code"))%>
         <%Response.write "" & Rs ("description") & "" & ""%>
         <%Response.write "" & Rs ("code_oem") & "" & ""%>
         <%Response.write "" & Rs ("grammi_sea") & "" & ""%>
         <%Response.write "" & Rs ("grammi_con") & "" & ""%>
         <%Response.write "" & Rs ("price") & "" & ""%>
         <%set rs=conn.execute ("Select MIN(prezzo_concorrenza) as minimo from Dati2 WHERE code LIKE '%" & Cerca & "%' ")%><%response.write ""&rs("minimo")%>
         <%set rs=conn.execute ("Select MIN(((prezzo_concorrenza) *0.7)*0.95)*0.9 as minimo from Dati2 WHERE code LIKE '%" & Cerca & "%' ")%><%Response.write ""&rs("minimo")%>

<%
Rs.MoveNext  

Loop  

End If

Rs.close

Set Rs = Nothing

Conn.close

Set Conn = Nothing
%>