Ciao,
ho scritto questo codice che dovrebbe recuperare con una SELECT i prodotti venduti di un USER (se il campo venduto =-1 allora vuol dire che il prodotto è stato venduto) e di conseguenza visualizzare in un elenco construito con un RECORDSET tutti i prodotti. Il problema è che calcolando il prezzo viene preso il primo prodotto e via via vengono aggiunti i prezzi di tutti gli altri, ma l'importo non si somma correttamente. Per es 120,50 + 12 =120,62 . CAPITE il problema ?... questo è il codoce usato:
<%
user = Request.QueryString( "utente" )
venduto = Request.Form("venduto")
totale = 0
Dim APT
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("mdr.mdb")
' Apri il recordset esplicitamente
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT * FROM Collection WHERE utente='" &user& "' AND venduto='-1' ORDER BY inserimento",Conn
%>
<html>
<head>
<title>Esito della selezione</title>
</head>
<body bgcolor="#666666">
<table width="719" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<th><form align="center">
<div align="center"><center><table border="0" cellpadding="2" cellspacing="0"
bordercolor="#111111"
style="border-collapse: collapse; color:#C0C0C0; font-size:12 pt; font-family:Verdana"
width="719">
<tr bgcolor="#0099CC">
<td width="74"><font color="#FFFFFF">foto</font></td>
<td width="74"><font color="#FFFFFF">codice</font></td>
<td width="449"><font color="#FFFFFF">nome</font></td>
<td width="106"><font color="#FFFFFF">prezzo</font></td>
<td width="106"><font color="#FFFFFF">totale</font></td>
</tr>
<%
Do While (NOT rs.EOF)
x_codice = rs("codice")
x_nome = rs("nome")
x_prezzo = rs("prezzo")
totale = totale + x_prezzo
%>
<tr bgcolor="<%= bgcolor %>">
<td>[img]<%=RS( [/img]" width="40" height="60"></td>
<td><font><% response.write x_codice %></font></td>
<td>')"><font><% response.write x_nome %> </font></td>
<td><font><% response.write x_prezzo %></font></td>
<td><font><% response.write totale %></font></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
</center></div>
</form>
</th>
</tr>
</table>
</body>
</html>
Rispondi quotando
