Newsgroup: it.comp.www.asp
Titolo: ASP e script di conversione Lira in Euro

Ho creato il mio carrello seguendo il Libro Commercio elettronico con ASP
dell'APOGEO, ora dopo un anno mi si presenta la necessità di implementare la
conversione da lira in euro, ma non riesco a trovare nessuna descrizione,
nel suddetto libro, che mi indichi la modifica che devo apportare per
trasformare automaticamente in euro o ancora meglio offrire tutte e due le
opzioni.
Sarei grato a chiunque mi potesse fornire uno script che effettua la
suddetta conversione.
Grazie anticipate
Max

: Ho creato il mio carrello seguendo il Libro Commercio elettronico con ASP

al database.. non devi apportare nessuna modifica... perchè devi trattare il
campo sempre come Numerico (senza decimali ..se devi trattareancora la
lira.)
quindi con una cosa tipo..
****
Public Function CalcolaEuro(DammiLeLire)
 if DammiLelire<>"" then
  numEurato=DammiLeLire/1936.27
  numEurato=round(numEurato,2)
  CalcolaEuro=numEurato
 end if
end Function
Response.Write CalcolaEuro(15000)
********
--
CIAO!
Gusher

Forse mi sono sottovalutato e alla fine penso di esserci riuscito, ti posto
lo script completo come il precedente con la modifica da me apportata.
Mi farebbe piacere se potessi verificare la correttezza dello script.
Questo avviene però sul totale dell'intero acquisto. Mentre ancora una cosa
non sono riuscito a modificare il costo in euro per ogni articolo prima di
arrivare al totale.
Mi puoi aiutare?
Ti posto lo script:
<%
' Get Product ID
productID = TRIM( Request( "pid" ) )
' Add Item to cart
IF productID <> "" THEN
  sqlString = "SELECT cart_id FROM cart " &_
    "WHERE cart_userID=" & userID & " " &_
    "AND cart_productID=" & productID
  SET RS = Con.Execute( sqlString )
  IF RS.EOF THEN
  sqlString = "INSERT INTO cart ( " &_
    "cart_userID, " &_
    "cart_productID, " &_
    "cart_quantity " &_
    ") VALUES ( " &_
    userID & ", " &_
    productID & ", 1 )"
  ELSE
  sqlString = "UPDATE cart SET " &_
    "cart_quantity=cart_quantity+1 " &_
    "WHERE cart_id=" & RS( "cart_id" )
  END IF
  RS.Close
  SET RS = Nothing
  Con.Execute sqlString
END IF
' Update Shopping Cart Quantities
IF Request( "updateQ" ) <> "" THEN
SET RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Con
RS.CursorType = adOpenDynamic
RS.LockType = adLockOptimistic
sqlString = "SELECT cart_id, cart_quantity FROM cart " &_
  "WHERE cart_userID=" & userID
RS.Open sqlString
WHILE NOT RS.EOF
newQ = TRIM( Request( "pq" & RS( "cart_id" ) ) )
IF newQ = "" OR newQ = "0" THEN
  RS.Delete
ELSE
  IF isNumeric( newQ ) THEN
    RS( "cart_quantity" ) = newQ
  END IF
END IF
RS.MoveNext
WEND
RS.Close
SET RS = Nothing
END IF
%>
<html>
<head><title>Carrello della Spesa</title></head>
<body bgcolor="#3379BC" topmargin="0">
<center>
<b>
<font face="Arial" size=1 color="darkgreen">
<%=username%>
<table width="757" border="0" bgcolor="#ffffff" cellspacing="0"
cellpadding="0" height="1">
  <tr>
    <td width="755" height="15" bgcolor="#3379BC" align="center">
      <hr color="#000080" size="1">
    </td>
  </tr>
</font>
  <tr>
    <td width="755" height="1" bgcolor="#3379BC" align="right"><font
color="#FFFFFF" face="Arial" size="1">&nbsp;</font></b><font
color="#FFFFFF"><a href="default.asp">Home</a> | <a
href="admin/default.asp">Admin</a> | <a href="cart.asp">Carrello</a>
      | <a href="account.asp">account</a>&nbsp;&nbsp;&nbsp;</font></td>
  </tr>
<b>
  <tr>
    <td width="755" height="1" bgcolor="#3379BC">
      <hr color="#000080" align="center" size="1">
    </td>
  </tr>
</table>
</b></center>
<div align="center">
  <center>
  <table height="318" width="756" cellspacing="0" cellpadding="0">
  <td bgcolor="#3379BC" height="247" width="751">
  <table border="0" cellspacing="0" width="757" height="1"
style="padding-top: 0; padding-bottom: 0" cellpadding="0">
    <tr>
      <td width="757" height="1" style="padding-top: 0; padding-bottom: 0"
