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