ciclo while

sandretto

Nuovo Utente
17 Apr 2012
1
0
0
Ciao,
sono alle prime armi ed ho ancora molto da studiare... chiedo un aiutino.
-Ho la mia pagina asp che richiama tutti i record dalla tab ListiniArticoli ...
tra i vari campi: Categoria, Sottocategoria, PrezzoNetto

-dalla tab ricarichi vorrei applicare una percentuale di ricarico sul PrezzoNetto dove Categoria e Sottocategoria sono uguali

Ho provato così ma mi funziona solo su un abbinamento Categoria/Sottocategoria

Help!

Codice:
<%
SQL="SELECT * FROM ListiniArticoli ORDER BY NsCodice"
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
While Not rec.EOF
%> 

<%=rec("NsCodice")%>
<%=rec("DescrizioneArticolo")%>
<%=rec("Categoria")%>
<%=rec("Sottocategoria")%>
<%=rec("Imballo")%>
<%= FormatNumber(rec("PrezzoNetto"),3)%> 



<%
SQL= "Select * from Ricarichi order by Categoria"
Set rsc = Server.CreateObject("ADODB.Recordset")
Set Rsc=Conn.Execute(SQL)
%>
<% 
if rsc("Categoria") =(rec("Categoria"))  AND rsc("Sottocategoria")=(rec("Sottocategoria")) then
Dim prezzo_1
prezzo_1 = (rec("PrezzoNetto")) + (rec("PrezzoNetto")*(rsc("Ricarico_1")/100)) 
response.write(FormatNumber(prezzo_1,3))
end if
%>
<% 
if rsc("Categoria") =(rec("Categoria"))  AND rsc("Sottocategoria")=(rec("Sottocategoria")) then
Dim prezzo_2
prezzo_2 = (rec("PrezzoNetto")) + (rec("PrezzoNetto")*(rsc("Ricarico_2")/100)) 
response.write(FormatNumber(prezzo_2,3))
end if
%>
<% 
rec.MoveNext
Wend
rec.close
%>
 
Ultima modifica di un moderatore:
Ciao,
sono alle prime armi ed ho ancora molto da studiare... chiedo un aiutino.
-Ho la mia pagina asp che richiama tutti i record dalla tab ListiniArticoli ...
tra i vari campi: Categoria, Sottocategoria, PrezzoNetto

-dalla tab ricarichi vorrei applicare una percentuale di ricarico sul PrezzoNetto dove Categoria e Sottocategoria sono uguali

Ho provato così ma mi funziona solo su un abbinamento Categoria/Sottocategoria

Help!

Codice:
<%
SQL="SELECT * FROM ListiniArticoli ORDER BY NsCodice"
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
While Not rec.EOF
%> 

<%=rec("NsCodice")%>
<%=rec("DescrizioneArticolo")%>
<%=rec("Categoria")%>
<%=rec("Sottocategoria")%>
<%=rec("Imballo")%>
<%= FormatNumber(rec("PrezzoNetto"),3)%> 



<%
SQL= "Select * from Ricarichi order by Categoria"
Set rsc = Server.CreateObject("ADODB.Recordset")
Set Rsc=Conn.Execute(SQL)
%>
<% 
if rsc("Categoria") =(rec("Categoria"))  AND rsc("Sottocategoria")=(rec("Sottocategoria")) then
Dim prezzo_1
prezzo_1 = (rec("PrezzoNetto")) + (rec("PrezzoNetto")*(rsc("Ricarico_1")/100)) 
response.write(FormatNumber(prezzo_1,3))
end if
%>
<% 
if rsc("Categoria") =(rec("Categoria"))  AND rsc("Sottocategoria")=(rec("Sottocategoria")) then
Dim prezzo_2
prezzo_2 = (rec("PrezzoNetto")) + (rec("PrezzoNetto")*(rsc("Ricarico_2")/100)) 
response.write(FormatNumber(prezzo_2,3))
end if
%>
<% 
rec.MoveNext
Wend
rec.close
%>

Ciao,

per correrale i campi di una tabella con un'altra e mostrare solo i dati che corrispondono usa le JOIN, INNER JOIN

es:

Codice:
SELECT * FROM Tabella1 INNER JOIN Tabella2 ON Tabella1.CampoTabella1 = Tabella2.CampoTabella2 where cosa = cosa"

Codice:
SELECT * FROM Tabella1 INNER JOIN Tabella2 ON Tabella1.CampoTabella1 = Tabella2.CampoTabella2

Collega i campi delle due tabelle

where metti l'operatore di confronto. =,<, >, <=, >=, <>,

where cosa = cosa cosa le due tabelle devono contenere dati identici un ID ecc..

Valeria.
 

Discussioni simili