Ciao a tutti,

Qualcuno potrebbe aiutarmi a capire dove sta il mistero? sto impazzendo!!!
Mi spiego:

Ho i seguenti campi nella tabella "Dati2":
concorrente,code,description,code_oem,grm_sea,grm_ con,xnote,price.

Lo scopo è quello di estrarre il prezzo più basso di un articolo tra tutti i listini della concorrenza.

Perchè quando faccio la ricerca di un codice dal campo input ed eseguo la query, l'unico dato sballato è quello del campo "concorrente??? o id.

In effetti mi tiro fuori il prezzo più basso tra la concorrenza per un determinato articolo.
Funziona benissimo...ma l'ID o campo "concorrente" è sballato...non appartiene al resto dei campi...è come se fosse scollegato dal rs...come se andasse per conto suo.

Esempio abbreviato :
Concorrente - PIPPO
descrizione: TAVOLO LUNGO
prezzo mio: 100 EURO
prezzo concorrenza: 50 EURO

Tutti i campi sono esatti, tranne il concorrente(PIPPO)...perchè il concorrente che risulta essere il più basso come prezzo..non è PIPPO ma bensì TOPOLINO.

Vi posto il codice..magari è meglio: (tolgo il codice html per semplificare)

[CODE]
<%
Session.LCID = 1040
%>


<%

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='" & Cerca & "' order by code asc"
'strSQL = "Select * from Dati2 where concorrente like '%" & Cerca & "%' or code like '%" & Cerca & "%' or description like '%" & Cerca & "%' order by code asc"
'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 ("xnote") & "" & ""%>
<%Response.write "" & Rs ("price") & "" & ""%>
<%set Rs=conn.execute ("Select MIN(prezzo_concorrenza + prezzo_promo)as minimo from Dati2 WHERE code='" & Cerca & "' ")%> <%response.write ""&Rs("minimo")%>
<%
Rs.MoveNext

Loop

End If

Rs.close

Set Rs = Nothing

Conn.close

Set Conn = Nothing
%>