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
%>