bgcolor="#3379BC">
        <p align="center">
<b>
<font face="Arial" size=3 color="#FFFFFF">
Il tuo Carrello della Spesa:</font></b><font face="Arial" size=3
color="#FFFFFF">&nbsp;</font></td>
    </tr>
  </table>
  </center>
<p>
<center>
<%
' Get the shopping cart
sqlString = "SELECT cart_id, product_name, " &_
  "product_price, cart_quantity " &_
  "FROM cart, products " &_
  "WHERE cart_userID=" & userID & " " &_
  "AND cart_productID = product_id " &_
  "ORDER BY cart_id DESC"
SET RS = Con.Execute( sqlString )
IF RS.EOF THEN
%>
</p>
<p><b>Non hai nessun prodotto inserito nel tuo carrello della spesa</b>
<p>
<form action="default.asp">
<input type="submit" value="Continua gli Acquisti">
</form>
<%
ELSE
orderTotal = 0
%>
<form method="post" action="cart.asp">
<input name="updateQ" type="hidden" value="1">
<input name="username" type="hidden" value="<%=username%>">
<input name="password" type="hidden" value="<%=password%>">
<table bgcolor="#FFFFFF" border=0 cellspacing=1 width="414">
<tr bgcolor="lightgreen">
  <th bgcolor="#3379BC" width="147">Prodotto</th>
  <th bgcolor="#3379BC" width="152">Prezzo</th>
  <th bgcolor="#3379BC" width="109">Quantità</th>
</tr>
<%
WHILE NOT RS.EOF
orderTotal = orderTotal + ( RS( "product_price" ) * RS( "cart_quantity" ) )
%>
<tr>
  <td width="147" bgcolor="#000080">
  <p align="center">
  <%=Server.HTMLEncode( RS( "product_name" ) )%>
  </td>
  <td width="152" bgcolor="#000080">
  <p align="center">
  <%=formatCurrency( RS( "product_price" ) )%>
  </td>
  <td width="109" bgcolor="#000080">
  <p align="center">
  <input name="pq<%=RS( "cart_id" )%>" type="text" size=4
   value="<%=RS( "cart_quantity" )%>">
  </p>
  </td>
</tr>
<%
RS.MoveNext
WEND
%>
<tr bgcolor="yellow">
  <td colspan=2 align=right bgcolor="#3379BC" width="301">
  <b>Ordine Totale:</b>
  </td>
  <td bgcolor="#000080" width="109">
  <p align="center">
    <%
Lire = orderTotal
orderTotal = Lire/1936.27
LireF = "L." & FormatNumber(Lire,0)
EuroF = "? " & FormatNumber(orderTotal,2)
response.write LireF & "    " & EuroF
%>
  </td>
</tr>
<tr>
  <td colspan=3 width="412" bgcolor="#3379BC">
  <table border=0 bgcolor="#3379BC">
  <tr>
    <td align="right" bgcolor="#3379BC">
 <input type="submit" value="Aggiorna Carrello">
 </td>
 </form>
 <form method="post" action="checkout.asp">
 <input name="username" type="hidden" value="<%=username%>">
 <input name="password" type="hidden" value="<%=password%>">
 <td bgcolor="#3379BC">
 <input type="submit" value="Controllo">
 </td>
 </form>
 <form action="default.asp">
 <td bgcolor="#3379BC">
 <input type="submit" value="Continua gli Acquisti">
 </td>
 </form>
  </tr>
  </table>
  </td>
</tr>
</table>
<% END IF %>
</center>
  <tr>
    <td bgcolor="#3379BC" height="63" width="751">&nbsp;
  </tr>
  </table>
</body>
</html>

 Gusher
Niente da fare!!! C'ho provato. Ma non riesco ad implementare la funzione
che mi hai descritto con lo script che ho fatto (o meglio ancora, ho copiato
e modificato dal libro), purtroppo ho, con un  poco di arroganza, preteso di
poterlo fare in un secondo tempo credendo si potesse trattare di una
modifica da poco. Magari lo è, ma non per me, per cui ti posto sotto lo
script con la umile cortesia di controllare come potrei effettuare questa
variazione.
Mi dirai sicuramente perchè non cerco di capire quello che scrivo. Forse,
perchè non ho mai avuto bisogno di andare oltre quello che avevo fatto e
bastava per le mie esigenze private.
Ti ringrazio anticipatamente.
Max





<center>


  <%=formatCurrency( orderTotal )%>


 arrivare al totale.
Conoscevi già questo script? 
http://www.aspitalia.com/articoli/conversione_euro.asp
Ciao!
-----------------------
http://www.wmplanet.com
-----------------------
-- 
Posted from 
adsl-250-27.38-151.net24.it
 [151.38.27.250] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG